Si la colonne contient alors

Salut à tous.

Je bute sur un problème qui je pense ne doit pas être compliqué à résoudre. Je cherche simplement à dire :

Si Colonne B contient un 1 alors

J'ai essayé :

Dim L as integer

L = 1

If Cells(L, 2) = 1 Then

Mais ça ne fonctionne que si il y'a un 1 en B1, si le 1 se trouve en B6 ou B8 et autre, la macro ne va rien trouver.

Quelqu'un a une idée ?

Merci

Salut azertym

C'est normal tu utilise uniquement la Cellule B1

Puisque tu donne une valeur à L. J'utiliserai plus Columns("B:B")

Corentin

Bonjour

essayes

Option Explicit

Sub Cherche()
Dim Cel As Range

  ' La recherche doit correspondre avec le contenu de la cellule
  ' Le sera trouvé que si la cellule contient 1
  ' Set Cel = Columns("B").Find(what:=1, LookIn:=xlValues, lookat:=xlWhole)

  'La recherche doit correspondre avec une partie contenu de la cellule
  ' Le 1 sera trouvé si la cellule contient 201
  Set Cel = Columns("B").Find(what:=1, LookIn:=xlValues, lookat:=xlPart)
  If Not Cel Is Nothing Then
    MsgBox "Trouvé à la ligne " & Cel.Row
  Else
    MsgBox "Non trouvé"
  End If
End Sub

Bonjour,

Tu veux que la macro se déclenche pour chaque ligne à 1 ou seulement 1 fois du moment qu'il y a un 1 dans la colonne ?

Pour un déclenchement du moment qu'il y a une fois 1 :

If Application.WorksheetFunction.CountIf(Range("B:B"), 1) > 0 Then
'ton traitement
end if

Si tu veux un traitement par ligne à 1, ton code était bon mais il faut faire une boucle sur toutes les cellules de la colonne :

Dim L as integer
L = 1
for L = 1 to Range("B65356").End(xlUp).row
    If Range("B" & L) = 1 Then 
          ' ton traitement
   end if
next L

Cordialement,

Super ! J'ai essayé tout vos codes pour voir, et ils fonctionnent tous, donc merci à vous c'est exactement ce que je cherchais !

Zirak, tu as répondu à une question que je n'avais pas posé ce qui a résolu un autre de mes problèmes

J'avais besoin de ce code :

If Application.WorksheetFunction.CountIf(Range("B:B"), 1) > 0 Then
'ton traitement
end if

Pour une autre de mes macros .