VBA - Concatener une plage de cellule

, par  admin

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

Un peu de théorie... Tous les cours théoriques