VBA – Concatener une plage de cellule

Bonjour,

Dans ce tuto, je vais vous apprendre à concaténer une plage de cellule de manière plus simple (à mon sens) que la création de fonctions.

Nous disposons d’une plage de cellule dynamique sur la colonne A de notre classeur.
Cette plage débute en A1 et se termine en Ax, ou x représente le numéro de la dernière ligne non vide.

Je vous propose de déterminer le nombre de ligne en affectant à la cellule O1 par exemple la fonction suivante :

ThisWorkbook.Worksheets("page").Range("O1").FormulaLocal = "=SOUS.TOTAL(3;A:A)"

le résultat nous renvoi une valeur de type integer que nous allons donc déclarer :

dim nb As Integer

Nous affectons ensuite la valeur du résultat à cette variable :

nb = ThisWorkbook.Worksheets("page").Range("O1").Value

Il nous reste plus qu’à boucler sur chaque cellule de la plage et récupérer le résultat dans une cellule : ( la cellule 1,2, soit B1 dans notre cas)


For i = 1 To nb
Cells(1, 2) = Cells(1, 2) & " " & Cells(i, 1)
Next


Enjoy

Classés dans :VBA

Cet article a été écrit par admin