Message Else sans if
n
Voici un extrait de code:
n = 5
If n = 2 Then a = Int(1 + Rnd * (8 - 1 + 1))
Sheets("mots+définitions").Cells(a, 4).Copy Destination:=Sheets("ACCUEIL").Range("B6")
Range("B6").Select
With Selection.Font
.Name = "Script MT Bold"
.Size = 28
End With
With Selection
.HorizontalAlignment = xlCenter
End With
ElseIf n = 3 Then a = Int(9 + Rnd * (74 - 9 + 1)) : ici c'est bloqué avec comme message Else sans if
Sheets("mots+définitions").Cells(a, 4).Copy Destination:=Sheets("ACCUEIL").Range("B6")
Range("B6").SelectBonjour
Mettre en une seule ligne
If n = 2 Then a = Int(1 + Rnd * (8 - 1 + 1))crée un endif implicite
il faut couper après then
Bonjour à tous,
dit autrement tu as 2 syntaxes pour le If
Sur une ligne : If test Then réponse1 [Else Réponse2] ' le Else est optionnel
Sur plusieurs lignes :
If test1 Then ' rien derrière
' code...
ElseIf Test2 then
'code...
'...
Else
'code...
Endif 'obligatoire dans ce caseriiic
Bonjour,
version 2508
2508 n'est pas une version Excel mais une révision s'appliquant à diverses versions.
Pensez à corriger votre version d'excel dans le profil de votre compte.
Pour ce faire, regardez ici --> https://forum.excel-pratique.com/s/goto/1261008
Si terminé, merci de fermer le fil de discussion
Cordialement