Aide pour formule

[whooki]

"Bonjour à tous,

Je souhaiterais lister dans mon classeur toutes les possibilités possibles, lorsque un 1 est apparent entre les 2 valeurs et je ne sais pas quelle formule utiliser, ou alors le faire par macro, merci de votre aide.

Whooki."

 

[Paritec]

Re : Aide pour formule

Bonjour Whooki, le forum,
je viens de lire ton post et ton fichier, moi je n'ai rien compris!
si les formulistes comprennent tant mieux pour toi mais franchement sans explications
dans le fichier je n'ai franchement pas compris le 1 entre deux valeurs?
a+
papou

 

[whooki]

Re : Aide pour formule

Bonjour à toi,

En faite c'est simple. Je souhaites lister les différentes possibilités possible, c'est à dire lorsqu'il y a un 1 entre les colonnes et les lignes. Par exemple, dans mon fichier, il y a un 1 entre 69 et 47, et j'ai listé cette possibilité en A18 et B18, ainsi de suite, je souhaites lister toutes ces possibilités en automatique.

Whooki

 

[mromain]

Re : Aide pour formule

bonjour,

voici un essai...

a+

 

[whooki]

Re : Aide pour formule

Bonjour ROMAIN,

Merci de ton aide c'est exactement ce que je cherchais à faire. Cepedant, j'aurais une autre question, si jamais je rajoute une valeur en A15 et,ou en K15, je vois que dans ton code tu mets for For iLigne = 2 To 14,For iColonne = 2 To 10, avec ton code il ne prendra pas en compte mes cangements.

Merci de ta réponse.

 

[mromain]

Re : Aide pour formule

re,

voici la macro modifiée :

Sub test()
Dim celluleResultat As Range
Set celluleResultat = ThisWorkbook.Sheets("Feuil2").Range("A1")
With ThisWorkbook.Sheets("Feuil1")
    For iLigne = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
        For iColonne = 2 To .Cells(1, .Columns.Count).End(xlToLeft).Column
            If Cells(iLigne, iColonne) = 1 Then
                celluleResultat = Cells(iLigne, 1)
                celluleResultat.Offset(0, 1) = Cells(1, iColonne)
                Set celluleResultat = celluleResultat.Offset(1, 0)
            End If
        Next iColonne
    Next iLigne
End With
End Sub

elle s'adapte au nombre de colonnes et de lignes et elle écrit les résultats sur la feuille Feuil2.

a+

 

[whooki]

Re : Aide pour formule

Merci beaucoup de ta réponse, s'est exactement ce que je souhaitais, merci beaucoup