Boucle For Each ou compteur

**filiph79** · 08/12/2016, 09h08

Bonjour le Forum,

je dois recréer un nouveau code a partir de 2 Colonne en gérant le nombre de catactères de la première colonne.

j'ai écrit 2 Codes :

Code :

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

1
2
3
4
5
6
7
8
For Each C In Selection
    C.Value = Application.WorksheetFunction.Rept("0", 6 - Len(ActiveCell.Offset(0, -2).Value)) & ActiveCell.Offset(0, -2).Value & ActiveCell.Offset(0, -1).Value
Next C
 
For C = 1 To dernligne - 1
  ActiveCell.Value = Application.WorksheetFunction.Rept("0", 6 - Len(ActiveCell.Offset(0, -2).Value)) & ActiveCell.Offset(0, -2).Value & " " & ActiveCell.Offset(0, -1).Value
    ActiveCell.Offset(1, 0).Select
Next C

La Boucle compteur fonctionne, la boucle For EACH me met la même chose dans chaque cellule (le code de la première ligne)

JE ne comprends pas Pourquoi ?

pouvez vous m'aider Svp
Cordialement

Invité · 08/12/2016, 09h29

Pour qu'on vous réponde, il faudrait au moins avoir la politesse de répondre aux messages que vous avez déjà déposés disposition-colonne-taille-l-espacement

**filiph79** · 08/12/2016, 09h58

bonjour,

vous avez raison, désolé, je viens de le faire.

cordialement

**halaster08** · 08/12/2016, 11h16

Envoyé par filiph79

La Boucle compteur fonctionne, la boucle For EACH me met la même chose dans chaque cellule (le code de la première ligne)

JE ne comprends pas Pourquoi ?

pouvez vous m'aider Svp
Cordialement

Dans ta boucle for each, la cellule active ne change jamais.
Soit tu ajoute un C.select pour activer ta cellule a chaque tour de boucle, soit tu codes proporement et tu vires tout ces références a la cellule active qui sont inutiles