Discussion :

[alex830001]

Bonjour,

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

J'ai en code VBA:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne journée

[jmh51]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[alex830001]

C'est parfait ça fonctionne

merci beaucoup!

[alex830001]

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.