Combineur de Nombres

Salut Sebastien qui m'a recu,

Salut a tous sur le Forum. Je suis Dmitri Germain, je voudrais avoir un fichier Excel qui peut combiner des nombres entre eux en des nombres de 4 chiffres. j'envoie un fichier modele pour ne pas etre trop long.

Dmitri Germain

Bonjour dgermain,

Essayez avec la formule suivante à étendre vers le bas tant que nécessaire

=SI(ESTNUM(EQUIV(GAUCHE(DROITE(JOINDRE.TEXTE(""; ;A$5:A$36;A$5:A$36);LIGNE()-1);4)*1;F$1:F4;0));"";GAUCHE(DROITE(JOINDRE.TEXTE(""; ;A$5:A$36;A$5:A$36);LIGNE()-1);4)*1)

Bonjour dgermain, njhub,

un essai macro, si j'ai bien compris :

Sub Dgermain()
Dim x As Long, i As Long, j As Long
x = 4
With Worksheets("Sheet1")
For i = 5 To .Range("A" & Rows.Count).End(xlUp).Row
    For j = 5 To .Range("A" & Rows.Count).End(xlUp).Row
        x = x + 1
        .Cells(x, 5) = .Cells(i, 1) * 100 + .Cells(j, 1)
    Next
Next
End With
End Sub

A+

Bonjour ou Bonsoir a tous selon votre pays. Merci Je vais essayer.

Je viens de l'essayer et cela a marche quelques nombres. Je vais faire un essai avec beaucoup plus de nombres. Merci Beaucoup

salut

Une solution à placer dans une macro :

Sub marier_des_nombres()
Dim t As Variant
ReDim t(0 To 31)
 For i = 0 To UBound(t)
  t(i) = i + 23
 Next
 'associations :
 For j = 0 To UBound(t)
  For k = 0 To UBound(t)
   w = w & " " & t(j) & t(k)
   Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = t(j) & t(k) 'place les réponses en colonne 1
  Next
 Next
 MsgBox w ' retourne toutes les possibilités sous forme de message .
End Sub

Bonjour,

Ca marche mais me donne des nombres que je n'ai pas demande. Je dois rentrer les nombres moi-meme.

dgermain a écrit :

Salut Sebastien qui m'a recu,

Salut a tous sur le Forum. Je suis Dmitri Germain, je voudrais avoir un fichier Excel qui peut combiner des nombres entre eux en des nombres de 4 chiffres. j'envoie un fichier modele pour ne pas etre trop long.

Dmitri Germain

combineur de nombre.xls

Merci Algo Plus, ca marche mieux pour moi , j'ai la liberte de mettre les nombres que je veux.

Merci.