Discussion :

[Prekestolen]

Bonjour à tous voici mon code:

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
24
Dim max As Long
Dim indice As Long
Dim flag_total As Boolean
 
flag_total = False
indice = 2
 
max = ActiveSheet.Range("A100").End(xlUp).Row 'pas besoin de plus que 100
Do While indice < max + 1
 
 Select Case True
        Case flag_total
            'Nouvel ajout pour le caractère gras
            Rows(indice - 1).Font.Bold = True
            'fin ajout
            Rows(indice).Insert Shift:=xlDown
            flag_total = False
            max = max + 1
        Case UCase(Left(Range("A" & indice), 5)) = "TOTAL"
            flag_total = True
        Case Else
 End Select
indice = indice + 1
Loop

Ce code n'est pas de moi. A tout seigneur, tout honneur, il est de Godzestla (encore une fois merci).

Voici ce qui cloche. J'ai fait un ajout (indiqué dans le code) pour rendre la ligne en gras. Je fais l'ajout dans le code d'ajout de ligne et je pense que c'est cela qui cloche. Cela fonctionne bien sauf pour la dernière ligne. Quelqu'un a-t-il une idée. (j'ai essayé plusieurs tours de passe-passe, mais ma magie n'est pas au point). Comme je l'ai déjà dit, je fait du VBA par obligation, pas par plaisir (quoique j'aime bien en faire)

[Prekestolen]

Désolé ça marche pas

[Krovax]

Je m'en doutais pour ce que j'ai voulu effacé mon message en men rendant compte pour t'éviter de perdre du temps, désolé

[Qwazerty]

Salut
Peut etre ainsi

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
24
25
26
27
Sub Test()
 
Dim max As Long
Dim indice As Long
Dim flag_total As Boolean
 
flag_total = False
indice = 2
 
max = ActiveSheet.Range("A100").End(xlUp).Row 'pas besoin de plus que 100
Do While indice < max + 1
 
 Select Case True
        Case flag_total
            'fin ajout
            Rows(indice).Insert Shift:=xlDown
            flag_total = False
            max = max + 1
        Case UCase(Left(Range("A" & indice), 5)) = "TOTAL"
            flag_total = True
            'Nouvel ajout pour le caractère gras
            Rows(indice).Font.Bold = True
        Case Else
 End Select
indice = indice + 1
Loop
End Sub

A++
Qwaz

[Godzestla]

me revoilou,

2 commentaires :

1)

Code :

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

max = ActiveSheet.Range("A100").End(xlUp).Row 'pas besoin de plus que 100

mauvaise modif de ta part. remets comme c'était à A65535. Pas d'impact sur la vitesse et permets de dépasser les 100 lignes (cela arrivera et tu ne comprendras pourquoi cela plante).

2) pour ton problème, je ne comprends pas pourquoi cela ne marche pas sur la dernière ligne, mais j'aurais fait autrement personnelement :

(j'en profite pour remmettre A65535)

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
24
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 'pas besoin de plus que 100
Do While indice < max + 1
 
 Select Case True
        Case flag_total
            Rows(indice).Insert Shift:=xlDown
            flag_total = False
            max = max + 1
        Case UCase(Left(Range("A" & indice), 5)) = "TOTAL"
            flag_total = True
            'Nouvel ajout pour le caractère gras
            Rows(indice).Font.Bold = True
           'Fin Ajout
        Case Else
 End Select
indice = indice + 1
Loop

Chez moi cela fonctionne

Edit---------------
Oops Grilllé par Qwazerty.
Je croyais que tu étais parti. Vite revenu alors.

[Prekestolen]

Qwazerty, malgré ton jeune age, tu viens de te hisser au rang des king comme Godzestla

Merci beaucoup

[Qwazerty]

Alléluia tout arrive donc bien un jour ^^
A++
Qwaz

[Prekestolen]

Godzestla, je me fous bien de la vitesse, mais comme on fait le bilan à tous les mois, ca ne dépassera pas 100. Pourquoi ca planterait?

[Godzestla]

je me suis mal exprimé,
le fait de mettre 65535 permet de pouvoir réutiliser le même code quel que soit le module, sans avoir à se tracasser sur le max de lignes qu'on va utiliser.
Il faut juste choisir la bonne colonne.

Partout, tu trouveras du code avec 65000 ou 65535.
Je préfère un code portable, mais c'est une question de goùt.

[Prekestolen]

Thank's pour l'info

[Qwazerty]

Re
Pour un code encore plus portable (nouvelles version excel (que je n'utilisent pas mais bon)) tu peux même mettre

Code :

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

max = ActiveSheet.cells(rows.count,"A").End(xlUp).Row

comme ça que ton fichier est un max de lignes de 65K ou 2000K, ça n'a plus d'importance et ça ne ralenti pas le code en effet.

++
Qwaz

[Godzestla]

Qwaz for President.