Insertion de lignes à conditions

M

maninette1234

Guest

• 4 Septembre 2006

• #46

Re : Insertion de lignes à conditions

Je vous envoie un modèle pour mon histoire de sous totaux que je voudrais en gras

 

Pièces jointes

• exemple.xls

  16 KB · Affichages: 58
• exemple.xls

  16 KB · Affichages: 62
• exemple.xls

  16 KB · Affichages: 62

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Septembre 2006

• #47

Re : Insertion de lignes à conditions

bonjour maninette

voila ton fichier avec une macro pour mettre en gras tes sous-totaux
(suppose que la cellule A correspondante soit vide)

 

Pièces jointes

• Exemple.zip

  12 KB · Affichages: 42
• Exemple.zip

  12 KB · Affichages: 41
• Exemple.zip

  12 KB · Affichages: 45

Vote positif 0 Vote négatif

M

maninette1234

Guest

• 4 Septembre 2006

• #48

Re : Insertion de lignes à conditions

pour la macro engras elle ne marche pas car dans mon fichier la colonne A n'est pas vide, auriez vous la possibilité de la modifier?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Septembre 2006

• #49

Re : Insertion de lignes à conditions

re

une nouvelle macro basée sur le mot Total dans la colonne D : engras1

 

Pièces jointes

• Exempleb.zip

  12.6 KB · Affichages: 36

Vote positif 0 Vote négatif

M

maninette1234

Guest

• 4 Septembre 2006

• #50

Re : Insertion de lignes à conditions

ca ne marche pas car moi c pa la colonne D je vous envoie le fichier reel ou je dois faire ca vous verrez mieux

 

Pièces jointes

• Exemplegras1.xls

  17 KB · Affichages: 68
• Exemplegras1.xls

  17 KB · Affichages: 71
• Exemplegras1.xls

  17 KB · Affichages: 66

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 4 Septembre 2006

• #51

Re : Insertion de lignes à conditions

maninette1234 à dit:

ca ne marche pas car moi c pa la colonne D je vous envoie le fichier reel ou je dois faire ca vous verrez mieux

Cliquez pour agrandir...

sélectionne I1
Menu Format>>Mise en format conditionnel
Condition 1
Case 1 : La formule est
Case 2 : =GAUCHE(MAJUSCULE(A1);3)="TOT"
tu valides par OK

Cellule I1 sélectionnée
Icône reproduire la mise en forme (le pinceau)
tu cliques sur le I de l'intitulé de la colonne, juste au-dessus de la ligne 1

la mise en forme conditionnelle :
la condition 1 est vrai si les 3 première lettre de la ligne en cours en colonne A sont TOT
Pour éviter les problèmes de Total, TOTAL ou total, je mets la valeur à tester en majuscule

A+

 

Vote positif 0 Vote négatif

M

maninette1234

Guest

• 4 Septembre 2006

• #52

Re : Insertion de lignes à conditions

c genial cette mise en forme conditionnelle merci beaucoup !!!

j'ai une dernière chose a vous demander, je voudrais savoir si on peut faire une macro pour qu'une ligne s'insère apres chaque sous total, vous pensez que c'est faisable?

 

Vote positif 0 Vote négatif

M

maninette1234

Guest

• 4 Septembre 2006

• #53

Re : Insertion de lignes à conditions

enfin ou alors que le sous total se positionne sur la colonne J au lieu de la I... j'en demande beaucoup hein!!

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Septembre 2006

• #54

Re : Insertion de lignes à conditions

bonjour Maninette
salut Gorfael

teste cette macro

Code:

Sub soustotal()
For n = 1 To Range("I65536").End(xlUp)
If Left(Range("I" & n).FormulaLocal, 11) = "=SOUS.TOTAL" Then
Range("J" & n) = Range("I" & n)
Range("I" & n) = ""
Range("J" & n).Font.Bold = True
End If
Next n
End Sub

en esperant que cette fois ça marchera !!

 

Vote positif 0 Vote négatif

M

maninette1234

Guest

• 5 Septembre 2006

• #55

Re : Insertion de lignes à conditions

La macro met effectivement les sous totaux dans la colonne J mais je n'arrive pas a faire ce que je veux, je vous explique :
Je voudrais que les sous totaux soient triés par ordre croissant tout en conservant les lignes appropriées biensur et en ayant toujours une ligne d'espace apres chaque total vous comprenez?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Septembre 2006

• #56

Re : Insertion de lignes à conditions

cette macro te fera le tri et inserera une ligne apres les sous-totaux

Code:

Sub Macro2()
    Range("A1:J" & Range("J65536").End(xlUp).Row).Select
    Selection.Sort Key1:=Range("J1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    For n = Range("J65536").End(xlUp).Row To 1 Step -1
    If Range("J" & n) <> "" Then
    Rows(n + 1).EntireRow.Insert
    End If
    Next n
End Sub

ps: tri ascendant

pour tri descendant mettre xlDescending au lieu de xlAscending

 

Dernière édition: 5 Septembre 2006

Vote positif 0 Vote négatif

M

maninette1234

Guest

• 5 Septembre 2006

• #57

Re : Insertion de lignes à conditions

la macro ne fait rien sur mon fichier

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Septembre 2006

• #58

Re : Insertion de lignes à conditions

la macro a été testée sur le fichier joint

si le fichier ou tu l'utilises est different il peut y avoir a faire une adaptation

 

Pièces jointes

• Exemplegras1.xls

  32 KB · Affichages: 76
• Exemplegras1.xls

  32 KB · Affichages: 69
• Exemplegras1.xls

  32 KB · Affichages: 68

Vote positif 0 Vote négatif

M

maninette1234

Guest

• 5 Septembre 2006

• #59

Re : Insertion de lignes à conditions

la difference est que mes sous tt sont en colonne I

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Septembre 2006

• #60

Re : Insertion de lignes à conditions

alors lance d'abord la macro soustotal qui deporte le sous total en J
ce n'est pas ce que tu souhaitais ????

 

Vote positif 0 Vote négatif