Question sur fonction formulaR1C1

Bonjour,

Je dois écrire la concatenation des 3 premieres colonnes en vba.

J'ai en code VBA:

Code:

---

Cells(i + 1, cpt).FormulaR1C1 = "=R[-1]C[-4]&"" ""&R[-1]C[-3]&"" ""&R[-1]C[-2]"

---

mais comme vous le voyez la colonne où j'écris la formule varie en fonction de la variable cpt. Du coup cela se decale et cela ne fait plus la concatenation des cellules des 3 premieres colonnes.

Comment puis je verrouiller les cellules dans la fonction formulaR1C1?

merci pour votre aide.

Les données de tes trois premières colonnes pour une ligne donnée changent-elles ? Autrement dit, tiens-tu à une formule ?
Si oui, utilise Formula

Code:

---

Cells(i + 1, cpt).Formula = "=SUM(" & Cells(i + 1, 1).Address(0, 0) & ":" & Cells(i + 1, 3).Address(0, 0) & ")"

---

Bonne journée

Bonjour,

Si j'ai bien compris, tu dois rajouter un espace entre la 1ère et la 2ème cellule, ainsi qu'entre la 2ème et la 3ème ?

Ce n'est pas simple... Je pense que le plus simple est de rajouter un espace à la fin de la chaine de caractères des 1ere et 2eme cellule, puis de concaténer les 3 comme suit :

Code:

---

ActiveCell.Formula = "=a" & i & "&" & "b" & i & "&" & "c" & i

---

Si ça ne fonctionne pas, dis-le moi....

Je t'ai mis la somme, pour concaténer,

Code:

---

Cells(i + 1, cpt).Formula = "=" & Cells(i + 1, 1).Address(0, 0) & " & " & Cells(i + 1, 2).Address(0, 0) & " & " & Cells(i + 1, 3).Address(0, 0)

---

Avec un espace, ça devrait donner

Code:

---

Cells(i + 1, cpt).Formula = "=" & Cells(i + 1, 1).Address(0, 0) & "&" & """ """ & "&" & Cells(i + 1, 2).Address(0, 0) & "&" & """ """ & "&" & Cells(i + 1, 3).Address(0, 0)

---

C'est parfait ça fonctionne :)

merci beaucoup!

Une derniere question,

si la cellule Cells(i + 1, cpt) contient déja quelque chose, est t'il possible de concatener dans celle çi à la suite de son contenue?

J'ai essayé en modifiant ta formule Ouskel'n'or mais comme je m'y attendais j'ai une erreure de référence circulaire.