Snoopy6102000
XLDnaute Junior
Bonjour à tous, j'utilise pas mal les boucle et les conditions. Je repart toujours de mon modèle pour les modifier. Cependant, là je ne comprends pas pourquoi cela ne marche pas.
Je met ci-joint mon fichier. C'est une macro qui correspond à la feuille "débit", elle est dans le module 5 et je l'ai recopiée en module 6 (et simplifiée) pour essayer de comprendre mon erreur.
J'ai créé un lien car ça passe pas en pièce jointe (extension?)
http://cjoint.com/?0FzovZD4ezm
Je vous recopie ici la macro simplifiée
Sub test()
B = 8
Set ChercheGlobal = Sheets("Débit").Cells(B, 20)
Set ArrêtChercher = Sheets("Débit").Cells(B, 2)
Set IndiqueB = Sheets("CTRL")
Do While ArrêtChercher <> ""
With Sheets("Débit").Range("A8:U34")
Set trouvé1 = .Find(ChercheGlobal)
If trouvé1 <> "" Then
IndiqueB.Select
Sheets("CTRL").Copy After:=Sheets(Sheets("Débit").Cells(B, 2).Value)
ActiveSheet.Name = "PV-" & Sheets("Débit").Cells(B, 2).Value
End If
End With
B = B + 1
Set ChercheGlobal = Sheets("Débit").Cells(B, 20)
Set CherchePièces = Sheets("Débit").Cells(B, 21)
Set ArrêtChercher = Sheets("Débit").Cells(B, 2)
Set IndiqueB = Sheets("CTRL")
Set IndiqueC = Sheets("CTRL-P")
Loop
Sheets("Débit").Select
End Sub
- - - -
En fait il s'agit surtout d'un problème autour de ma condition, car j'avais commencé avec trouvé1 ="X" , qui est ma condition "normale", mais il n'en veut pas, et passe directement à la suite, même si X est bien dans la cellule concernée. Le numéro de colonne est bon.
Merci d'avance pour votre aide!
Je met ci-joint mon fichier. C'est une macro qui correspond à la feuille "débit", elle est dans le module 5 et je l'ai recopiée en module 6 (et simplifiée) pour essayer de comprendre mon erreur.
J'ai créé un lien car ça passe pas en pièce jointe (extension?)
http://cjoint.com/?0FzovZD4ezm
Je vous recopie ici la macro simplifiée
Sub test()
B = 8
Set ChercheGlobal = Sheets("Débit").Cells(B, 20)
Set ArrêtChercher = Sheets("Débit").Cells(B, 2)
Set IndiqueB = Sheets("CTRL")
Do While ArrêtChercher <> ""
With Sheets("Débit").Range("A8:U34")
Set trouvé1 = .Find(ChercheGlobal)
If trouvé1 <> "" Then
IndiqueB.Select
Sheets("CTRL").Copy After:=Sheets(Sheets("Débit").Cells(B, 2).Value)
ActiveSheet.Name = "PV-" & Sheets("Débit").Cells(B, 2).Value
End If
End With
B = B + 1
Set ChercheGlobal = Sheets("Débit").Cells(B, 20)
Set CherchePièces = Sheets("Débit").Cells(B, 21)
Set ArrêtChercher = Sheets("Débit").Cells(B, 2)
Set IndiqueB = Sheets("CTRL")
Set IndiqueC = Sheets("CTRL-P")
Loop
Sheets("Débit").Select
End Sub
- - - -
En fait il s'agit surtout d'un problème autour de ma condition, car j'avais commencé avec trouvé1 ="X" , qui est ma condition "normale", mais il n'en veut pas, et passe directement à la suite, même si X est bien dans la cellule concernée. Le numéro de colonne est bon.
Merci d'avance pour votre aide!