Bonjour,
J'ai ce code qui ne fonctionne pas et je m'arrache les cheveux depuis 2 heures à éplucher le forum et comprendre mon problème...
Le but, c'est de passer en revu chaque ligne dans la colonne "B" et de trouver si la valeur "PARIS" y est affectée. Si c'est le cas, ça copie la ligne entière dans la 1ere cellule de ma feuille courante.
Mon problème est une erreur d'incompatibilité sur cette ligne :
Je ne comprends pas ce qui cloche ...
Plz help
J'ai ce code qui ne fonctionne pas et je m'arrache les cheveux depuis 2 heures à éplucher le forum et comprendre mon problème...
Private Sub CommandButton1_Click()
Dim cellule As Range
For Each cellule In ThisWorkbook.Worksheets("ESSAI").Range("B1").EntireColumn
If cellule.Value = "PARIS" Then
cellule.EntireRow.Copy
ThisWorkbook.Worksheets("Feuil2").Range("A1").PasteSpecial
End If
Next cellule
End Sub
Le but, c'est de passer en revu chaque ligne dans la colonne "B" et de trouver si la valeur "PARIS" y est affectée. Si c'est le cas, ça copie la ligne entière dans la 1ere cellule de ma feuille courante.
Mon problème est une erreur d'incompatibilité sur cette ligne :
If cellule.Value = "PARIS" Then
Je ne comprends pas ce qui cloche ...
Plz help