Condition if plage("a1:a10") =1
bonjour, est-ce possible de faire une condition sur une plage?
je cherche le nombre 1 dans une plage ("a1:a10") ce que je voudrais, c'est que si il n'y a pas de 1, donc que des 0, que la macro arrête. Est-ce possible de dire à la macro: si toutes les cellules vérifiées = 0 alors exit sub?
voici un bout de code que j'ai essayé mais sans succès.
Range("a1").Select
Set plage = ActiveSheet.Range("a1:a" & Ligne) '10 dans ce cas-ci
ctext = "1"
For Each Cellule In plage
If Cellule.Value = ctext Then
GoTo 1
Else
ActiveCell.Offset(1, 0).Select
End If
Next Cellule
If ActiveSheet.Range("a1:a" & Ligne) = 0 Then 'naturellement, cette ligne ne fonctionne pas.
exit sub
End If
J'ai regarder pour un tableau mais je n'y arrive pas plus.
merci de votre!
bonsoir,
essaie ceci
If Application.CountIf(Range("a1:a" & Ligne), 1) = 0 Then exit submerci pour la réponse. J'ai finalement trouvé cela:
Set plage = ActiveSheet.Range("bp6:bp" & Ligne2)
ctext = "1"
For Each Cellule In plage
If Cellule.Value = ctext Then
GoTo 1
MsgBox Cellule.Value
Else
ActiveCell.Offset(1, 0).Select
End If
Next Cellule
Valeur = WorksheetFunction.Sum(Range("bp6:bp10" & Ligne2))
If Valeur = 0 Then
GoTo 2
End If
Je fais une simple addition.
merci pour l'aide.