Bonjour à tous,
Malgré une recherche sur le forum, je bloque sur une syntaxe, j'ai essayé pas mal de trucs sans succès ...
Voilà mon souci:
Ce code fonctionne très bien, il concatene le contenu de plusieurs cellules dans une seule
(je passe par une macro simplement parce qu'avec une formue =CONCATENER je ne peux pas dépasser 255 carractères)
Mainenant, pour simplifier le code, je souhaite passer par une boucle FOR, et il me manque un petit quelque chose pour que ça fonctionne au poil ..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Sub Macro1() Range("Q4").Select ActiveCell.FormulaR1C1 = [B4] & [E4] & [C4] Range("Q5").Select ActiveCell.FormulaR1C1 = [B5] & [E5] & [C5] Range("Q6").Select ActiveCell.FormulaR1C1 = [B6] & [E6] & [C6] ' etc jusqu'au range 129 End Sub
Donc, ce code ne fonctionne pas, mais c'est dans l'idée:
Pour info, cette partie est OK, j'ai testé:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Sub Macro1() For i = 4 To 129 Range("Q" & i).Select ActiveCell.FormulaR1C1 = [Bi] & [Ei] & [Ci] Next i End Sub
C'est "juste" cette syntaxe qui coince:
Code : Sélectionner tout - Visualiser dans une fenêtre à part Range("Q" & i).Select
j'ai passé 2h à tenter d'autres syntaxe mais la je déclare forfait
Code : Sélectionner tout - Visualiser dans une fenêtre à part [Bi] & [Ei] & [Ci]
Si une ame charitable passe dans le coin, je suis preneur, merci d'avance !!!
Partager