Code VBA 2 worksheet_change

pierrejean

XLDnaute Barbatruc

• 31 Mai 2013

• #2

Re : Code VBA 2 worksheet_change

A tester:

Code:

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

 

Vote positif 0 Vote négatif

S

steven33

XLDnaute Nouveau

• 31 Mai 2013

• #3

Re : Code VBA 2 worksheet_change

Bonjour,

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

cdt

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 31 Mai 2013

• #4

Re : Code VBA 2 worksheet_change

Re

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

Ceci fonctionnera

Code:

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

 

Vote positif 0 Vote négatif

S

steven33

XLDnaute Nouveau

• 1 Juin 2013

• #5

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

 

Pièces jointes

• excel jpa.xlsm

  262.5 KB · Affichages: 44

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Juin 2013

• #6

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

 

Vote positif 0 Vote négatif

S

steven33

XLDnaute Nouveau

• 1 Juin 2013

• #7

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

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 1 Juin 2013

• #8

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

 

Vote positif 0 Vote négatif

S

steven33

XLDnaute Nouveau

• 1 Juin 2013

• #9

Re : Code VBA 2 worksheet_change

Bonjour,

Parfait, merci beaucoup, cela fonctionne à Merveille.

ST

 

Vote positif 0 Vote négatif