Ajouter du texte après un texte existant

Résolu

Paski -
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

Afficher la suite

A voir également:

Ajouter du texte après un texte existant
Transcription audio en texte word gratuit - Guide
Excel cellule couleur si condition texte - Guide
Mettre un texte en majuscule - Guide
Texte barré whatsapp - Guide
Traitement de texte gratuit - Guide

1 réponse

Réponse 1 / 1

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 285

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 Statut Membre Dernière intervention 285

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

Cool merci beaucoup du coup de main

Discussions similaires

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

Excel formule : savoir si une cellule contient partie texte

copie de texte

Message de donation

Votre réponse

Discussions similaires