Inserer des caracteres au debut

[romainchu78]

bonjour a tous,
je souhaiterais sur une colonne de donnees, inserer des caracteres au debut.
par exemple: la colonne A contien les donnees suivantes A1: 012, A2: 325, A3:658, etc
la macro va me donner A1: F7X-012, A2: F7X-325, A3:F7X-658, etc.

Merci a tous

 

[romainchu78]

Re : Inserer des caracteres au debut

="ce que vous voulez"&cells

 

[Pierrot93]

Re : Inserer des caracteres au debut

Bonjour Romain

essaye peut être le code ci-dessous, s'appliquera à la feuille active :

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    c.Value = "F7X-" & c.Value
Next c
End Sub

bonne journée
@+

 

[Dull]

Re : Inserer des caracteres au debut

Salut romainchu78, Pierrot93, le Forum

le même code avec 3 tests supplémentaires

1/ Cellule Non Vide
2/ Cellule ne comportant pas déjà la chaine de caractères "F7X-"
3/ Cellule Non Numérique

Sub test()
Dim C As Range
Application.ScreenUpdating = False
For Each C In Range("A1:A" & Range("A65536").End(xlUp).Row)
    If C <> "" And Not C Like "F7X-*" And IsNumeric(C) Then C.Value = "F7X-" & C.Value
Next C
Application.ScreenUpdating = True
End Sub

Bonne Journée