Boucle infini

[Malone]

Bonjour,

je n'arrive pas à placer correctement ma condition pour que la boucle s'arrête:

    Range("B3").Select
Do While ActiveCell <> "total"
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Selection.End(xlDown).Select

Le problème est que je fais une copie valeur de mon TCD mais l'intitulé n'est pas répété, par la suite je doit faire une recherche de date en fonction du code précédent. C'est pour cele que je dois copier le code partout en face des dates.

J'aimerai que la copie s'arrête en arrivant sur la cellule "Total"

Merci de votre aide

Malone

 

[Malone]

Re : Boucle infini

ohlala je fonçais tellement tête baissé que je n'ai pas remarqué ça! Merci

 

[ROGER2327]

Re : Boucle infini

Bonjour à tous

Ça s'arrange aussi comme ça pour ne pas recopier le formatage des cellules :

Sub Macro4()
    Range("B3").Select
    Do While ActiveCell <> "Total"
        Selection.Copy
        Range(Selection, Selection.End(xlDown).Offset(-1, 0)).PasteSpecial Paste:=xlPasteValues
        Selection.End(xlDown).Select
    Loop
End Sub

Bonne nuit !
ROGER2327

 

[JNP]

Re : Boucle infini

Bonjour le forum 🙂,
Un petit truc pour s'affranchir de la casse :

Do While UCase(ActiveCell) <> UCase("total")

Bonne journée 😎

 

[Malone]

Re : Boucle infini

Merci pour vos réponses complémentaires, on en apprend toujours un peu plus à chaque question.

Bonne journée