Chiffres nécessaires

[Abou Dinblan]

Bonjour,

Auriez-vous le temps et l'envie de m'aider à solutionner ce cas?

merci

 

[Staple1600]

Bonjour à tous

Abou Dinblan
Tu peux développer un peu plus ta question, stp?
Dans le corps de ton message bien sur et pas dans ton fichier joint
(ce qui oblige à le télécharger pour s'apercevoir si la question posée nous intéresse ou pas )

NB: personnellement, je préfère le boudin antillais

 

[Abou Dinblan]

Bonjour,

Oui, il s'agit des chiffres (ordonnés) nécessaires à la constitution de TOUS les nombres de chaque ligne. Le boudin est riche en fer pour le cerveau.

 

[Hieu]

Salut,

Voici une macro, pour retrouver ton besoin pour la première ligne :

Sub mlkn()
Dim t(9) As Boolean

For Each r In Range("a1:g1")
    t(r Mod 10) = True
    t(Int(r / 10)) = True
Next r

For i = 0 To 9
If t(i) = True Then
    Range("m1").Offset(0, k) = i
    k = k + 1
End If
Next i

End Sub

++

edit : modifié, car mauvais fichier

 

[Hieu]

Et voilà, comment boucler, sur les lignes :

Sub principal()
For i = 0 To 1
    Call mlkn(i)
Next i
End Sub

Sub mlkn(lig)
Dim t(9) As Boolean

For Each r In Range("a1:g1").Offset(lig, 0)
    t(r Mod 10) = True
    t(Int(r / 10)) = True
Next r

For i = 0 To 9
If t(i) = True Then
    Range("m1").Offset(lig, k) = i
    k = k + 1
End If
Next i
End Sub

++

 

[Abou Dinblan]

je viens de tester, la macro met systématiquement le 0 ? (sans qu'il y ait 10 ou 20..) merci

 

[Hieu]

Re Abou,

Avec quelques modifs sur la subroutine mlkn, pour :
- prendre en compte les cellules vides
- les nombres inférieurs à 10

Sub mlkn(lig)
Dim t(9) As Boolean

For Each r In Range("a1:g1").Offset(lig, 0)
If IsEmpty(r) = False Then
    t(r Mod 10) = True
    If Int(r / 10) <> 0 Then t(Int(r / 10)) = True
End If
Next r

For i = 0 To 9
If t(i) = True Then
    Range("m1").Offset(lig, k) = i
    k = k + 1
End If
Next i
End Sub

Normalement, ça marche
++

 

[Abou Dinblan]

Parfait.

Merci
a+

 

[R@chid]

Bonsoir @ tous,
avec une formule matricielle, en M1 :

=SIERREUR(PETITE.VALEUR(SI(ESTNUM(CHERCHE(LIGNE($1:$10)-1;$A1&$B1&$C1&$D1&$E1&$F1&$G1))*(NB.SI($L1:L1;LIGNE($1:$10)-1)=0);LIGNE($1:$10)-1);1);"")

@ valider par Ctrl+Shift+Enter
@ tirer vers la droite puis vers le bas


@ + +

 

[Abou Dinblan]

Bonjour Rachid et bravo pour cette formule !