Embedded Files
Types de données
Instructions
Cas Où
Select Case maValeur
Case 1 : action1 ‘ Si une seule instruction ET sur la même ligne alors mettre un “:”
Case 2
action2
Case Else
action3
End Select
Select Case maValeur
Case 00 To 09: action1
Case 10 To 19: action2
Case Is >= 29: action3
End Select
SI / SI ..Sinon
If ( a < 0 ) then
' ...
ElseIf ( a= 0) then
' …
Else
' ...
End If
Pour une valeur de ... à ...
tion
Next maVal
For maVal = 0 To 100 Step 2 ‘ pour maVal de 0 à 100 (pas de 2)
‘ action
Next maVal
!!! On peut sortir de la boucle avec un “Exit For”
Faire Tant Que ...
Do While ActiveCell.Value <> Empty
‘...
ActiveCell.Offset(1, 0).Select
Loop
Faire Jusqu’à ce que ...
Do Until IsEmpty (ActiveCell.Value)
“...
ActiveCell.Offset(1, 0).Select
Loop
Pour chaque élement de la collection ….
For Each Feuille In ActiveWorkbook.Worksheets
Debug.Print Feuille.Name
Feuille.Visible=xlSheetVisible
Next Feuille
Go To
GoTo balise
' ...
:balise
Page updated
Google Sites
Report abuse