Macro si

Bonjour tout le monde,

Je veux créer une macro qui vérifie plusieurs cellules en même temps

or j'ai réussi a le faire avec la fonction simple "si" mais avec programmation non

c'est simple j'ai 20 cellules qui sont dans un même colonne

si le contenu des cellules est "Ok" afficher un message "Tout est OK"

sinon "vérifier"

Merci d'avance pour votre aide

Bonsoir,

Un exemple pour le principe.

Cdlt

Option Explicit
Private Sub cmdVérifier_Click()
Dim i As Long, cpt As Long
    cpt = 0
    For i = 1 To 20
        If Cells(i, 1) = "OK" Then cpt = cpt + 1
    Next
    If cpt = 20 Then
        MsgBox "Tout est OK"
    Else
        MsgBox "Vérifier"
    End If
End Sub

Bonsoir

Une autre piste à tester

Sub Compte()
  If Application.CountIf(Range("A1:A20"), "ok") = 20 Then
    MsgBox "Tout est Ok"
  Else
    MsgBox "Il faut vérifier"
  End If
End Sub

Merci infiniment pour votre aide, mais la premiére macro marche bien

je veux bien savoir est ce que y'a moin de l'éxecuter avec une boucle

While cells(1,i)<> ""

Merci

Sub Compte()

Dim i As Long

i = InputBox("combien de dossier as tu ?")

If Application.CountIf(Range("A1:Ai"), "ok") = i Then

MsgBox "Tout est Ok"

Else

MsgBox "Il faut vérifier"

End If

End Sub

Mais ça ne veux pas s'exécuter ???

Thank you for help

Bonjour

Peut-être comme ça

Sub Compte()
Dim i As Long
  i = InputBox("combien de dossier as tu ?")

  If Application.CountIf(Range("A1:A" & i), "ok") = i Then
    MsgBox "Tout est Ok"
  Else
    MsgBox "Il faut vérifier"
  End If
End Sub