Rows Font Bold True

Version imprimable

Rows Font Bold True

Bonjour à tous voici mon code:
Code:

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:roll:)

19/03/2009, 16h28
Prekestolen

Désolé ça marche pas
19/03/2009, 16h31
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é :oops:

Salut
Peut etre ainsi

Code:

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

me revoilou,

2 commentaires :

1)

Code:

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:

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 :yaisse2:

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

19/03/2009, 16h41
Prekestolen

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

Merci beaucoup:king:
19/03/2009, 16h44
Qwazerty

Alléluia tout arrive donc bien un jour ^^
A++
Qwaz
19/03/2009, 16h49
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?
19/03/2009, 16h54
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.
19/03/2009, 16h57
Prekestolen

Thank's pour l'info:king:
19/03/2009, 17h07
Qwazerty

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

Code:

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
19/03/2009, 17h11
Godzestla

Qwaz for President. :hola::yaisse3: