Vérifier le contenu d'une celulle

Bonjour,

Dans le cadre d'un projet je dois finir mon programme par une méthode que je n'arrive pas à résoudre

J'ai une feuille (feuil2) qui peut avoir dans ça colonne A, 0, une ou plusieurs fois le contenu "HB" et je voudrais que quand la boucle trouve "HB" la ligne associé soit copié et ajouté a la feuille 1.

Je devrais me débrouiller pour l'ajout de la ligne c'est seulement pour rechercher "HB" que je bloque

Merci !

Salut

Sans le fichier c'est difficile,

surement qq chose dans ce genre

Sub test()

Dim lig As target

For lig = 1 To 100

If Cells(lig, 1) = "HB" Then

End Sub

Apres le then, le reste de ton code pour copier et mettre la cellule en feuil1

Il ne comprend le type "target" c'est une méthode à installer ou ?

non c'est moi qui me suis trompé, met

as long

ou

as integer

Bonjour,

Un fichier exemple serait plus clair.

1) La valeur cherchée est en colonne A et en Colonne O ?

2) Une ou plusieurs fois ? dans la même cellule ou dans la même colonne ?

3) La cellule contiendra "HB" uniquement ou HB est ecrit avec d'autres infos ?

4) HB est le texte cherché pas l'info qui se trouvera dans la colonne "HB" ?

Numéro 2 a écrit :

non c'est moi qui me suis trompé, met

as long

Bonjour N° 2 je vais vous rétrograder ... manque aussi le "Next" avant le end sub si il y un For il faut un Next

Effectivement, mille excuse ô grand Xmenpl

manque aussi le end if mais c'est le genre de truc que j'oublie tout le temps mais qui du coup sont rappeler directement lors de l'exécution ^^

ps: faut aussi dire que c'était l'heure d'aller manger alors ...

J'ai lié un fichier exemple dans le post juste au-dessus :)

D'aprés l'exemple c'est bien ce que pensait N°2

HB est écrit seul dans une des cellules de la colonne A.

La macro serait donc dans le même style :

Sub Macro1()
'Declaration dernière ligne feuille 1
Dim derligne As Long

For i = 2 To 100 ' adapter 100 au nombre de lignes Feuil2 de votre original
If Worksheets("Feuil2").Range("A" & i).Value = "HB" Then
derligne = Worksheets("Feuil1").Range("A65536").End(xlUp).Row + 1
Worksheets("Feuil1").Rows(derligne & ":" & derligne).Value = Worksheets("Feuil2").Rows(i & ":" & i).Value
End If
Next i

End Sub

Nota pas besoin d'un copié collé quand la valeur est trouvée on écrit juste.

"Dernière ligne de la feuille1 = Ligne trouvée de la feuille 2

C'est parfait Xmenpl
Merci !