Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Erreur de compilation "FOR"

M

MickaeL_D

XLDnaute Junior
Bonjour à tous les experts,

Dans le code ci-dessous, je rencontre une erreur de compilation "variable de contrôle déjà utilisée".

Auriez-vous une solution svp

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("G6:G5000"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = 21 And (xCell.Offset(0, -3).Value = "71076" Or xCell.Offset(0, -3).Value = "605106" Or xCell.Offset(0, -3).Value = "603149") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU- 036", vbExclamation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\CDC-CAU- 036 - SUIVI MASSE ISOTEX APRES IMPREGNATION\CDC-CAU- 036 - Suivi masse après imprégnation.xlsm"
            End If
        Next
    End If
    Rg = Nothing
    Set Rg = Application.Intersect(Target, Range("D6:D5000"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            Select Case xCell.Value
            Case Is = "71073"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-26", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-26.xlsm"
    Rg = Nothing
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("X6:X5000"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            Select Case xCell.Value
            Case Is = "2,5"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-44", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\CC VITESSE ISOTEX\CDC-2011-44 Vitesse ISOTEX 2.5m-min Avant Racle_ind02 ed00.xlsm"
            Case Else
            End Select
        Next
    End If
End Sub
 
Solution
Re,
Manque encore un EndIf :
VB: 
            Case Is = "619980"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-019", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-019.xlsm"
            Case Else
            End Select
        Next
    End If  ' Encore oublié !
sylvanu à dit:
D'où l'intérêt d'une indentation correcte, cela évite les oubli de boucle.
Cliquez pour agrandir...
Vérifiez au moins votre indentation.
devant chaque If un EndIf, devant chaque For un Next .....
Trier par date Trier par votes
C

Compte Supprimé 979

Guest
Bonjour Mickael,

Un For se termine toujours par un Next, ce qui n'est pas le cas dans votre code

De plus lorsqu'on Inscrit "For xCell" on doit mettre "Next xCell"

@+
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Mickael,
Il manque un End Select et un Next :
VB: 
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("G6:G5000"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = 21 And (xCell.Offset(0, -3).Value = "71076" Or xCell.Offset(0, -3).Value = "605106" Or xCell.Offset(0, -3).Value = "603149") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU- 036", vbExclamation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\CDC-CAU- 036 - SUIVI MASSE ISOTEX APRES IMPREGNATION\CDC-CAU- 036 - Suivi masse après imprégnation.xlsm"
            End If
        Next
    End If
    Rg = Nothing
    Set Rg = Application.Intersect(Target, Range("D6:D5000"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            Select Case xCell.Value
                Case Is = "71073"
                    MsgBox "Merci de renseigner la carte de ctrl CDC-2011-26", vbInformation, "Carte de contrôle à remplir"
                    ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-26.xlsm"
            End Select
        Next
    Rg = Nothing
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("X6:X5000"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            Select Case xCell.Value
                Case Is = "2,5"
                    MsgBox "Merci de renseigner la carte de ctrl CDC-2011-44", vbInformation, "Carte de contrôle à remplir"
                    ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\CC VITESSE ISOTEX\CDC-2011-44 Vitesse ISOTEX 2.5m-min Avant Racle_ind02 ed00.xlsm"
            End Select
        Next
    End If
End Sub
D'où l'intérêt d'une indentation correcte, cela évite les oubli de boucle.
 
Vote positif 0 Vote négatif
M

MickaeL_D

XLDnaute Junior
Merci à tous pour vos retours.

Je vous joins le code en entier car j'ai toujours une erreur de compilation...
Merci d'avance,

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("G6:G5000"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = 21 And (xCell.Offset(0, -3).Value = "71076" Or xCell.Offset(0, -3).Value = "605106" Or xCell.Offset(0, -3).Value = "603149") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU- 036", vbExclamation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\CDC-CAU- 036 - SUIVI MASSE ISOTEX APRES IMPREGNATION\CDC-CAU- 036 - Suivi masse après imprégnation.xlsm"
            End If
            If xCell.Value = 21 And (xCell.Offset(0, -3).Value = "603180") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-01", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-01.xlsm"
            End If
            If xCell.Value = 22 And (xCell.Offset(0, -3).Value = "603180") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-22", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-22.xlsm"
            End If
            If xCell.Value = 20 And (xCell.Offset(0, -3).Value = "71094") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-90", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-90.xlsm"
            End If
            If xCell.Value = 21 And (xCell.Offset(0, -3).Value = "71094") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-91", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-91.xlsm"
            End If
            If xCell.Value = 21 And (xCell.Offset(0, -3).Value = "619259") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-08", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-08.xlsm"
            End If
            If xCell.Value = 22 And (xCell.Offset(0, -3).Value = "619259") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-51", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-51.xlsm"
            End If
            If xCell.Value = 21 And (xCell.Offset(0, -3).Value = "71113") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-14", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-14.xlsm"
            End If
            If xCell.Value = 22 And (xCell.Offset(0, -3).Value = "71113") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-109", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-109.xlsm"
            End If
            If xCell.Value = 20 And (xCell.Offset(0, -3).Value = "603398") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-106", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-106.xlsm"
            End If
            If xCell.Value = 21 And (xCell.Offset(0, -3).Value = "603398") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-107", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-107.xlsm"
            End If
            If xCell.Value = 22 And (xCell.Offset(0, -3).Value = "603398") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-108", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-108.xlsm"
            End If
            If xCell.Value = 22 And (xCell.Offset(0, -3).Value = "71076") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-102", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-102.xlsm"
            End If
            If xCell.Value = 22 And (xCell.Offset(0, -3).Value = "603149") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-105", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-105.xlsm"
            End If
            If xCell.Value = 22 And (xCell.Offset(0, -3).Value = "605106") Then
                MsgBox "Merci de renseigner la carte de ctrl CDC-CAU-99", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-99.xlsm"
            End If
        Next
    End If
    Rg = Nothing
    Set Rg = Application.Intersect(Target, Range("D6:D5000"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            Select Case xCell.Value
            Case Is = "71073"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-26", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-26.xlsm"
            Case Is = "75129"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-27", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-27.xlsm"
            Case Is = "71077"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-19", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-19.xlsm"
            Case Is = "71082"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-20", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-20.xlsm"
            Case Is = "78685"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-28", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-28.xlsm"
            Case Is = "79511"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-29", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-29.xlsm"
            Case Is = "71112"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-30", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-30.xlsm"
            Case Is = "74404"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-31", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-31.xlsm"
            Case Is = "77904"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-32", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-32.xlsm"
            Case Is = "78670"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-33", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-33.xlsm"
            Case Is = "76032"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-21", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-21.xlsm"
            Case Is = "71079"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-112", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-112.xlsm"
            Case Is = "71157"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-03", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-03.xlsm"
            Case Is = "76026"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-04", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-04.xlsm"
            Case Is = "602150"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-06", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-06.xlsm"
            Case Is = "78592"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-07", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-07.xlsm"
            Case Is = "71108"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-11", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-11.xlsm"
            Case Is = "78518"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-12", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-12.xlsm"
            Case Is = "71105"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-13", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-13.xlsm"
            Case Is = "76007"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-15", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\MENSCHNER\PRODUITS\CDC-2011-15.xlsm"
            Case Is = "A1004747"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-020", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-020.xlsm"
            Case Is = "602172"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-24", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-24.xlsm"
            Case Is = "602589"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-25", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-25.xlsm"
            Case Is = "603126"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-037", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-037.xlsm"
            Case Is = "603458"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-110", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-110.xlsm"
            Case Is = "603150"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-36", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-36.xlsm"
            Case Is = "603151"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-37", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-37.xlsm"
            Case Is = "603247"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-23", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-23.xlsm"
            Case Is = "619034"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-95", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-95.xlsm"
            Case Is = "619980"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-019", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-019.xlsm"
            Case Else
            End Select
        Next
        Rg = Nothing
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("X6:X5000"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            Select Case xCell.Value
                Case Is = "2,5"
                    MsgBox "Merci de renseigner la carte de ctrl CDC-2011-44", vbInformation, "Carte de contrôle à remplir"
                    ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\CC VITESSE ISOTEX\CDC-2011-44 Vitesse ISOTEX 2.5m-min Avant Racle_ind02 ed00.xlsm"
            End Select
        Next
    End If
End Sub
sur la fin...
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Manque encore un EndIf :
VB: 
            Case Is = "619980"
                MsgBox "Merci de renseigner la carte de ctrl CDC-2011-019", vbInformation, "Carte de contrôle à remplir"
                ThisWorkbook.FollowHyperlink "S:\PRODUCTION\2010-2011\01 - Cartes de contrôle\ISOTEX\PRODUITS\CDC-2011-019.xlsm"
            Case Else
            End Select
        Next
    End If  ' Encore oublié !
sylvanu à dit:
D'où l'intérêt d'une indentation correcte, cela évite les oubli de boucle.
Cliquez pour agrandir...
Vérifiez au moins votre indentation.
devant chaque If un EndIf, devant chaque For un Next .....
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Résolu(e)
XL 2016 Lien hyperlink ne s'ouvre pas
Réponses
2
Affichages
420
MickaeL_D
M
M
  • Résolu(e)
XL 2016 Conditions VBA entre 2 colonnes
2
Réponses
20
Affichages
2 K
MickaeL_D
M
T
  • Question
Microsoft 365 alerte si cellule change de valeur
Réponses
14
Affichages
259
thenesol
T
D
  • Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
615
crocrocro
C
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
505
Zonmé
Z
C
  • Question
XL 2016 VBA Détecter la suppression de la dernière ligne d'un Tableau
Réponses
9
Affichages
416
crocrocro
C
E
  • Question
XL 2013 Erreur de compilation
Réponses
11
Affichages
554
eutrophisation
E
N
  • Question
Microsoft 365 Imbrication de deux formule Worksheet_BeforeDoubleClick
Réponses
1
Affichages
305
Nathan027
N
N
  • Résolu(e)
Microsoft 365 Ajouter une condition dans une VBA
Réponses
2
Affichages
367
Nathan027
N
  • Résolu(e)
XL 2016 If Not xRgSel Is Nothing Then --> Ne marche pas
Réponses
10
Affichages
402
R3n0W
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…