XL 2010 Mise en forme avec VBA

[Anto35200]

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 ?

 

[Jacky67]

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

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

 

[Anto35200]

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

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.