Insertion de lignes à conditions

[maninette1234]

Bonjour,

Je cherche à faire un truc depuis quelques temps que je ne trouve pas.

J'ai dans la colonne A des chiffres triés par ordre croissant. Je voudrais insérer une ligne a chaque changement de chiffres créant ainsi des groupes!

123
123

134
134


Je ne connais pas le VBA je lis bcp de choses à ce propos peut être que ca va m'aider à solutionner mon problème mais si quelqu'un à la solution je serai la plus heureuse!!

merci

 

[maninette1234]

Re : Insertion de lignes à conditions

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

 

[pierrejean]

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)

 

[maninette1234]

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?

 

[pierrejean]

Re : Insertion de lignes à conditions

re

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

 

[maninette1234]

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

 

[Gorfael]

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

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+

 

[maninette1234]

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?

 

[maninette1234]

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!!

 

[pierrejean]

Re : Insertion de lignes à conditions

bonjour Maninette
salut Gorfael

teste cette macro

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 !!

 

[maninette1234]

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?

 

[pierrejean]

Re : Insertion de lignes à conditions

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

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

 

[maninette1234]

Re : Insertion de lignes à conditions

la macro ne fait rien sur mon fichier

 

[pierrejean]

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

 

[maninette1234]

Re : Insertion de lignes à conditions

la difference est que mes sous tt sont en colonne I

 

[pierrejean]

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 ????