Discussion :

[moilou2]

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 :

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

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

[Gorfael]

Salut moilou2 et le forum

Code :

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

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+

[moilou2]

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

Code :

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

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: