If condition respecté ne rien faire, sinon action

Bonjour,

je cherche à faire un if, mais si la condition est rempli, la macro ne doit rien faire et si elle n'est pas rempli alors afficher une msgbox.

j'ai tenter le code suivant mais je me suis fait rejeter...

Set plage = Range(Cells(2, 2), Cells(6,6))

If Application.CountA(plage) = "aller" Then

""

Else: MsgBox ("recommencez")

End If

c'est le "" qu'il n'aime pas

quelqu'un serait me dire d'où vient le problème?

merci

Bonjour.

A la place des guillemets qui sont sur ta troisième ligne, essaies en mettant : Exit Sub

il existe peut etre un code plus simple pour réaliser ce que je veut :

si au moins 1 des cellule de la plage contient le mot "aller", alors ne rien faire sinon afficher la msgbox.

si je met exit sub, cela arret la macro ou sa passe la ligne?

j'ai fait un test, le exit sub a l'air de fonctionner.

par contre la ligne : Application.CountA(plage) = "aller", non elle était faite à la base pour des chiffres, c'est peut etre le "countA" qu'il faut remplacer par autre chose?...

Re

Vois le fichier avec une boucle For Each

De cette façon, on vérifie qu'il y a au moins une fois le mot "allez" dans la plage. S'il n'apparait pas au moins une fois, on a un msgbox.

Bonjour

Bonjour pass-pass

Essayes

Sub Test()
  Set plage = Range(Cells(2, 2), Cells(6, 6))
  If Application.CountIf(plage, "aller") > 0 Then
    ' Au moins 1 "aller" donc ne rien faire
  Else
    MsgBox "recommencez"
  End If
End Sub

Pour info:

CountA est l'équivalent de NBVAL : on compte les cellules non vides

CountIf est l'équivalent de NB.SI : On compte les cellules correspondantes au critère

j'essai sa demain! saint valentin oblige! merci pour vos réponse

merci sa fonctionne très bien, et merci banzai64 pour les informations! sa risque de mettre utile!