Question, La macro écrite ci-dessous sert à copier et coller des cellules à l’aide d’un bouton de formulaire (CommandButton1). Si une cellule donnée à la valeur vraie (A8) la macro s’exécute sinon un message apparaît, et il faut avoir la valeur vrai en A8. Voici la macro
MACRO Sub CommandButton1_Click()
If Sheets("insc1").Range("A8") <> True Then
MsgBox "Vous avez oublié un champs obligatoire du formulaire .", _ vbCritical, "Attention"
Else
If Sheets("insc1").Range("A8") = True Then
Sheets("INSC1").Select
Range("AA3:AD260").Select
Selection.Copy Range("AE3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False
Range("G12").ClearContents
Range("A1").Select
End If
End If
End Sub
Voilà ma question peut on faire la même chose mais remplacer l’exécution de la macro par entrée sur le clavier, après la saisie d’une valeur dans une cellule. EXEMPLE : je saisie une valeur en A1 je fais entrée ( ou éventuellement CTRL+ lettre) et copier coller (ou autres) s’exécute. Deuxième question : comment faire pour indiquer plusieurs conditions à la ligne deux de la macro (A8 <> True, A9 =1 ; etc…). Si quelqu’un peut m’aider il m’aura fait faire un grand pas en avant.