Discussion :

[Prekestolen]

Bonjour à tous

Je voudrais insérer une ligne vide (insertion ligne) après chaque totaux qui ont été crééer automatiquement (données sous-totaux).Quelqu'un a-t-il une piste pour m'aider.

Merci

[Qwazerty]

Salut
Ben avec si peu d'info :s
Aller je suis joueur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows.Insert

Sans rire, donne nous plus d'info, mets toi a notre place 2min on ne connait pas ton tableau, ni son organisation, ni son contenu, et maintenant relit ta question.

A++
Qwaz

[Godzestla]

Bonjour,

et il y a plusieurs totaux/sous-totaux sur une même colonne ? je suppose que oui.

Alors tu peux faire une truc du genre(qui suppose que le mot Total est en colonne A pour les totaux et que tes colonnes ont un titre et que tes data commencent en ligne 2.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub white_line()
Dim max As Long
Dim indice As Long
Dim flag_total As Boolean
 
flag_total = False
indice = 2
 
max = ActiveSheet.Range("A65535").End(xlUp).Row
Do While indice < max + 1
 Select Case True
        Case flag_total
            Rows(indice).Insert Shift:=xlDown
            flag_total = False
            max = max + 1
        Case UCase(Right(Range("A" & indice), 5)) = "TOTAL"
            flag_total = True
        Case Else
 End Select
indice = indice + 1
Loop
End Sub

[Prekestolen]

Qwazerty avait raison, j'ai donné peu d'info. Je pensais que j'étais clair, mais de toute évidence je ne l'était pas. Par contre, toi Godzestla t'es un vrai king du VBA. J'ai inséré ton code à l'endroit voulu, j'ai changé le Right pour le Left et tout s'est enclenché et donné le résultat voulu (j'avais beaucoup tripoté avec une formule du genre, mais mon manque d'expérience en VBA faisait en sorte que ca marchait pas.).

Une chose que j'ai constaté: Godzestla est dans la même tranche d'age que moi, alors que Qwazerty est beaucoup plus jeune. Godzestla a immédiatement compris de quoi je parlais alors que ce fut un gros point d'interrogation pour Qwazerty. Y a-t-il un rapport? Je ne sais pas. Je dois apprendre à être plus précis (pour les plus jeunes) en espérant que les plus agés liront mes demande d'aide en comprenant du premier coup. Encore une fois merci.

[Qwazerty]

Lol
Ou alors passé 40 ans on a plus de chance
Et puis je veux pas dire mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(indice).Insert Shift:=xlDown

Correspond bien a Row.Insert, comme quoi a question incomplette, reponse incomplete certe, mais juste

++
Qwaz

[Prekestolen]

Oui Qwazerty, je sais que ma question était incomplette. Je fais pas souvent du VBA, je me débrouille comme je peux, même dans mes questions. L'important c'est que tout le monde y trouve son compte.

[Godzestla]

Lol
Ou alors passé 40 ans on a plus de chance
Et puis je veux pas dire mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(indice).Insert Shift:=xlDown

Correspond bien a Row.Insert, comme quoi a question incomplette, reponse incomplete certe, mais juste

++
Qwaz

Salut Qwazerty,
petite nuance, si je peux :
Tu avais écrit,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows.Insert

, et cela dans mon code cela donnait un message (problème de décallage).
D'où le shift en clair qui ne semblait pas facultatif. Sauf erreur de ma part, ce qui n'est pas rare d'ailleurs.

[Qwazerty]

Re

petite nuance, si je peux :
Tu avais écrit, Code :
Rows.Insert
, et cela dans mon code cela donnait un message (problème de décalage).

Si en plus on s'arrête aux détail :p (*note pour plus tard, prendre au sérieux les questions posées et les réponses que j'y apporte*).
Je vois qu'on se ligue contre moi , même les modérateurs me tapent sur les doigts , donc promis je serais sage, enfin peut être :p on se refait pas .



Bonne continuation a vous
++
Qwaz