Questions et reponses d'entretien

Example:

Sub HelloWorld()
   MsgBox "Hello, World!"
End Sub

Example:

Dim myVar As String
myVar = "Hello"

Example:

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)

Example:

Dim cell As Range
For Each cell In Range("A1:A10")
   Debug.Print cell.Value
Next cell

Example:

'Option Explicit
Sub Example()
   Dim x As Integer
   y = 10 ' This will cause an error without 'Option Explicit'
End Sub

Example:

Sub Example()
   If condition Then
      Exit Sub
   End If
   ' Rest of the code
End Sub

Example:

Sheets.Add After:=Sheets(Sheets.Count)

Example:

If x > 10 Then
   Debug.Print "x is greater than 10"
ElseIf x < 10 Then
   Debug.Print "x is less than 10"
Else
   Debug.Print "x is equal to 10"
End If

Example:

Do While i < 10
   Debug.Print i
   i = i + 1
Loop

Example:

Const PI As Double = 3.14159

Example:

On Error Resume Next
   ' code that may cause an error
On Error GoTo 0

Example:

For i = 1 To 10
   Debug.Print i
Next i

Example:

MsgBox "Hello, World!", vbInformation + vbOKOnly, "Greeting"

Example:

Call MyProcedure()

Example:

Dim myArray(1 To 3) As Integer
myArray(1) = 10
myArray(2) = 20
myArray(3) = 30

Example:

Dim userInput As String
userInput = InputBox("Enter your name:", "User Input")

Example:

Application.ScreenUpdating = False
' Your code here
Application.ScreenUpdating = True

Example:

Sub ModifyValue(ByRef x As Integer)
   x = x + 1
End Sub

Example:

On Error Resume Next
   ' code that may cause an error
On Error GoTo 0

Example:

With Range("A1")
   .Value = 42
   .Font.Bold = True
End With

Example:

ActiveCell.Value = "Hello"
Selection.Font.Bold = True

Example:

Sub ShowUserForm()
   UserForm1.Show
End Sub

Example:

Application.ScreenUpdating = False

Example:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
      ' Code to execute when cells in A1:A10 are changed
   End If
End Sub

Example:

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")

Example:

Select Case x
   Case 1
      Debug.Print "Value is 1"
   Case 2
      Debug.Print "Value is 2"
   Case Else
      Debug.Print "Value is neither 1 nor 2"
End Select

Example:

ActiveCell.Offset(1, 2).Value = "Data"

Example:

Unload UserForm1

Example:

Dim myArray(1 To 10) As Integer
Debug.Print LBound(myArray) ' Outputs 1
Debug.Print UBound(myArray) ' Outputs 10

Example:

Function AddNumbers(x As Integer, y As Integer) As Integer
   AddNumbers = x + y
End Function