ecrire les combinaisons

[claude09]

Bonsoir.Existe t il une formule pour écrire les combinaisons (et non les arrangements) de 6 chiffres pris 2 à 2 par exemple ? Je pense qu'il faut passer par une macro.Merci.

 

[Paritec]

Re : ecrire les combinaisons

Bonsoir Claude 09 le forum
c'est quoi des combinaisons de 6 chiffres pris 2 par deux ???
un petit fichier exemple de ce que tu souhaites obtenir et je te fais cela par retour
a+
Papou😱

 

[fanfan38]

Re : ecrire les combinaisons

Bonjour
Si j'ai compris... (j'ai un doute)
=STXT(A1;3;2) ressort les 2 caractères 3 et 4 de ta chaîne de caractère
=DROITE(A1;2) ressort les 2 derniers caractères de cette chaîne
=GAUCHE(A1;2) ressort les 2 premiers caractères de cette chaîne...
Maintenant si tu veux on peux faire une macro mais dans ce cas il faut plus de précision ET 1 fichier...
A+ François

 

[claude09]

Re : ecrire les combinaisons

Merci pour la rapidité.
Ci joint le fichier.Je précise que le nbre 6 change tous les jours,il peut atteindre50 et plus.
Merci.

 

[Paritec]

Re : ecrire les combinaisons

Bonsoir Claude 09 le forum
Franchement est-ce que tu te moques des gens qui te répondent ???
deux colonnes sans même une petite explication, franchement c'est se moquer des répondeurs, il faut deviner ce que tu veux !!!
a+
Papou😱

 

[claude09]

Re : ecrire les combinaisons

je m'excuse,je ne me moque de personne!!
ci joint le fichier avec les explications!!!

 

[job75]

Re : ecrire les combinaisons

Bonjour,

Voyez le fichier joint et cette macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target(2) = "" Then Exit Sub
Dim tablo, ub&, combi(), i&, j&, n&
Cancel = True
Set tablo = Range(Target, Target.End(xlDown))
tablo.Sort tablo, Header:=xlNo 'tri
tablo = tablo 'matrice, plus rapide
ub = UBound(tablo)
If Application.Combin(ub, 2) + Target.Row - 1 > Rows.Count Then _
  MsgBox "Nombre de combinaisons trop élevé": Exit Sub
ReDim combi(1 To Application.Combin(ub, 2), 1 To 2)
For i = 1 To ub - 1
  For j = i + 1 To ub
    n = n + 1
    combi(n, 1) = tablo(i, 1)
    combi(n, 2) = tablo(j, 1)
  Next
Next
Target(1, 3).EntireColumn.Resize(, 2).ClearContents 'RAZ
Target(1, 3).Resize(UBound(combi), 2) = combi
End Sub

PS : je ne me casse pas la tête à sauter des lignes pour la restitution (vu que ça ne sert à rien).

A+

 

[Habitude]

Re : ecrire les combinaisons

Bonjour à tous

en VBA

 

[CBernardT]

Re : ecrire les combinaisons

Bonsoir,

C'est le même sujet que celui de ce post.

https://www.excel-downloads.com/threads/combinaison-de-6-chiffre-sur-30.198999/

 

[claude09]

Re : ecrire les combinaisons

Merci encore pour vos réponses,j'ai trouvé mon bonheur!!!Et je m'excuse encore .
Bonne soirée.