Inserer des caracteres au debut

romainchu78 · 12 Janvier 2010

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 · 12 Janvier 2010

Re : Inserer des caracteres au debut

="ce que vous voulez"&cells

Pierrot93 · 13 Janvier 2010

Re : Inserer des caracteres au debut

Bonjour Romain

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

Code:

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 · 13 Janvier 2010

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

Code:

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

Inserer des caracteres au debut

romainchu78

XLDnaute Occasionnel

romainchu78

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Dull

XLDnaute Barbatruc

Discussions similaires

Inserer des caracteres au debut

romainchu78

XLDnaute Occasionnel

romainchu78

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Dull

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency