Code VBA 2 worksheet_change

[steven33]

Bonjour,

N'ayant que trop peu d'expérience en code Vba, J'ai tenté de mettre en place deux worksheet_change, mais il semblerait que mon code n'aille pas.

En principe je souhaiterais que si la celluleC6 = Oui alors on lance l'Userform1.

ET

Si la cellule C11 ="Oui", alors on lance la msgBox.

Pouvez-vous m'aidez ? 🙂

Merci d'avance.
cdt


code VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" Then
If Target.Value = "Oui" Then
UserForm1.Show

End If

If Target.Address <> "$C$11" Then
If Target.Value = "Oui" Then MsgBox "Attention, veuillez bien vérifier que vous remplissez les conditions [...]" vbCritical + vbOKOnly, "Information importante"
End If
End Sub

 

[pierrejean]

Re : Code VBA 2 worksheet_change

A tester:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" and Target.Value = "Oui" Then
   UserForm1.Show
End If

If Target.Address <> "$C$11" and  Target.Value = "Oui" Then
 MsgBox "Attention, veuillez bien vérifier que vous remplissez les conditions [...]" vbCritical + vbOKOnly, "Information importante"
End If
End Sub

 

[steven33]

Re : Code VBA 2 worksheet_change

Bonjour,

Je vous remercie de votre aide, néanmoins cela ne fonctionne toujours pas..

cdt

 

[pierrejean]

Re : Code VBA 2 worksheet_change

Re

Mes excuses je n'avais pas repéré le <>

Ceci fonctionnera

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" And Target.Value = "Oui" Then
   UserForm1.Show
End If


If Target.Address <> "$C$11" Then
  If Target.Value = "Oui" Then
    x = MsgBox("Attention, veuillez bien vérifier que vous remplissez les conditions [...]", vbCritical + vbOKOnly, "Information importante")
  End If
End If
End Sub

Mais est-ce bien ce que tu souhaites

 

[steven33]

Re : Code VBA 2 worksheet_change

Bonjour, je vous remercie, cela fonctionne bien pour la cellule C6,

cependant il y a une erreur concernant la cellule c11, je vous joins le fichier afin que vous compreniez mieux.

vous remerciant par avance.
cdt

 

[pierrejean]

Re : Code VBA 2 worksheet_change

Re

Je me doutais bien que ça ne vous convenait pas !!!
Mais je ne sais toujours pas ce que vous voulez

 

[steven33]

Re : Code VBA 2 worksheet_change

Re,

Eh bien actuellement, lorsque l'on clique sur la cellule C6 et que l'on sélectionne "Oui", alors le formulaire se lance. Donc pour cette partie c'est parfait.

Néanmoins j'aurais également souhaité que l'orque l'on sélectionne "Oui" pour la cellule C11, cela lance une MSGBOX "Attention...", comme un message d'information pour l'utilisateur en somme.

Bien à vous.
cdt

 

[Paf]

Re : Code VBA 2 worksheet_change

Bonjour à tous

a priori :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$6" And Target.Value = "Oui" Then
UserForm1.Show
End If

If Target.Address = "$C$11" And Target.Value = "Oui" Then
x = MsgBox("Attention, veuillez bien vérifier que vous remplissez les conditions [...]", vbCritical + vbOKOnly, "Information importante")
End If

End Sub

Bonne suite

 

[steven33]

Re : Code VBA 2 worksheet_change

Bonjour,

Parfait, merci beaucoup, cela fonctionne à Merveille.

ST