Microsoft 365 appliquer formule sur col. A jusqu'à la dernière ligne NON VIDE de col. B

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Je n'arrive pas à faire une formule malgré mes recherches et tentatives :mad:

Contexte :
Dans le classeur test joint, j'ai une ch'tite formule pour concaténer en colonne A, les colonnes B et C.
Pour ça pas de souci.
VB:
Sub Macro1()
    [A2] = "=RC[1]&"" ""&RC[2]"
    [A2].Copy
    [A3:a33].Select
    ActiveSheet.Paste
    [A2:a33].Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A2").Select
End Sub
Je voudrais que la concaténation se fasse sur toutes les cellules de la Colonne A jusqu'à la dernière ligne NON VIde de la colonne B
Auriez-vous la solution ?
Un grand merci par avance,
Bon WE à toutes et à tous,
lionel,
 

Pièces jointes

  • liste_Secteurs2.xlsm
    125.5 KB · Affichages: 10

Discussions similaires

Statistiques des forums

Discussions
313 195
Messages
2 096 100
Membres
106 495
dernier inscrit
dylan.44