Discussion :

[Tigris]

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 :-)

[BENNASR]

bonsoir
voir la définition du plage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range(.Cells(1, 1), .Cells(DernLigne, DernColonne))

[vinc_bilb]

Bonjour,

Face à ce type de situation, je vous suggère:

1. D'insérer des points d'arrêt dans votre code
2. De regarder l'état de vos variables
3. De rajouter des Debug.Print pour une sortie dans la fenêtre debug

Autre suggestion: regarder les proprités speciallCells pour récupérer toutes les cellules non vides

Ceci étant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    With Worksheets("Fichier de travail")
 
        Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
        Debug.Print Plage.Address
       Set Plage = Place.SpecialCells(xlCellTypeConstants)
       Debug.Print Plage.Address
    End With
 
    For Each Cel In Plage 'il ne manque rien?
         Debug.Print Cel.Address

=> ça donnerait quoi?

[Tigris]

@BENNASR : Comment serait défini DernColonne ?

@vinc_bilb : Ce code me donne un message d'erreur "Objet requis".

[BENNASR]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))

c'est à partir de la cellule A2 jusqu'au dernière celule non vide de la colonne A ???

[Tigris]

Oui

[BENNASR]

essayez avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set plage = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)

[Tigris]

Idem, ça ne sort toujours pas de ce premier for.

[BENNASR]

essayez comme moi en tant que débutant avec le msgbox pour cerner l'erreur
faire tourner la boucle avec simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
For Each Cel In Plage
 
        If Cel.Value <> "?" And Application.CountIf(Plage, Cel.Value) > 1 Then
 
           msgbox cel.row
 
        End If
 
    Next Cel

[Tigris]

Quand je fais ça, il m'affiche les messages de la msgbox puis passe à la boucle suivante correctement.

Le problème vient donc de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DernLignVide = Sheets("CR").Range("A1").End(xlDown).Row + 1
            Ligne_Erreur Cel.Value, DernLignVide, "Code doublon sur la ligne " & Cel.Row

Sachant que la fonction Ligne_Erreur est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Ligne_Erreur(Code_K, DernLignVide, Message_Erreur)
 
    Range("CR!A" & DernLignVide).Value = Code_K
    Sheets("CR").Cells(DernLignVide, Columns.Count).End(xlToLeft).Offset(, 1).Value = Message_Erreur
 
End Sub

[halaster08]

Bonjour,

As-tu essayé le mode pas à pas (touche F8) pour voir ce que fait ton code exactement ?

edit: j'ai essayé ton code chez moi en modifiant juste les noms de feuille je n'ai eu aucun soucis

[Tigris]

Oui, bien sûr : il tourne en boucle dans ce For (il va de la 1re à la dernière ligne puis recommence à la 1re, etc...).

[halaster08]

il tourne en boucle dans ce For (il va de la 1re à la dernière ligne puis recommence à la 1re, etc...).

C'est étonnant, ce n'est pas le comportement normal d'un boucle for
Si tu lui demandes msgbox plage.cells.count il te donne combien? c'est ce que tu attendais ?

Si tu remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Cel In Plage

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for i = 2 to .Cells(.Rows.Count, 1).End(xlUp).row

et tous les Cel par cells(i,1)
As-tu le même souci ?

As tu essayé de copier tes données dans un nouveau classeur et d'y lancer ta macro ? Ton classeur est peut être corrompu

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Si je peux me permettre quelques remarques:
Dans toute discussion, je pense, il faudrait retourner dans l'ordre
1 - avec précision, l'ensemble des actions à effectuer (telle cellule de telle feuille vers telle plage de telle feuille de tel classeur....)
2 - retourner le code dans son intégralité
3 - préciser le problème (ce qui a été fait : boucle sans fin)

Sur le code lui-même:
- Les objets ne sont pas tous rattachés (Worksheets("tata").Range("A1"))
- Je ne vois pas l'utilité de définir la dernière ligne dans la boucle

A ce point de la discussion, Tigris, pourrais-tu reprendre les points 1 et 2 en tenant compte de ces 2 dernières remarques.

A plus tard.

[Tigris]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for i = 2 to .Cells(.Rows.Count, 1).End(xlUp).row

J'ai testé mais il y a une erreur de compilation avec "Référence incorrecte ou non qualifiée" sur le .Rows

[halaster08]

J'ai testé mais il y a une erreur de compilation avec "Référence incorrecte ou non qualifiée" sur le .Rows

Je l'ai pourtant copié collé de ton code au post 1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Worksheets("Fichier de travail")
 
        Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With

si tu ne l'as pas mis dans le with rajoute la référence à la feuille devant les points

[vinc_bilb]

@BENNASR : Comment serait défini DernColonne ?

@vinc_bilb : Ce code me donne un message d'erreur "Objet requis".

Ben .... c'est peut-être une cause de vos soucis. Que donnent les sorties debug.Print?
Regardez ce que je vous avais mis si vous voulez: For Each Cel In Plage 'il ne manque rien?

Les cellules sont défines comme un range mais doivent se référer aux ..... cellules de ce range
Par exemple, For Each Cl in Plage.Cells

[Tigris]

Je l'ai pourtant copié collé de ton code au post 1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Worksheets("Fichier de travail")
 
        Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With

si tu ne l'as pas mis dans le with rajoute la référence à la feuille devant les points

J'ai beau essayer, ça ne fonctionne pas.

Ben .... c'est peut-être une cause de vos soucis. Que donnent les sorties debug.Print?
Regardez ce que je vous avais mis si vous voulez: For Each Cel In Plage 'il ne manque rien?

Les cellules sont défines comme un range mais doivent se référer aux ..... cellules de ce range
Par exemple, For Each Cl in Plage.Cells

J'ai apporté cette modification, en vain.

[Tigris]

Bonjour,

Restant toujours sans solution, je me permets de relancer le forum :-)

Merci d'avance.

[halaster08]

La plupart de mes questions du post 13 étant toujours sans réponses, je me permet d'attendre que tu y réponde.
Pour rappel:
-le nombre de cellule de ta plage
-le résultat obtenu si tu transforme de ta boucle for each en for to
-le résultat obtenu avec le même code lancé dans un nouveau classeur