Concaténer avec double saut de cellule

saimone · 13 Juillet 2018

Bonjour, j'ai un tableau comprenant plus de 500 lignes et 20 colonnes.
Dans la colonne B, je souhaite concaténer "2_" et la valeur actuelle de la cellule 2 cellules sur 2
Par exemple B2=AAAA, B3=BBBBB, B4=CCCC, B5=DDDD, B6=EEEE, B7=FFFF B8=GGGG, B9=HHHH
B10=IIII, B11=JJJJ etc etc...
je souhaiterais avoir:
B2=2_AAAA
B3=2_BBBB
B4=CCCC
B5=DDDD
B6=2_EEEE
B7=2_FFFF
B8=GGGG
B9=HHHH
B10=2_IIII
B11=2_JJJJ

Etc etc sur les 500 lignes

Auriez vous une idée?

D'avance merci

pierrejean · 13 Juillet 2018

Bonjour Saimone

cette macro devrait faire le job

Code:

Sub ajout()
For n = 2 To Range("B" & Rows.Count).End(xlUp).Row Step 4
   Range("B" & n) = "2_" & Range("B" & n)
   Range("B" & n + 1) = "2_" & Range("B" & n + 1)
Next
End Sub

saimone · 13 Juillet 2018

Super cela à fonctionné à merveille.
Merci beaucoup
Bonne fin de journée, bon week end et bon match

JHA · 15 Juillet 2018

Bonjour à tous,
Bonjour PierreJean

Bien que ta proposition soit la meilleure, je poste un essai par formule pour celui que cela intéresse.
En "B2"

Code:

=SI(MOD(LIGNE();4)>1;GAUCHE($A2;CHERCHE("=";$A2))&"2_"&STXT(SUBSTITUE($A2;"=";"");CHERCHE("=";A2);99);$A2)

Suite à remarque de Jocelyn tout à fait justifiée car pas de "A=" en colonne A

Code:

=SI($A2="";"";SI(MOD(LIGNE();4)>1;"2_"&$A2;$A2))

JHA

Concaténer avec double saut de cellule

saimone

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

saimone

XLDnaute Nouveau

JHA

XLDnaute Barbatruc

Pièces jointes

Discussions similaires