Résultats de la recherche

oui , c'est mieux je pense voici

re, euh non je me suis mal expliqué je ne veux ps recopier cette formule mais je cherche à faire la même recherche sans utiliser ma feuille excel car ma macro est beaucoup ralenti Merci pour ta réponse

Salut à tous ! je rencontre des difficultés à traduire cette formule excel :=NB(TROUVE(" "&{1;2;3;7;9;10}&" ";" "&Feuil6!$B3&" "))>1 en Vba Voila Merci à vous!

re, oui je confirme , juste j'essayer d'introduire la fonction gardercouple en me servant de t'es précédant code j'arrive difficilement à ça mais sans succès :mad: : Option Explicit Dim dicoexclu1 As Object, dicoexclu2 As Object, dicogarder As Object 'mémorise les variables Function...

re, job75, en réponse à la devinette je dirais (5 parmi 20) et (3 parmi 20) mais j'ajouterais -1 donc 189 pour éviter un résultat vide : non quand j'ai posé cette question je pensé à la limite que la macro peut prendre en charge avant de planter ? un grand Merci pour tout. A+

bonjours à tous , re job , ci-joint le ficher exemple avec des couples et des triples à exclure ( ps: pas de fonction garde pour l'instant) . pouvez-vous m'indiqué à combien de couples et de triples je-suis limité ? Merci encore de votre aides A+

re , oui effectivement ça fonctionne maintenant ( j'était loin de trouver cette erreur:confused:). Merci pour tout ces codes je n'aurais pas avancé de beaucoup sans ton aide .:). A++

oui, je vais essayer de garder les solutions poste 23 voir si je peux les modifier . bonne nuit également

re, job75 , ton dernier code poste 30 ne fonctionne pas je viens de remarquer Function Couple(x%, a%, Optional b%, Optional c%, Optional d%) As Boolean If dico.exists(a & " " & x) Then Couple = True: Exit Function If b = 0 Then Exit Function Else If dico.exists(b & " " & x) Then Couple = True...

re, Merci job75 . c'est parfait ! re Dranreb, merci pour t'as proposition de code mais je vais rester sur les propositions de job75 que je vais tenter de croiser pour avoir dans le même code: les couples à exclure et les couples à garder ça sera plus pratique je pense . et c'est pas simple...

re, job75 une dernière question : si je veux inverser le code et ne garder que les couples souhaité peux-tu m'indiquer la manip stp ? A++

ok merci beaucoup pour tout ! A+

re , Oui çà:D marche ! bien jouer! job75 juste une petite question combien de couple je peux ajouter ? suis-je limité ? A+

re, presque mais non ! le couple 2,6 par exemple doit être exclu mais il est affiché :mad: aussi le couple 7,18 lorsque j'ai ouvert la discutions je me suis dit c'est une question bête et la réponse était évidente je m’aperçois combien c'est un gros problème :eek:. A+

re , les couples avec le numéros 1 à exclure: 1 et 5. 1 et 2 1et 9 1 et 6 1 et 12 1 et 13 . les couples avec le numéros 2 à exclure : 2 et 6 2 et 3 2 et 7 les couples avec le numéros 3 à exclure : 3 et 14 3 et 19 3 et 7 3 et 20. les couples avec le numéros 4 à exclure : etc .. j’espère que...

re, et bien le 1 et ( 5, 2, 9, 6, 12, 13) . le 2 avec ( 6 ,3 ,7). le 7 avec ( 13,14,18).. voilà . Merci

bonjour job75, t'as proposition ne fonctionne pas car il ne s'agit pas d'exclure quelques numéros mais des couples de numéros précis . exemple le couple ( 1 avec 6 )) doit être exclu le( 12 avec 16 )aussi etc... c'est là toute la difficulté . A+

re , bonjour , j'ai modifier le code comme ceux-ci: mais ne fonctionne pas :mad: t= array (m,n,o,p,q) j'ai une petite question comment la fonction application. Match peut s'appliquer à plusieurs variable ? exemple : variable = (5,2,9) If Not IsError(Application.Match(variable , t, 0)) Then ...

re , je ne sais pas organiser ce que tu me propose . peux-tu stp me montrer cette partie de code et si je veux annuler un autre couple ex : (2;13) ou (18;16) ? Merci

Bonjour Dranreb. c'est pas facile à comprendre je sais alors pour résumer : voici une partie du code qui génère les combinaisons de 5 parmi 20 sans doublons . Sub combinaisons() Dim lin&, col&, rc&, m%, n%, o%, p%, q%, tir$() lin = 1 col = 0 rc = Rows.Count ReDim tir(1 To rc, 0) For m = 1...