Une formule de rangement.

pierrejean

XLDnaute Barbatruc

• 10 Janvier 2010

• #2

Re : Une formule de rangement.

bonjour JJ1

En attendant les formulistes
une petite macro

 

Pièces jointes

• rangement.zip

  15.2 KB · Affichages: 36
• rangement.zip

  15.2 KB · Affichages: 36
• rangement.zip

  15.2 KB · Affichages: 36

Vote positif 0 Vote négatif

J

JJ1

Guest

• 10 Janvier 2010

• #3

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 10 Janvier 2010

• #4

Re : Une formule de rangement.

Bonjour
Salut PierreJean

Avec du retard

Une macro à tester et à modifier

Code:

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

 

Dernière édition: 10 Janvier 2010

Vote positif 0 Vote négatif

J

JJ1

Guest

• 10 Janvier 2010

• #5

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

 

Pièces jointes

• rangement2mfc.xls

  44 KB · Affichages: 41

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Janvier 2010

• #6

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

 

Pièces jointes

• rangement2mfc.zip

  16.8 KB · Affichages: 32

Vote positif 0 Vote négatif

J

JJ1

Guest

• 11 Janvier 2010

• #7

Re : Une formule de rangement.

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

 

Vote positif 0 Vote négatif

JBOBO

XLDnaute Accro

• 11 Janvier 2010

• #8

Re : Une formule de rangement.

Bonjour,

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

A+

 

Pièces jointes

• rangement(2).xls

  47.5 KB · Affichages: 47
• rangement(2).xls

  47.5 KB · Affichages: 47
• rangement(2).xls

  47.5 KB · Affichages: 46

Vote positif 0 Vote négatif