Concaténer avec double saut de cellule

[saimone]

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]

Bonjour Saimone

cette macro devrait faire le job

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]

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

 

[JHA]

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"

=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

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

JHA