Bonjour,
Un essai ...
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C9, C12")) Is Nothing Then
If Target = 0 And Target.Address <> "$C$12" Then MsgBox "indiquer le nombre de moteurs"
If Target.Address = "$C$12" Then Call mot_trommel
End If
End Sub
ric
alors...
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C9, C12")) Is Nothing Then
If Target = 0 And Target.Address <> "$C$12" Then
MsgBox "indiquer le nombre de moteurs"
Else
Call mot_trommel
End If
'If Target = 0 And Target.Address <> "$C$9" Then
'MsgBox "indiquer le nombre de vannes"
'Else
'Call van_trommel
'End If
End If
End Sub
bon déjà première question, comment fais tu pour copier coller du code proprement avec l'indentation ?
j'ai repris ton code, la partie qui n'est pas en commentaire fonctionne :
je met 0 dans C9 j'ai le message, si je met <>0 la macro est appelée.
par contre ça ne fonctionne pas pour C12, donc en commentaire j'ai mis ce que j'aimerai que le code fasse, et cette opération serait à faire après que la personne ait rentrée la valeur dans C9...
Je suis un novice en VBA et j'ai l'impression de devoir réaliser une usine à gaz...