Questions et reponses d'entretien

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