XL 2013 Recherche de la lettre de la colonne d'une cellule

Ananas94 · 25 Janvier 2021

Bonjour,

J'ai 2 tableaux : un avec des données et un autre avec des moyennes de ces données. Tout est trié par année. J'ai créé une macro qui modifie les tableaux pour un changement d'année ; donc qui ajoute une colonne à chaque tableau. J'aimerais aussi que les formules soient conservées, et correspondantes à la bonne colonne, et c'est là que je bloque. Il me faudrait la lettre de la colonne de la nouvelle année. J'ai codé quelque chose mais j'obtiens un message d'erreur :"Variable object ou variable de bloc with non définie". Je ne comprends pas pourquoi j'ai ce message, car j'ai bien défini toutes mes variables...

VB:

    Dim Col_Cible%, Lettre_Col_Cible As String, Ligne As Range
    
    Col_Cible = NbCol_T_Moy + 3
    Ligne = LO_Moy.Range(2, NbCol_T_Moy + 1)
    
    Ligne.Find(What:=Col_Cible, LookAt:=xlPart).Activate
    Lettre_Col_Cible = Split(Selection.Address, "$")(1)

Quelqu'un aurait une idée ?
Vous trouverez en pièce jointe un classeur exemple.
Merci à vous

jpb388 · 27 Janvier 2021

Bonsoir à tous
essaye

VB:

Sub chercher_lettre_col()
      Dim Nb As Byte, Lettre_Col_Cible$
      Nb = Range("Tab_Moy").ListObject.ListColumns.Count + Range("Tab_Moy").Column - 1
    Lettre_Col_Cible = Split(Columns(Nb).Address(ColumnAbsolute:=False), ":")(1)
    MsgBox ("Lettre dernière colonne tab moyennes : " & Lettre_Col_Cible)
End Sub

jpb388 · 27 Janvier 2021

Bonsoir à tous
essaye

VB:

Sub chercher_lettre_col()
      Dim Nb As Byte, Lettre_Col_Cible$
      Nb = Range("Tab_Moy").ListObject.ListColumns.Count + Range("Tab_Moy").Column - 1
    Lettre_Col_Cible = Split(Columns(Nb).Address(ColumnAbsolute:=False), ":")(1)
    MsgBox ("Lettre dernière colonne tab moyennes : " & Lettre_Col_Cible)
End Sub

Ananas94 · 28 Janvier 2021

jpb388 à dit:

Bonsoir à tous
essaye

VB:

Sub chercher_lettre_col()
      Dim Nb As Byte, Lettre_Col_Cible$
      Nb = Range("Tab_Moy").ListObject.ListColumns.Count + Range("Tab_Moy").Column - 1
    Lettre_Col_Cible = Split(Columns(Nb).Address(ColumnAbsolute:=False), ":")(1)
    MsgBox ("Lettre dernière colonne tab moyennes : " & Lettre_Col_Cible)
End Sub

Merci beaucoup ça fonctionne super bien ! Bravo !

XL 2013 Recherche de la lettre de la colonne d'une cellule

Ananas94

XLDnaute Junior

Pièces jointes

jpb388

jpb388

XLDnaute Accro

Ananas94

XLDnaute Junior

Discussions similaires