C'est quoi qui cloche???

[corate92]

🙁

Je suis en train d'essayer de créer une msgbox en fonction si la valeur de la cellule est oui ou non.😕

Mais apparemment j'ai du faire une "boulette" et je ne comprend pas la notion de "if" 😱

Comment faire également pour qu'il ne prenne pas en compte uniquement que la cellule I3 mais toutes les cellules à partir de I3

Private Sub rappelrdvMEDECINEduW()
If Range(I3).Value = "Oui" Then
MsgBox "Pensez à organiser les RDV pour la médecine du Travail"
If Range(I3).Value = "Non" Then
MsgBox "Merci d’avoir ouvert ce fichier"
End If
End Sub


Merci à tous pour votre aide

 

[jeanpierre]

Re : C'est quoi qui cloche???

Bonjour Petite Cora,

C'est quoi qui cloche ????, et ben le titre, une fois encore (score 3 questions/3).

Un titre ce veux explicite qu problème rencontré.

Essaies Else à la place de If Range(I3).Value = "Non" Then. Edit : pas totalement en accord avec la question car si la cellule est vide???

A te lire

Jean-Pierre

Edit : Salut Bertrand, je n'avais même pas vu le manque de ""

 

[mutzik]

Re : C'est quoi qui cloche???

Bonjour !!!! (ca fait pas de mal de le dire ...

Private Sub rappelrdvMEDECINEduW()
If Range("I3").Value = "Oui" Then
MsgBox "Pensez à organiser les RDV pour la médecine du Travail"
If Range("I3").Value = "Non" Then
MsgBox "Merci d’avoir ouvert ce fichier"
end if
End Sub

fonctionnera mieux

 

[corate92]

Re : C'est quoi qui cloche???

Bonjour Jean Pierre et Bertrand!

aie aie je suis décidemment une mauvaise élève côté VBA, j'ai complètement zappé les " "!
Bouh la honte à moi!

je ne souhaite pas qu'il s'arrete à la case I3 mais que grosso modo elle prenne en compte toute la colonne à partir I3.
Je pense créer une fonction sur Excel qui compte le nombre de "oui" par exemple et s'il y a plus de 1 oui alors le message va s'afficher, je vais essayer de bidouiller ça...
Merci encore

et je vais essayer de ne pas faire d'erreur idiote cette fois ci...

 

[Staple1600]

Re : C'est quoi qui cloche???

Bonjour


Une variante

Sub test()
MsgBox (IIf([I3] = "OUI", "Pensez à organiser les RDV pour la médecine du Travail", "Merci d’avoir ouvert ce fichier"))
End Sub

 

[corate92]

Re : C'est quoi qui cloche???

Staple,

J'ai essayé ta macro cela ne marche pas...

Pas grave je vais me débrouiller seule

Merci à tous encore une fois!

Coralie

 

[ChTi160]

Re : C'est quoi qui cloche???

Salut corate92
re Staple1600
Bonjour le fil
peut être une question de Case ????

Sub test()
MsgBox (IIf([COLOR=Blue]UCase([/COLOR][A5][COLOR=Blue])[/COLOR] = "OUI", "Pensez à organiser les RDV pour la médecine du Travail", "Merci d’avoir ouvert ce fichier"))
End Sub

ou alors

 Sub test2()
MsgBox IIf(Application.CountIf([A:A], "oui"), "Pensez à organiser les RDV pour la médecine du Travail", "Merci d’avoir ouvert ce fichier")
End Sub

Bonne fin de Journée