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