XL 2010 Mise en forme avec VBA

plimosin

XLDnaute Junior
Bonjour,

J'ai dans le fichier "Test", une macro qui permet d'ouvrir le fichier "Données" puis lorsqu'elle trouve les lignes "Total recettes" et "Total Dépenses" de les mettre en gras et encadrés.
La macro n'a réussi qu'à mettre en forme que "Total Dépenses", mais pas "Total recettes".
Pouvez-vous m'aider ?
 

Fichiers joints

Jacky67

XLDnaute Accro
Bonjour,
==> For i = derligne To 8 Step -1
La boucle s'arrête à 8 alors que "Total Recettes" se trouve en ligne 7
Vba est sensible à la casse "recette" et "Recette" , ce n'est pas pareil
Essaye comme ceci
VB:
Sub Mise_en_Forme()
'
'Ouverture du fichier stats fv.xlsx
    Workbooks.Open Filename:="C:\TRESO\Données.xlsx"
    'Mise en forme ligne Total Recettes et Total Dépenses
    derligne = Cells(Rows.Count, 1).End(xlUp).Row
    For i = derligne To 2 Step -1
        If Cells(i, 1) = "Total Recettes" Or Cells(i, 1) = "Total Dépenses" Then
            With Range("A" & i, "S" & i)
                .Font.Bold = True
                .Borders.LineStyle = xlContinuous
                .Borders.Weight = xlMedium
                .Borders(xlInsideVertical).LineStyle = xlNone
            End With
        End If
    Next i
End Sub
 
Dernière édition:

plimosin

XLDnaute Junior
Bonjour,
==> For i = derligne To 8 Step -1
La boucle s'arrête à 8 alors que "Total Recettes" se trouve en ligne 7
Vba est sensible à la casse "recette" et "Recette" , ce n'est pas pareil
Essaye comme ceci
VB:
Sub Mise_en_Forme()
'
'Ouverture du fichier stats fv.xlsx
    Workbooks.Open Filename:="C:\TRESO\Données.xlsx"
    'Mise en forme ligne Total Recettes et Total Dépenses
    derligne = Cells(Rows.Count, 1).End(xlUp).Row
    For i = derligne To 2 Step -1
        If Cells(i, 1) = "Total Recettes" Or Cells(i, 1) = "Total Dépenses" Then
            With Range("A" & i, "S" & i)
                .Font.Bold = True
                .Borders.LineStyle = xlContinuous
                .Borders.Weight = xlMedium
                .Borders(xlInsideVertical).LineStyle = xlNone
            End With
        End If
    Next i
End Sub
Merci, çà marche maintenant.
 

Discussions similaires


Haut Bas