Combinaison de nom sur VBA Excels

Version imprimable

19/03/2019, 09h30
Gbouyo92

Combinaison de nom sur VBA Excels

Bonjour,

je suis un débutant sur VBA Excel, je desire faire une macro qui puisse me donner toutes les posssibilites de combinaison entre les noms et prenoms que peut avoir une personne.

je vous donne un exemlpe:
Nom : Bouyo Adrian Fall
Prenom: Justin Juju Jull

L`idée serait d`avoir toutes les combinaisons possibles.

Justin BOuyo Adrian
Justin Bouyo
Juju Bouyo Adrian Fall
Jull Adrian Fall....
19/03/2019, 15h04
Igloobel

Bonjour,

Question : Peut-il y avoir plusieurs prénom ou pas de prénom ou pas de nom ?
22/03/2019, 09h14
Gbouyo92

Non, il y a forcement des prénoms et des noms

Citation:

Envoyé par Igloobel

Bonjour,

Question : Peut-il y avoir plusieurs prénom ou pas de prénom ou pas de nom ?

Bonjour la communauté

J'ai essayé de faire une macro mais elle ne m'aide que très peu, peut-on l'améliorer afin d'avoir une macro répondant à mon besoin ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Macro1()
Dim iP1 As Long
Dim iP2 As Long
Dim Col As Integer
 
Dim iDest As Long
 
iDest = 1
 
For iP1 = 2 To Range("A:A").End(xlDown).Row
 
    For Col = 2 To Rows("1").End(xlToRight).Column
 
        For iP2 = 2 To Columns(Col).End(xlDown).Row
 
            Range("E" & iDest).Value = Range("A" & iP1).Value & Cells(iP2, Col).Value
 
            iDest = iDest + 1
 
        Next iP2
 
    Next Col
 
Next iP1

22/03/2019, 10h16
mercatog

Bonjour

Avant de coder quoi que ce soit, prend un crayon et fais un algorithme te permettant d'arriver à ton besoin.

Tu sais combien tu auras de combinaisons en entre un triplet (X, Y, Z) et un autre (A, B, C) avec au moins un élément du premier triplet et au moins un élément du second.
22/03/2019, 10h51
Igloobel

Bonjour,

mets une capture écran pour montrer comment sont organiser tes données

et mets une indentation à ton code et pense à utiliser le bouton (#) qui mets des balises code pour le post
22/03/2019, 11h29
Gbouyo92

1 pièce(s) jointe(s)

Pour vous donner une idée.

C'est un exemple fictif ( pas de nom réel)

Pièce jointe 460150

Citation:

Envoyé par Igloobel

Bonjour,

mets une capture écran pour montrer comment sont organiser tes données

et mets une indentation à ton code et pense à utiliser le bouton (#) qui mets des balises code pour le post
22/03/2019, 12h02
mercatog

Tu as Axel Charles machin

Qu'en est il de Charles Axel machin
22/03/2019, 13h51
Gbouyo92

c'est justement pour cela que je cherche une macro pour me faciliter la tâche.

Peut importe la position de chaque prénom, la macro va soRtir toutes les possibilités.

Pour faire simple regarde cette exemple pour 2 noms et 2 prénoms: "Gilles Fu ( prénom) Lee jean (nom)"

Gilles Fu lee jean
Gilles lee jean
fu lee
Gilles Fu lee
Gilles lee
fu lee
Gilles Fu Jean
Gilles Jean
Fu Jean

Citation:

Envoyé par mercatog

Tu as Axel Charles machin

Qu'en est il de Charles Axel machin

Bonjour
une petite demo
tout est dit dans les msgboxs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub test()
    mot = Array("mot1", "mot2", "mot3")
    a = UBound(mot) + 1    'a=3 pour 3 mots
    'algo
    x = a * (a - 1) * (a - 2)     'algo simple comme peau de bananne pour connaitre le nombre de possibilite de combinaison de 3 mots
    MsgBox "il y a  " & x & " posibilités pour les combinaisons de 3 mots selon l'algo "
    'algo en boucle
    For i = 1 To UBound(mot) - 1
        x = a * (a - i)
    Next
    MsgBox "il y a aussi  " & x & " posibilités pour les combinaisons de 3 mots selon l'algo  calculé  dans une boucle "
    '
    '
    'testons voir avec une boucle laaaaaaaaaargement !!!!!!!!!!!!! superieurs aux possibilités et un dico
    '
    Set dico = CreateObject("scripting.dictionary")
    For i = 1 To 100000    ' on boucle 100000 fois
re1:
        a1 = mot(Round(Rnd * 2))    'on choisi au hasard  1 mot
re2:
        a2 = mot(Round(Rnd * 2)): If a2 = a1 Then GoTo re2   'on choisi au hasard  un 2d  mot si  c'est le meme que le premier on rechoisi pour le 2d
re3:
        a3 = mot(Round(Rnd * 2)): If a3 = a2 Or a3 = a1 Then GoTo re3    'on choisi au hasard  un 3eme  mot si  c'est le meme que le 2d on rechoisi pour le 3eme
        Randomize
        '
        dico(a1 & " : " & a2 & " : " & a3) = ""      'on ajoute au dico
        '""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
        'If dico.Count = x Then i = 100000'on sort des que l'on a atteint le nombre de possibilité
        '""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
    Next
    '
    mess = "il y a toujours " & dico.Count & " posibilités pour les combinaison de 3 mots acec 100000 tours de boucle pour le dico " & vbCrLf & Join((dico.keys), vbCrLf)
    '
    mess = mess & vbCrLf & "pour les combinaisons de 2 il suffit de reprendre les items du dico en gardant que les 2 premiers"
 
MsgBox mess
End Sub

j'ai bloqué la ligne de sortie de boucle pour bien tourner 100000 fois afin de bien demontrer que le calcul precedent (avec ou sans boucle)est correct

donc quand on regarde le resultat on peut facilmement comprendre qu'une triple boucle imbriquée fera tres bien l'affaire