B
BRUNO I
Guest
Bonjour le forum,
L'aube va bientôt se lever, j'entends déjà les coqs chanter et je n'arrive pas à résoudre mon problème pourtant simple :
une colonne de références à traiter dans une colonne , au final si la référence fait moins de 9 caractères, je dois rajouter des compléments avec d'autres.
Ca marche plutot pas mal, mais la valeur affichée est systématiquement la dernière. Mon tab arr2 ne retient pas les valeurs précedentes.
(redim préserve à utiliser , enfin je ne sais pas...).
D'avance merci à ceux ou celles qui pourront m'aider
Voici le code :
Dim Arr1, Elt, Arr2
If UserRange.Columns.Count > 1 Then Exit Sub
Arr1 = UserRange.Value
For Each Elt In Arr1
MyLen = Len(Elt): Ad = 9 - MyLen
Arr2 = Elt & Right("exemple", Ad)
Next
Dest.Resize.Value = Application.Transpose(Arr2)
Unload UserForm1
End Sub
L'aube va bientôt se lever, j'entends déjà les coqs chanter et je n'arrive pas à résoudre mon problème pourtant simple :
une colonne de références à traiter dans une colonne , au final si la référence fait moins de 9 caractères, je dois rajouter des compléments avec d'autres.
Ca marche plutot pas mal, mais la valeur affichée est systématiquement la dernière. Mon tab arr2 ne retient pas les valeurs précedentes.
(redim préserve à utiliser , enfin je ne sais pas...).
D'avance merci à ceux ou celles qui pourront m'aider
Voici le code :
Dim Arr1, Elt, Arr2
If UserRange.Columns.Count > 1 Then Exit Sub
Arr1 = UserRange.Value
For Each Elt In Arr1
MyLen = Len(Elt): Ad = 9 - MyLen
Arr2 = Elt & Right("exemple", Ad)
Next
Dest.Resize.Value = Application.Transpose(Arr2)
Unload UserForm1
End Sub