Ajouter du texte après un texte existant

Résolu
Paski -  

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

  1.  M-12

    Bonjour,

    Il suffit de rajouter la fonction STEP

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

    0
    1. M-12

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

      Cool merci beaucoup du coup de main

      0

Discussions similaires

Excel formule : savoir si une cellule contient partie texte
plunderer007

14 réponses