VBA Amélioration macro fichier association

david84 à dit:

Re
Bon, résultat pas brillant pour l'instant : j'ai créé l'USF Sections qui s'ouvre lorsque "omnisport " est sélectionné et "asso" est non vide mais ensuite je bloque.
Ce que j'essaie ensuite de faire :
a- dans la textBox "association", à l'exit,charger les asso ayant le même nom que le nom de l'asso sélectionnée (en se servant de Find ?)
Oui. Le plus simple est de modifier la fonction Filtre

Code:

Function Filtre2(ZoneRecherche As Range, ZoneRéponse As Range, Recherche As String) As Range
With ZoneRecherche
    Set C = .Find(Recherche, lookat:=[COLOR=red][B]xlPart[/B][/COLOR])
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
            If Filtre Is Nothing Then
                Set Filtre = ZoneRéponse(C.Row - 1)
            Else
                Set Filtre = Union(Filtre, ZoneRéponse(C.Row - 1))
            End If
            Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address <> firstAddress
    End If
End With
End Function

qui va te renvoyer les cellules qui contiennent le nom de l'assoc ou plus. La ruse est que ZoneRecherche = ZoneRéponse, pour chercher dans les associations les associations . Après, tu peux utiliser AddItem pour remplir ta ListBox avec toutes les cellules de la plage, sauf le nom de l'assoc tout court
b- dans la texBox "ListSections"de l'usf "gestion asso", faire apparaître cette liste des assos ayant le même nom;
Traité en a-
c- lorsque je sélectionne l'un des noms, les renseignements apparaissent dans les champs à gauche.
Là je vois pas . Tu as une ListeBox (déclarée en MultiSelect), avec le clic, tu sélectionnes ou désélectionnes les associations que tu souhaites. Et tu les renvois vers l'USF1 en tableau quand tu as finis. Du coup, la modification va se faire sur tous les champs renseignés, pour les associations sélectionnées seulement .
Bon déjà, est-ce que la démarche est OK ou je pars dans une mauvaise direction ?
Il n'y a pas de mauvaises directions, juste des détours
Ensuite, quand j'essaie d'utiliser Find, je bloque. L'enregistrement d'une macro en se servant de "rechercher et sélectionner" ne me donne pas d'indications particulière.
Le problème, c'est qu'il faut Find ET FindNext (comme dans la fonction Filtre)
Là, je n'ai pas compris quel était le but
J'ai essayé d'inclure dans Créer_Click

Code:

Set AChercher = Range("Tableau4[ASSOCIATIONS]").Find(Association.Text, lookat:=xlWhole)

mais cela n'a pas d'incidence.
Logique, tu as juste rempli (ou non) AChercher, donc maintenant, il te faut un test : AChercher Is Nothing (or not ?) .
Je te joins le fichier pour que tu puisses voir l'usf et me dire à quelle étape je coince, mais sans me donner la solution tout cuit:. (désolé mais même en .xml, je suis obligé de le zipper.
C'est pas grave, par contre, je n'aurai pas le temps aujourd'hui ...
Ne fais pas attention à la feuille test, j'ai simplement testé par formules comment sélectionner les sections correspondantes à l'asso sélectionnée en Q1 pour essayer de comprendre (en formules, pas de soucis, mais bon cela ne m'a pas aidé à y arriver par VBA).
Avec les explications au dessus, ça devrait aller . Quand tu veux mieux comprendre VBA, l'idéal, c'est de faire des tests intermédiaires avec MsgBox (attention à ne pas être dans une boucle de 200 ou + ) pour voir le résultat obtenu. Pour une plage, tu peux soit faire un MsgBox Plage.Address ou un Plage.Select.

Cliquez pour agrandir...

1) Ne plus griser Créer et vérifier à la place (avec Find dans Créer_Click) si le nom de l'association existe déjà

Cliquez pour agrandir...

J'avais prévu initialement (pour éviter tout doublon) que dès que l'Association était existante, Créer devenait grisée pour ne pouvoir que modifier ou supprimer.

Cliquez pour agrandir...

Maintenant qu'une association "Machin" peut se décliner en "Machin Foot" et "Machin Hand", il faut bien, ne serait-ce que pour pouvoir ajouter "Foot" par exemple, que Créer ne soit pas grisé dès que "Machin" est sélectionné

Cliquez pour agrandir...

Du fait, le contrôle de doublon n'étant plus effectué dès la sélection de l'association, il faut le tester autrement, donc forcément lors de la création (Créer_Click), et le plus sûr moyen est de regarder si .Find trouve la même association dans la BD à la virgule près

Cliquez pour agrandir...

Quand tu veux mieux comprendre VBA, l'idéal, c'est de faire des tests intermédiaires avec MsgBox (attention à ne pas être dans une boucle de 200 ou + ) pour voir le résultat obtenu. Pour une plage, tu peux soit faire un MsgBox Plage.Address ou un Plage.Select.

Cliquez pour agrandir...

david84 à dit:

Pourquoi pas effectivement mais dans les faits, lorsque le collègue rentre une nouvelle section, il crée une fiche complète car la plupart de temps la majorité des infos changent (pas la même discipline, nom (puisque la discipline est accolée à "section"), adresse, mail, tel,...), c'est pour cela que je ne comprenais pas l'intérêt...ceci-dit, Créer ne doit plus être grisé uniquement lorsque "omnisport" est sélectionné si j'ai bien compris ?
On peut le dégriser tous le temps à partir du moment où on va contrôler à la création. L'intérêt pour moi est double : si on part de l'association "Machin", on a peu de risque de se retrouver avec une association "Machine Foot" ou "Le Machin Foot" . D'autre part, la ville (et le CP, le Fax) doit quand même être commune, et il faut faire attention à ce que le changement de discipline n'efface pas le reste .
Je comprends ce que tu veux dire mais comme je n'ai pas l'habitude (en fait quand cela plante, je ne sais pas comment faire la distinction entre les différents types d'erreurs possible. Y-a-t-il des outils à connaître pour cela ?
Les différents types d'erreur sont répertoriés dans l'aide, même si ça n'éclairci pas toujours les choses ...
Le F8 associé aux points d'arrêts permet de voir l'évolution des variables et de comprendre d'où vient l'erreur.
Enfin, une des erreurs les plus fréquentes, quand il manque un End If mais qu'il y a un End With ou réciproquement, suivant l'ordre des instructions, c'est souvent que c'est ce qui va bien qui est proposé par le débogueur et non l'autre

Cliquez pour agrandir...