Bonjour,
J'ai un petit problème lors de la compilation, rien ne se passe, ce matin le code a marché et là plus rien, voici le code :
For q = 3 To 100
If IsEmpty(Worksheets("ReleveAvan t").Range("ReleveAvant!F" & q)) Then
MsgBox (" ****** ")
Sheets("Index").CommandButton2 .Enabled = False
Else
Sheets("Index").CommandButton2 .Enabled = True
End If
Next q
Ma msgbox fonctionne donc la commande bouton devrait marcher... si quelqu'un a une solution
Merci
Alex
-----