Une formule de rangement.

[JJ1]

Bonsoir à tous,

Je souhaiterais votre aide pour ranger des nombres de ma base dans des cases en fonction de leurs unités(0 à 9) et de leurs tranches (unités, dizaines....soixante- dixaines)
J'ai rempli une ligne dans mon tableau pour montrer ce que je recherche.
Merci et bonne soirée

 

[pierrejean]

Re : Une formule de rangement.

bonjour JJ1

En attendant les formulistes
une petite macro

 

[JJ1]

Re : Une formule de rangement.

Bonsoir PierreJean et merci pour ton code, 5 lignes mais efficace.
Je n'ai pas besoin de formule, ta macro conviendra parfaitement pour mon tableau.
merci encore.
Bonne soirée à tous.


ps: je dois y rajouter une MFC à une couleur mais je ne pense pas que la macro puisse le faire? je voudrais colorier les nombres de la ligne 4(ce que tu viens de faire) présents en ligne 3 (au dessus), tu me diras si la macro peut le réaliser à la suite de ton code?
je vais faire un exemple.

merci

 

[jp14]

Re : Une formule de rangement.

Bonjour
Salut PierreJean

Avec du retard

Une macro à tester et à modifier

Sub travdem(plage As String)
Dim cellule As Range
Dim nomfeuille1 As String
Dim val1 As Byte, val2 As Byte


nomfeuille1 = "Feuil1"

With Sheets(ActiveSheet.Name)
For Each cellule In .Range("a4:i12")
If cellule <> "" Then
val1 = cellule Mod 10

If cellule > 10 Then
    val2 = Int(cellule / 10)
Else
    val2 = 0
End If
If cellule = 10 Then val2 = 1
.Cells(cellule.Row, (21 + 8 * val1) + val2) = cellule

End If
Next cellule
End With
End Sub

JP

 

[JJ1]

Re : Une formule de rangement.

Merci JP14 pour ta macro aussi, je vais la tester.
Je joins le fichier pour la MFC: la macro report "reporte" les nombres sur la même ligne (fait), le coloriage se fait par rapport à la ligne au dessus.
Bonne soirée et merci

 

[pierrejean]

Re : Une formule de rangement.

Re

Salut JP

En supposant que j'aie compris !
Mise en couleur si cellule du dessus non vide
Nb les 0 en colonne U apparaissent pour cause de vide a partir de colonne J

 

[JJ1]

Re : Une formule de rangement.

Bonjour PierreJean et merci, c'est exactement ça.
Merci beaucoup pour ce code et bonne semaine

 

[JBOBO]

Re : Une formule de rangement.

Bonjour,

je suis à la bourre, mais ci-joint une soluce.

A+