Je galère encore sur la modification du titre de mon tableau réel.
Étant donné que ce soit juste la fin de la colonne "Taxe ~" qui est changée à chaque fois, j'ai entrepris de créer une fonction qui trouverait la colonne à partir du préfixe Taxe puis en modifierait le nom avec le nouveau nom newName construit. Voici le code :
Côté feuille, j'ai écrit :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As Boolean
Application.ScreenUpdating = False
t = RenomerColonne("Taxe ", "Taxe " & Range("taxe") & "%")
Application.ScreenUpdating = True
If t Then msgBox("Un titre du tableau a été modifié")
EndIf
End Sub
Et côté module, j'ai mis ce code :
Public Function RenomerColonne(TitreColonne as string, newName as string) As Boolean
Dim Cellule As Range
RenomerColonne = False
With ActiveSheet.ListObjects(1)
For Each Cellule In .HeaderRowRange
If InStr(Cellule.Value, TitreColonne) Then
Cellule.Value = "" & newName
RenomerColonne = True
End If
Next
End With
End Function
Cela fait, Excel plante à chaque modification de la Catégorie liée au tableau.
NB : Malheureusement, je n'arrive pas à uploader mon fichier sur le forum. Peut-être un épisode manqué de la charte du forum...