Contenu récent par Pirlouit85

Oui c'est que j'ai fait même si je trouve ça un peu bizarre... Merci

Pardon, message un peu différent : impossible de supprimer les contrôles. Cette méthode ne peut être utilisée dans ce contexte

Bonsoir, Non : message d'erreur identique !!!!

Bonjour, Je crée des cases à cocher dans un formulaire que je souhaite ensuite supprimer. Mais impossible !!! Ci-dessous mon code : For Each Cb In FmCriteres.Controls If TypeName(Cb) = "CheckBox" Then Cb.Delete End If Next Cb Il me dit propriété ou méthode...

Merci et c'est vrai que ça facilite certains calculs notamment matriciels. Merci pour l'extraction : c'est beaucoup plus court que ce que j'essaye de mettre en place. Pour la LBx multicolonnes, je ne pense pas que ça puisse répondre à ma demande. Si je résume, voici ce que doit faire le...

Oui vous avez raison pour le nommage mais ce sont de vieilles habitudes... Je ne comprends pas : Qu'est ce que vous attendez pour couvrir d'un ListObject vos données ? Je vous joins le fichier sous un autre nom. Et je me penche sur la fonction SujMultiCol pour voir si c'est jouable. Merci

Merci pour votre retour mais j'ai un peu de mal à comprendre comment faire. Vous serait-il possible de faire un exemple sur mon fichier joint ? Sinon de m'éclairer sur constituer une liste de numéros de lignes où une colonne est renseignée ni 0 ni FAUX ? Mille mercis

J’ai une dernière question : est-il possible de conjuguer les ListBox avec des cases à cocher ? Une case à cocher par verbe soit une trentaine de cases. Exemple : je fais une case à cocher pour le verbe diriger qui peut se trouver sur plusieurs colonnes et automatiquement les ListBox sont...

Ok Les données s’arrêtent à 24 mais il regroupe toutes les lignes vides jusqu’à la fin du tableau mais effectivement c’est un choix possible. Autre question : l’extraction des données correspondant aux critères sélectionnés pourrait se faire par Données Avancée via VBA ou une autre solution...

Désolé pour le dernier post : dans les options il était demandé de s'arrêter sur toutes les erreurs ! J'ai remis sur les erreurs non gérés et ça marche ! OUPS !

Ca ne marche plus !!!!???? Dans la procédure Sub CombinTConsultOU(TConsult() j'ai l'erreur : l'indice n'appartient pas à la sélection sur : On Error Resume Next: LMnO = LBound(TConsult): LMxO = UBound(TConsult) Pourtant le On error resume next devrait me faire passer à la ligne suivante ??? Que...

J'ai ajouté quelques ListBox liées avec votre code. Mais dans 2 listbox j'ai (vide) qui apparaît en première ligne alors qu'aucune cellule n'est vide ! Je n'arrive pas à voir d'où ça peut provenir. Une idée

Chapeau ! C'est impressionnant J'essayais depuis ce matin par une autre méthode : passer, en vba, par Données Avancé (qui doit fonctionner mais assez long...) Reste à comprendre : If IsEmpty(SujFltFonc) Then SujFltFonc = SujBdDFonc 'SujFltFonc est vide et donc = SujBdDFonc On Error Resume Next...

Bonjour, Je viens de regarder votre fichier et je dois dire que je patauge... Ok pour Set RngDon = Intersect(Feuil3.[A5:AY1000000], Feuil3.UsedRange) qui sélectionne et nomme la plage de données RngDon La 2ème ligne remplit la ListBox Domaines en faisant appel à la fonction SujetCBx avec en...

Merci pour votre aide Je regarde le fichier demain et je vous donnerai des détails sur les informations à extraire. Une initialisation plus efficiente m’intéresse aussi..