XL 2019 VBA sélection via combobox

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,C1622,E25:C29,B32:E36,C39:E52].ClearContents ' Effacement des données existantes
'[B513,B1622,B2529,B3236,B3952].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

Vous ne répondez jamais aux questions ?

Voir PJ. Je pense que c'est corrigé, en particulier dans Synthèse Le nom est en E1, non en D1.

Bonsoir Sylvanu,

J'ai pu bien avancer mon projet grâce à vous. L'onglet PIAF fonctionne parfaitement avec vos codes.
Mais malgré vos aides précédentes , l'onglet synthèse reste inactif...

Pourriez- vous svp finaliser celui-ci selon le descriptif situé dans ce même onglet ?
J'ai bien compris que vous êtes bénévoles , mais svp donnez moi la solution.
Moi aussi je suis bénévole dans une association( caritative) et ce projet nous aidera bien à gérer ce qui est réellement de ma compétence. Effectivement le vba , ce n'est pas mon domaine , vous vous en êtes aperçu et ne m'en cache pas.
J'espère pouvoir compter sur vous.
Merci