Discussion :

[jackborogar]

* Bonjour, *

J'aimerai faire une boucle qui me dis :
- Si chiffre dans la colonne B supérieur à l'année actuel et si le nom que l'on tape dans un textbox = true dans la colonne C

- ALors on supprime cette ligne

- Le faire tant que le "si" est vrai


voilà se que j'ai fait mais je m'embrouille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For i = 9 To 5000
 
             Set Rg3 = Sheets("Bilan").Range("C:C").Find(what:=UserForm4.TextBox1.Text, lookat:=xlWhole)
 
 
             If Sheets("Bilan").Range("B" & i).Value > CStr(Year(Now)) &  Rg3 = true Then
 
                Sheets("Bilan").Row(i).Delete
 
 
            'End If
 
        Next i

Ca ne fonctionne pas je sais pas pourquoi !

* Merci *

[ZebreLoup]

Alors :
- Le Set Rg3 n'a pas besoin d'être dans la boucle
- Le & devant Rg3 = True doit être remplacé par un And
- Ne pas mettre le End If en commentaire

Fais déjà ça, on verra ensuite ce qui ne va pas.