Titre du sujet : Re: Formattage VBA sur report Excel par Megaolive le 30/11/2007 18:24:34
Youpi ! J'ai enfin trouvé un bout de code qui fonctionne pour mon test et insertion de ligne.
Il me reste maintenant à faire fonctionner ensemble le formattage et les insertions de ligne qui fonctionnent pour l'instant mais l'un après l'autre.
A suivre ;)
Sub Insertion()
Application.ScreenUpdating = False
On Error Resume Next
'Ici debut du FOR et une reference a la zone de critere
For AdrCel = 8 To 65536 Step 1
'Ici Le test sur le format de cellule
If Cells(AdrCel, 1).Font.Bold <> Cells(AdrCel, 1).Offset(-1, 0).Font.Bold Then
'Ici définition du num de ligne pour l'insertion
AdrLig = Cells(AdrCel, 1).Rows.Row
'l'insertion de la ligne vide
Rows(AdrLig).Insert Shift:=xlDown
'Incrémentation de la reference ligne de cellule active de 1
AdrCel = AdrCel + 1
End If
'Arret du traitement sur détection de cellule vide
If Cells(AdrCel, 1).Offset(1, 0).Value = "" Then
'Sortie de boucle
Exit For
End If
'Passage de la boucle sur la ligne suivante
Next AdrCel
Application.ScreenUpdating = True
End Sub
|