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

Usine à gaz · 14 Novembre 2020

Bonjour à toutes et à tous,

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

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,

mapomme · 14 Novembre 2020

Bonjour @Usine à gaz

Essayer :

VB:

Sub Macro1()
   With Range("a2:a" & Cells(Rows.Count, "b").End(xlUp).Row)
      .Formula = "=TEXT(RC[1],""00000"")&"" ""&RC[2]"
      .Value = .Value
   End With
End Sub

mapomme · 14 Novembre 2020

Bonjour @Usine à gaz

Essayer :

VB:

Sub Macro1()
   With Range("a2:a" & Cells(Rows.Count, "b").End(xlUp).Row)
      .Formula = "=TEXT(RC[1],""00000"")&"" ""&RC[2]"
      .Value = .Value
   End With
End Sub

Usine à gaz · 14 Novembre 2020

Bon jour mapomme,

Super nickel, merci à toi
lionel,

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

mapomme

mapomme

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires