Bonjour,

J'ai un problème avec une macro : celle-ci contient deux boucles for, mais elle ne sort jamais de la 1re pour passer à la 2e.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Verifications()
 
    ''''Création variables
    Dim Nbenreg As Long
    Dim DernLignVide As Long
    Dim Plage As Range
    Dim Cel As Range
 
    With Worksheets("Fichier de travail")
 
        Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    For Each Cel In Plage
 
        If Cel.Value <> "?" And Application.CountIf(Plage, Cel.Value) > 1 Then
 
            DernLignVide = Sheets("CR").Range("A1").End(xlDown).Row + 1
            Ligne_Erreur Cel.Value, DernLignVide, "Code doublon sur la ligne " & Cel.Row
 
        End If
 
    Next Cel
 
    ''''Pour parcourir l'ensemble des lignes non vides
    Nbenreg = Range("A3").End(xlDown).Row
    For i = 3 To Nbenreg
 
        ''''Pour n'effectuer les contrôles que sur les lignes dont la "Validation" vaut "OK"
        If Sheets("Fichier de travail").Range("E" & i) = "OK" Then
Une idée du pourquoi du comment ? Puis de comment résoudre ce problème ?

Merci d'avance :-)