Sylvanu,
J'ai insérré une colonne dans la feuille de l'onglet SYNTHESE.
Je souhaite remplacer les textes de la colonne B , qui était A auparavant.
Je conserve donc les références pour votre macro en nouvelle col A.
Que faut-il modifier dans votre
Sub AnalyseSourceSYNTHESE()
pour qu'elle fonctionne à nouveau ?
merci de votre aide !
...Mais en vain... help please !
Sub AnalyseSourceSYNTHESE()
On Error GoTo Fin
Application.EnableEvents = False ' On invalide les events car on va écrire dans la page
T = [Tableau10] ' Transfert des données dans un Array pour être plus rapide
[C5:E13,C16
22,E25:C29,B32:E36,C39:E52].ClearContents ' Effacement des données existantes
'[B5
13,B16
22,B25
29,B32
36,B39
52].ClearContents
Application.ScreenUpdating = False
For Ligne = 4 To Range("A65500").End(xlUp).Row
If Left(Cells(Ligne, 1), 5) = "TITRE" Then 'Cells(Ligne, Colonne)
'If Left(Cells(Ligne, 1), 5) = "TITRE" Then
Titre = Trim(Cells(Ligne, 5)) ' Trim : Suppression des espaces (!)
For I = 1 To UBound(T, 2) ' Pour toutes les colonnes
If Trim(T(1, I)) = Titre Then ' Si c'est le bon Titre
ColTitre = I ' On mémorise la colonne
Exit For
End If
Next I
ExtraitDonnées ' On extrait les données et on les range
End If
Next Ligne
Fin:
Application.EnableEvents = True
End Sub