du X parmi Y [RESOLU]

[herve62]

Bonjour
Avant me creuser la tête !
Existe t-il une routine VBA permettant d'extraire une combinaison de X parmi Y
exemple : sur 1 ligne de 5 colonnes donc 5 chiffres
ensuite on va dire que l'on a 10 lignes ou X lignes dans cette zone
dans une autre zone de la feuille de 5 col aussi avec Y lignes , des chiffres aussi
Peut-on afficher à coté de la Zone 1 (col +1)la 1ere occurrence de 4 chiffres de la zone 2 , puis dans col +2 si il y a encore occurence , etc ...
Merci bien

 

[ROGER2327]

Re : du X parmi Y

Bonjour
Avant me creuser la tête !
Existe t-il une routine VBA permettant d'extraire une combinaison de X parmi Y
exemple : sur 1 ligne de 5 colonnes donc 5 chiffres
ensuite on va dire que l'on a 10 lignes ou X lignes dans cette zone
dans une autre zone de la feuille de 5 col aussi avec Y lignes , des chiffres aussi
Peut-on afficher à coté de la Zone 1 (col +1)la 1ere occurrence de 4 chiffres de la zone 2 , puis dans col +2 si il y a encore occurence , etc ...
Merci bien

?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx​

 

[herve62]

Re : du X parmi Y

Aller !

5 9 2 4 8 6 cherche dans 6 3 9 1 0 5 Rien
5 9 2 4 8 6 cherche dans 5 6 2 4 1 9 > RESULTAT = 5 9 2 4

 

[ROGER2327]

Re : du X parmi Y

Allons !

Sub toto()
Dim i&, j&, k&, l&, n&, p&
Dim d1(), d2(), s(1 To 10)
  d1 = [Plage1].Value
  d2 = [Plage2].Value
  With [Commun]
  .ClearContents
  For i = 1 To UBound(d1)
    p = 0
    For j = 1 To UBound(d2)
      n = 0
      d1 = [Plage1].Value
      Erase s
      For k = 1 To UBound(d1, 2)
        For l = 1 To UBound(d2, 2)
          If d1(i, k) = d2(j, l) Then
            n = n + 1
            s(n) = d1(i, k)
            d1(i, k) = -1
          End If
        Next
      Next
      If n > 3 Then
        .Cells(1, 1).Offset(i - 1, p) = j & " : " & Trim(Join(s))
        p = p + 1
      End If
    Next
  Next
  End With
End Sub

ℝOGER2327
#7919

Lundi 2 Gidouille 142 (Saint Lucullus, amateur (Bloomsday) - fête Suprême Quarte)
28 Prairial An CCXXIII, 5,8519h - thym
2015-W25-2T14:02:41Z

 

[herve62]

Re : du X parmi Y

Merci Roger de ton temps
c'est quoi COMMUN avec des [ ? j'ai pas l'habitude de ce truc
Plages : j'ai mis les valeurs comme A1:B6

 

[ROGER2327]

Re : du X parmi Y

Suite...

Dur, dur, sans support, hein ?!

J'm'en vas tout faire, alors. Ça s'ra certainement pas qu'est-ce qu'i veut, mais tant pire.​

ℝOGER2327
#7920

Lundi 2 Gidouille 142 (Saint Lucullus, amateur (Bloomsday) - fête Suprême Quarte)
28 Prairial An CCXXIII, 6,0059h - thym
2015-W25-2T14:24:51Z

 

[herve62]

Re : du X parmi Y

Je sais Roger , mais si j'avais mis mes 2 séries de chiffres dans un fichier , cela t'aurai t-il avancé ??
Bon j'ai vu tes "Plage" , mais "Commun" ?? Pige pas !
Sinon cela fonctionne , j'analyse pour comprendre
Merci !!

 

[ROGER2327]

Re : du X parmi Y

Re...

(...)
Bon j'ai vu tes "Plage" , mais "Commun" ?? Pige pas !
(...)

« Commun » est un plage nommée, tout comme « Plage1 » et « Plage2 ».​

ℝOGER2327
#7921

Lundi 2 Gidouille 142 (Saint Lucullus, amateur (Bloomsday) - fête Suprême Quarte)
28 Prairial An CCXXIII, 6,2064h - thym
2015-W25-2T14:53:43Z

 

[herve62]

Re : du X parmi Y

C'est bon j'ai trouvé
Mais pour débutant si tu lui expliques pas la zone ce qu'est cette plage ... je doute qu'il devine ?
Bon moi je vais adapter et bidouiller dans mon code
A+

 

[ROGER2327]

Re : du X parmi Y

Allons, allons, vous n'êtes pas tout à fait débutant !


Bonne continuation.

 

[herve62]

Re : du X parmi Y

Bof !! ; 30 ans de BASIC mais je ne suis plus à votre niveau en ....... VBA !!
ce que je voulais souligner c'est que si un membre débutant voulait s'inspirer de ce post
( comme je fais souvent) et pour trouver la plage COMMUN ..... ?
Bonne soirée

 

[herve62]

Re : du X parmi Y

Bon je suis obligé de revenir car dans l'appli c'est plus pareil ?
Merci

 

[Victor21]

Re : du X parmi Y

Bonjour, herve62, ROGER2327

Je sais Roger , mais si j'avais mis mes 2 séries de chiffres dans un fichier , cela t'aurai t-il avancé ??

...Dur, dur, sans support, hein ?!
J'm'en vas tout faire, alors. Ça s'ra certainement pas qu'est-ce qu'i veut, mais tant pire....

Bon je suis obligé de revenir car dans l'appli c'est plus pareil...

Jolie démonstration 😉

 

[herve62]

Re : du X parmi Y

Et OUI Patrick , car ce n'est encore qu'un exemple qui devait être MODULABLE et applicable ailleurs, non ?

Bon moi je vais adapter et bidouiller dans mon code

en plus , parfois il faut faire un ZIP car relation avec d'autres fichiers ..etc

 

[ROGER2327]

Re : du X parmi Y

Suite...

Jusqu'ici, il s'agissait de listes de nombres ; pas question de cellules vides. J'ai donc modifié le code. Que de temps perdu pour éviter de fournir un support et un énoncé complet et clair du problème !

J'ai dû modifier l'emplacement des plages nommées pour qu'elles n'empiètent pas les unes sur les autres.
Notez que « Commun » doit avoir autant de colonnes que « Plage2 » a de lignes si l'on veut être certain de ne négliger aucune solution. À moins qu'il s'agisse de ne trouver que quelques solutions ?​

Bonne nuit.


ℝOGER2327
#7923

Mardi 3 Gidouille 142 (Sainte Dondon, amazone - fête Suprême Quarte)
29 Prairial An CCXXIII, 0,5303h - pivoine
2015-W25-3T01:16:22Z