XL 2019 VBA sélection via combobox

Katoch

XLDnaute Junior
Bonjour / Bonsoir à toutes et tous du forum !

J'ai besoin de votre aide pour me réaliser le code vba qui me permettra de faire grandement évoluer mon fichier formation.
Je vous joins un fichier explicatif.
Merci par avance de votre aide.;)
 

Pièces jointes

  • Classeur1Katoch.xlsm
    23.8 KB · Affichages: 8

Katoch

XLDnaute Junior
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:D22,E25:C29,B32:E36,C39:E52].ClearContents ' Effacement des données existantes
'[B5:D13,B16:D22,B25:D29,B32:D36,B39:D52].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
 

Pièces jointes

  • FM Formation V2.xlsm
    199.6 KB · Affichages: 1

Katoch

XLDnaute Junior
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
 

Pièces jointes

  • Katoch FM V1.xlsm
    174.5 KB · Affichages: 2

Statistiques des forums

Discussions
312 329
Messages
2 087 333
Membres
103 519
dernier inscrit
Thomas_grc11