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
Excel cellule couleur si condition texte - Guide
Transcription audio en texte word gratuit - Guide
Mettre un texte en majuscule - Guide
Texte barré whatsapp - Guide
Copier texte pdf - Guide

1 réponse

Réponse 1 / 1

M-12 Messages postés 1332 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 18 février 2025 285
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 1332 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 18 février 2025 285
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

copie de texte

Excel formule : savoir si une cellule contient partie texte

Excel si cellule contient texte alors...