[Ex-03] Boucle For Next et Do Loop imbriquées

Bonjour, voici ma question:

J'ai une colonne F avec des donnnées à 10 caractères, du type :
098289EB2234

Je voudrais reporter pour chacune des lignes, les données de la colonne F dans la colonne G, mais en troncaturant les données à 6 caractères en partant de la gauche, c'est à dire dans cet exemple 098289

Je pense qu'il faut utiliser une boucle du style:

Code:

---

1 2 3 4 5 6 7 8

Dim cel As Range For each cel in Range("g:g")   Set cellule=... Do until isempty cellule Set Cellule = Cellule.Offset(1, 0) Loop

---

Mais je ne sais pas où intégrer le code pour dire que la valeur des cellules de la colonne G, doit être égal à la valeur des cellules de la colonne F mais troncaturé après le 6è caractère en partant de la gauche!

Merci pour votre aide

Salut moilou2 et le forum

Code:

---

1 2 3 4 5 6 7

Sub test() Dim Cel As Range For Each Cel In Range([F1], [F65536].End(xlUp)) Cel.Offset(0, 1).NumberFormat = "@" Cel.Offset(0, 1) = Left(Cel, 6) Next Cel End Sub

---

Je suppose que le problème venait des 0 ?
A+

Par contre le fait de déterminer le format des cellules comme on a fait, c'est à dire:

Code:

---

NumberFormat = "@"

---

Sa me pose un problème au niveau du tri par la suite, parce que comme on a défini le format en "Texte" et que se sont des chiffres dans ces cellules, au moment du tri, j'ai le message d'erreur suivant: