apparition d'une msgbox en fonction de la valeur d'une cellule

Question

Bonsoir &#224; tous,



Je souhaite faire apparaitre un message d'alerte (type msgbox) lorsque l'on saisi dans la cellule A1 le mot "oui"



Pouvez-vous m'aider, c'es tr&#232;s urgent...



Merci beaucoup de votre aide

FFkiller · Answer

Salut 

1) cr&#233;e un compteur 



2) fais un controle de type



sub message ()

if cells(1,1).value ="oui" then

a= msgbox("prompt", vbstyle)

End if


FFkiller

misterbudge · Answer

Salut,



Merci pour la solution.



Mais comment cr&#233;&#233; ton un compteur?



misterbudge

jpleroisse · Answer

Voici un exemple avec un compteur.Cette boucle v&#233;rifie les 50 premi&#232;res cellules de la colonne A et rechercher le mot oui.

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 50
    If Range("A:A")(i).Value = "oui" Then
    MsgBox "La cellule A:" & i & " contient" & " " & Range("A:A")(i), vbOKOnly + vbInformation, "Message"
End If
Next i
End Sub

jpleroisse

valtrase · Answer

Lut,
Pour emettre un message si t'as mis "oui" dans la cellule "A1" de la feuille 1 tu colles ce code dans ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)If Sh.Name "Feuil1" And Target.Address "$A$1" And Target.Value = "oui" Then MsgBox "T'as dis oui"
End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Apparition d'une msgbox en fonction de la valeur d'une cellule

4 réponses