VBA Excel: Aide sur erreur For...next

Résolu/Fermé

Anastasia - 10 juin 2014 à 09:30
Anastasia - 10 juin 2014 à 11:08

Bonjour à tous,

Je me tourne vers vous car un message d'erreur que je ne comprends pas me bloque.
En effet, dans Excel, j'ai créé un code me permettant tout simplement de colorer les cellules d'une colonne en fonction de la valeur d'autres cellules, de la façon suivante:

Sub Couleur()

ActiveWorkbook.Worksheets("DTELP").Select

    For y = 3 To 57
        If Cells(y, 5).Value = 0 Then
            Cells(y, 8).Font.ColorIndex = 3
        Else
        If Cells(y, 5).Value = 1 Then
            Cells(y, 8).Font.ColorIndex = 10
        Else
        If Cells(y, 5).Value = 2 Then
            Cells(y, 8).Font.ColorIndex = 45
        End If
    Next y

End Sub

Le problème est que lorsque j'exécute la macro, le message d'erreur suivant apparaît et me bloque: "Erreur de compilation: Next sans For", et le "Next" de mon code est surligné.

Quelqu'un aurait-il la solution pour que mon code puisse s'exécuter correctement?

Je vous en remercie par avance!

A voir également:

Vba next sans for
Vba range avec variable ✓ - Forum VB / VBA
Erreur 1004 vba ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions
Download instagram for pc - Télécharger - Divers Communication

2 réponses

Réponse 1 / 2

Abdel
10 juin 2014 à 09:35

Bonjour Anastasia,

Le problème vient du fait que tu n'aies mis qu'un seul End if pour trois If. Le problème ne se pose plus lorsque tu en ajoutes deux de la manière suivante:

Sub Coul()

ActiveWorkbook.Worksheets("DTELP").Select

    For y = 3 To 57
        If Cells(y, 5).Value = 0 Then
            Cells(y, 8).Font.ColorIndex = 3
        Else
        If Cells(y, 5).Value = 1 Then
            Cells(y, 8).Font.ColorIndex = 10
        Else
        If Cells(y, 5).Value = 2 Then
            Cells(y, 8).Font.ColorIndex = 45
        End If
        End If
        End If
        
    Next y

End Sub

Bonne journée!

Anastasia
10 juin 2014 à 09:39

Bonjour Abdel,

Ca fonctionne, merci!

Bonne journée!

Réponse 2 / 2

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
10 juin 2014 à 09:35

Bonjour,

Comme ceci cela devrait fonctionner :

Sub Couleur()

ActiveWorkbook.Worksheets("DTELP").Select
    For y = 3 To 57
        If Cells(y, 5).Value = 0 Then
            Cells(y, 8).Font.ColorIndex = 3
        ElseIf Cells(y, 5).Value = 1 Then
            Cells(y, 8).Font.ColorIndex = 10
        ElseIf Cells(y, 5).Value = 2 Then
            Cells(y, 8).Font.ColorIndex = 45
        End If
    Next y
End Sub

Anastasia
10 juin 2014 à 09:39

Bonjour gbinforme,

Ta solution fonctionne tout aussi bien, merci!

Bonne journée à vous!

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
10 juin 2014 à 09:47

Bonjour,

Pour ce que tu souhaites c'est la méthode classique : utiliser 'elseif'

Anastasia
10 juin 2014 à 11:08

Merci encore!

Discussions similaires

Next sans for VBA Excel

VBA - Erreur de compilation: Next sans For -

NEXT SANS FOR

Comment désactiver les " j'aime " sur mon facebook ?

bloquer j'aime et commentaires photo profil

télécharger sans passer par goole play (tablette android )

Discussions similaires

Newsletters