Sujet Précédent Sujet Suivant

Ajouter du texte après un texte existant

Résolu
Paski - 28 juil. 2022 à 11:36
 Paski - 28 juil. 2022 à 12:10

Bonjour,

Je voudrais faire une macro qui permet d'ajouter ''-L-U.ASC'' après le text de la cellule d'une ligne paire de la colonne B et '-R-U.ASC'' après le text de la cellule d'une ligne impaire de la colonne B.

J'ai deja la macro pour ajouter le text mais je n'arrive pas a le faire que sur une ligne sur deux.

Sub EXTENTION()
Dim c As Range, Dl%
Dl = Range("B" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne B
'For Each c In Range("B1:B40")
If c.Value <> "" Then c.Value = c.Value & "-L-U.ASC"
Next
End Sub

Merci

Bonne journée


Windows / Chrome 103.0.0.0

1 réponse

Réponse 1 / 1
M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 297
28 juil. 2022 à 11:43

Bonjour,

Il suffit de rajouter la fonction STEP

For Each c In Range("B1:B40") Step 2
0
M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 297
Modifié le 28 juil. 2022 à 11:47

Soit

​
Sub EXTENTION()
Dim i%, Dl%
Dl = Range("B" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne B
For i = 2 To 40 Step 2
If Cells(i, 2).Value <> "" Then Cells(i, 2).Value = Cells(i, 2).Value & "-L-U.ASC"
Next
End Sub

​
1
Paski
28 juil. 2022 à 12:10

Cool merci beaucoup du coup de main

0