Ajout de caractères à la fin

Question

Bonjour à tous,

Je viens vous embêter avec une petite question.
J'ai une colonne A qui commence à A5 et peut aller jusqu’à A200 de façon variable, dans cette colonne j'ai plusieurs mots différents mais qui font tous 7 caractères. 
Je souhaite ajouter derrière ces mots un espace et - soit au total " -".
Pouvez-vous m'aider à réaliser cette opération ?

D'avance merci

cs_Le Pivert · Answer

Bonjour,

comme ceci:

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 5 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
       FL1.Cells(NoLig, NoCol) = Var & " -"
    Next
    Set FL1 = Nothing
End Sub
 

https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/

Ajout de caractères à la fin

1 réponse

Votre réponse

Discussions similaires