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