Ajouter du texte après un texte existant

Résolu/Fermé

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

A voir également:

Ajouter du texte après un texte existant
Mettre un texte en majuscule - Guide
Excel cellule couleur si condition texte - Guide
Comment retranscrire un entretien audio en texte - Guide
Texte barré whatsapp - Guide
Texte argumentatif sur les avantages et les inconvénients du téléphone portable ✓ - Forum Mobile

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 299
28 juil. 2022 à 11:43

Bonjour,

Il suffit de rajouter la fonction STEP

For Each c In Range("B1:B40") Step 2

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
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

Paski
28 juil. 2022 à 12:10

Cool merci beaucoup du coup de main

Discussions similaires

Trouver le mot réellement écrit en lettres capitales PIX

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel si cellule contient texte alors...

copie de texte

Dépixeliser / déflouter un texte ?

Discussions similaires

Newsletters