boucle

**speslurp** · 01/10/2007, 13h03

Bonjour à tous!

J'ai un souci sur mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub macro2()
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
For x = DerniereLigne To 1 Step -1
 
If Not Range("C" & x + 1) = "" Then Range("A" & x & ":B" & x).Copy
 
    Do While Not Range("C" & x + 1).Value = ""
    x = x + 1
    Range("A" & x & ":B" & x).PasteSpecial
    Loop
 
Next
End Sub

apparement le probleme vient de Do While, je voudrai juste lui dire :

Tant que le contenu de la cellule ("C" & x +1) n'est pas vide x = x +1
et copy des cellules ("A" & x & ":B" & x).

Je sais que c'est une boucle dans une boucle, je sais pas si on a le droit..?

Merci de votre aide!

**Pierre Fauconnier** · 01/10/2007, 13h17

Salut.

Imbriquer un do while qui modifie le x testé dans la boucle for ...next n'est pas une bonne idée. De plus, tu réalises deux fois un test sur Cx alors qu'un seul suffit.

Essaie plutôt ceci:

Code :

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

1
2
3
4
 
For x = DerniereLigne To 1 Step -1
    If Not Range("C" & x + 1) = "" Then range("a" & x & ":b" & x).copy destination:=range("a" & x + 1)
next x

J'ai copié-collé directement car tu ne réalises pas de pastespecial.

Précise si tu dois effectuer un collage spécial.
Si oui, tu pourras utiliser

Code :

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

1
2
3
4
5
6
7
 
For x = DerniereLigne To 1 Step -1
    If Not Range("C" & x + 1) = "" Then 
        range("a" & x & ":b" & x).copy
        range("a" & x + 1).pastespecial ...
    end if
next x

en remplaçant les points de suspension par la constante voulue en fonction du collage spécial que tu souhaites réaliser.

Ok?

**speslurp** · 01/10/2007, 14h53

Merci pour la réponse si rapide!

J'ai bien noté ton code merci pour la rectification mais j'ai quand meme besoin d'une 2eme boucle, parce qu'avec une condition "if" le probleme c'est que ca s'arrete ou bout d'une fois moi je voudrai qu'il continue jusqu'a une cellule ("C" & x) non vide de ma colonne.

**speslurp** · 01/10/2007, 15h37

Voila le code refait et le code que je veux avoir mais qui ne marche pas..

Code :

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

1
2
3
4
5
6
7
8
9
10
 
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
For x = DerniereLigne To 1 Step -1
 
If Range("A" & x) = "" Then GoTo fin
 
If Not Range("C" & x + 1) = "" Then Range("A" & x & ":B" & x).Copy Destination:=Range("A" & x + 1 & ":B" & x + 1)
 
fin:
Next x

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
For x = DerniereLigne To 1 Step -1
 
If Range("A" & x) = "" Then GoTo fin
 
Do While Not Range("C" & x + 1) = ""
Range("A" & x & ":B" & x).Copy Destination:=Range("A" & x + 1 & ":B" & x + 1)
Loop
 
fin:
Next x

**fred65200** · 01/10/2007, 22h50

Je me semble que le problème vient de la boucle qui part du dernier élément pour terminer au premier.
Si tu es au dernier élément (départ de ta boucle), l'élément x+1 est de toute façon vide.

Je me trompe peut être.

Salutations

**LeForestier** · 02/10/2007, 06h01

Envoyé par speslurp

Voila le code refait et le code que je veux avoir mais qui ne marche pas..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    DerniereLigne = ActiveSheet.UsedRange.Rows.Count
    For x = DerniereLigne To 1 Step -1
 
        If Range("A" & x) = "" Then GoTo fin
 
        Do While Not Range("C" & x + 1) = ""
            Range("A" & x & ":B" & x).Copy Destination:=Range("A" & x + 1 & ":B" & x + 1)
        Loop
 
fin:
    Next x

Constatation... tant que la cellule Cx+1 n'est pas vide...
Si elle n'est pas vide ta boucle tourne indéfiniment
Je ne comprend pas le but de ta macro mais si tu veux la faire tourner il faut employer une variable supplémentaire..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    DerniereLigne = ActiveSheet.UsedRange.Rows.Count
    For x = DerniereLigne To 1 Step -1
 
        If Range("A" & x) = "" Then GoTo fin
        x1 = X + 1
        Do While Not Range("C" & x1) = ""
            Range("A" & x & ":B" & x).Copy Destination:=Range("A" & x + 1 & ":B" & x + 1)
            x1 = x1 + 1
        Loop
 
fin:
    Next x

Mais ta macro ne veux rien dire du tout, essaye d'expliquer avec des mots et non du code ce que tu veux faire.
A+

**Pierre Fauconnier** · 02/10/2007, 08h01

Envoyé par speslurp

Merci pour la réponse si rapide!

J'ai bien noté ton code merci pour la rectification mais j'ai quand meme besoin d'une 2eme boucle, parce qu'avec une condition "if" le probleme c'est que ca s'arrete ou bout d'une fois moi je voudrai qu'il continue jusqu'a une cellule ("C" & x) non vide de ma colonne.

Sauf erreur, mon If... End If ne modifie pas la boucle, et le décompte des x va de la dernière ligne à la ligne 1...

As-tu démarré ta macro en mode pas à pas pour vérifier les valeurs de x à l'entrée de la boucle et durant le déroulement de la macro?

Je rejoins LeForestier dans sa perplexité. Explique-nous en français ce que tu souhaites réaliser, et nous pourrons probablement mieux t'aider.

**speslurp** · 02/10/2007, 12h23

salut!
oki oki, je m'explique correctement :

j'ai 3 colonnes A,B,C dans la colonne C y'a des blocks aléatoire de date.
La colonne A : des chiffres et B du texte, tous ecrits sur juste une ligne et enfin la ligne des chiffres et des lettres sont sur la meme ligne du début d'un block de date. j'esprere que vous suivez!

**tirex28** · 02/10/2007, 12h30

Bonjour,

Essaye ceci, en adaptant la plage de cellules.

Code :

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

1
2
3
4
5
6
Sub Remplir()
    With Range("A1:C4").SpecialCells(xlCellTypeBlanks)
        .FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With
End Sub

Cordialement,

Tirex28/

boucle

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager