Utilisation de For... Next avec plusieurs opérations

[komodoe]

Bonjour Mesdames et Messieurs les contributeurs !

Mon problème est le suivant : j'ai un tableau dans lequel j'insère des sous-totaux automatiques. Une fois les ss-totaux insérés, je voudrais mettre en forme les cellules contenant le nom du regroupement ("TOTAL Montant HT" par exemple) ainsi que la cellule contenant le ss-total :

Voici mon code, pour un tableau de 500 lignes, le regroupement se fait à chaque changement de libellé de la colonne 5, les ss-totaux sont en colonne 6. Je voudrais que toutes les cellules commençant par "TOTAL" soient mises en forme :

For i = 1 To 500
If Left(Cells(i, 5).Value, 5) = "Total" Then
With Cells(i, 5)
.Font.Bold = True
.Font.ColorIndex = 3
End With
Next i

Excel me répond alors : "Erreur de compilation : Next sans For"

Help !

PS : je pense avoir bien cherché, mais si la question a déjà été posée... je n'ai pas trouvé la réponse !

Merci (beaucoup) de votre aide

 

[komodoe]

Re : Utilisation de For... Next avec plusieurs opérations

C'est encore moi !

Je précise que si je ne demande qu'une opération lorsque le test sur le contenu de la cellule est vrai, cela fonctionne. Je voudrai pouvoir enchaîner plusieurs commandes pour chaque valeur de i répondant au test...

 

[Compte Supprimé 979]

Re : Utilisation de For... Next avec plusieurs opérations

Salut Komodoe,

Il est toujours bon d'incrémenter les espaces dans des boucles et des conditions.

Comme ça on peut voir rapidement ou se situe le problème 😉

For i = 1 To 500
  If Left(Cells(i, 5).Value, 5) = "Total" Then
    With Cells(i, 5)
      .Font.Bold = True
      .Font.ColorIndex = 3
    End With
  [B][COLOR=red]End If
[/COLOR][/B]Next i

Un petit "End If" oublié et hop, c'est la caguade

A+

 

[komodoe]

Re : Utilisation de For... Next avec plusieurs opérations

Cher BrunoM45

Grand merci !

Effectivement cela marche beaucoup mieux... merci beaucoup pour ton aide !

A+