XL 2016 Erreur de compilation "FOR"

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
sylvanu
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
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
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
XL 2016 Lien hyperlink ne s'ouvre pas
Réponses
2
Affichages
453
MickaeL_D
M
M
  • Résolu(e)
XL 2016 Conditions VBA entre 2 colonnes
2
Réponses
20
Affichages
2 K
MickaeL_D
M
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
709
crocrocro
C
E
  • Question Question
XL 2013 Erreur de compilation
Réponses
11
Affichages
606
eutrophisation
E
M
  • Résolu(e)
XL 2016 Ouverture fichier via msgbox avec fréquence
2
Réponses
22
Affichages
2 K
MickaeL_D
M
K
  • Résolu(e)
XL 2013 Amélioration code VBA
Réponses
6
Affichages
488
vgendron
vgendron
T
  • Question Question
XL 2019 afficher/masquer lignes avec case d'option (contrôle de formulaire)
Réponses
1
Affichages
1 K
Tioneb_h
T
M
  • Question Question
Microsoft 365 Une barre de données avec des nuances de couleurs
Réponses
1
Affichages
2 K
Rouge
R
M
  • Question Question
XL 2013 VBA-Envoyer par email "Plage de cellules collée dans un nouveau classeur en gardant formules de certaines cellules
Réponses
2
Affichages
883
MONTREAL2020
M
V
  • Question Question
XL 2019 Erreur de compilation end if sans bloc if
Réponses
3
Affichages
1 K
Vivien samba
V
M
  • Question Question
Microsoft 365 Recherche complément de code VBA pr un remplissage de cellule automatique
Réponses
1
Affichages
726
sylvanu
sylvanu
B
  • Résolu(e)
XL 2016 erreure de compile ou bien.
Réponses
5
Affichages
875
Big66677
B
T
  • Question Question
XL 2019 Activer une macro à partir du contenu d'une cellule
Réponses
8
Affichages
1 K
soan
S
B
  • Question Question
sytsme de filtage VBA
Réponses
13
Affichages
2 K
blancolie
B
C
  • Question Question
XL 2016 Texte qui clignote correctement mais avec un problème de cellule calculée
Réponses
7
Affichages
1 K
riton00
riton00
T
  • Question Question
vba sur cellules fusionnées
Réponses
6
Affichages
2 K
TEMAGOULTFARID
T
S
  • Question Question
Erreur de compilation: variable non définie VBA
Réponses
5
Affichages
2 K
Sa Mariam
S
tactic6
  • Question Question
XL 2013 Bizarre Erreur de compilation: variable non définie RESOLU
Réponses
11
Affichages
2 K
tactic6
tactic6
Z
  • Question Question
Erreur d'exécution '1004': La méthode 'Range' de l'objet '_Worksheet' a échoué
2
Réponses
20
Affichages
3 K
Dranreb
Dranreb
E
  • Question Question
VBA Protect Sheet
Réponses
1
Affichages
682
Hasco
Hasco
Retour