Macro recopie de la formule jusqu'à cellule non vide

[Marjo2]

Bonjour à tous,

J'ai crée cette macro mais je ne comprends pas pourquoi la formule ne va pas jusqu'en bas de ma dernière cellule (équivalent de cliquer sur la cellule pour recopie automatique jusqu'en bas)

Sub Concatener()
Dim DerLig As Long
Worksheets("STOCK").Select
Columns("D😀").Select
Selection.Insert Shift:=xlToRight
Selection.ClearFormats
With Worksheets("STOCK")
DerLig = .Range("D65536").End(xlUp).Row
.Range("D1😀" & DerLig).FormulaR1C1 = "=CONCATENATE(RC[-3],"" "",RC[-2],"" "",RC[-1])"
End With
End Sub

Quelqu'un pour m'aider à prendre du recul svp ?

 

[herve62]

Bonjour
J'ai testé ta Sub dans un module VBE > pas de soucis cela fonctionne correctement

 

[Marjo2]

Je ne comprends pas non plus.
Ci joint une partie de mon fichier

 

[herve62]

Bon avec le fichier on comprend mieux
Pour tu fais un "Clearformat" sur D et ensuite tu cherches Derlig en D ??, là clear efface tout (pas sûr que ce soit normal , à vérifier) ton derlig est toujours à 1
Soit tu cherches derlig au début , soit tu testes avec autre col , A, B comme tu veux

 

[Marjo2]

Clearformat c'est parce que l'insertion de la colonne est en format texte et donc sur le coup la formule ne se calculer pas.

 

[Marjo2]

Mais merci effectivement en mettant sur A ça fonctionne beaucoup mieux 🙂