Discussion :

[a.petitjean1]

Bonjour à tous,

Dans le cadre de mon job je dois vérifier des données de catalogue produits.
Afin de m'aider dans cette tache j'ai réalisé un fichier avec des macros pour automatiser les vérifications.

Je bloque cependant sur un problème. J'ai récupéré une macro qui permet de supprimer totalement une ligne si dans la cellule X de la colonne Y la valeur est vrai.
Malheureusement cette macro ne fonctionne plus (alors qu'elle fonctionnait sur l'autre classeur).

J'aimerai comprendre le problème et surtout réussir à faire fonctionner cette macro.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Suppression_Id_Variant()
Dim MyRange As Range
Dim L As Long
    Set MyRange = ActiveSheet.Range("A1").CurrentRegion
    For L = MyRange.Rows.Count To 1 Step -1
 
        If MyRange(L, 57).Value = True Then MyRange(L, 57).EntireRow.Delete
 
    Next
End Sub

Dans le fichier Joint il s'agit des Macros Suppression_doublons et de Suppression_Id_Variant.

Merci d'avance de votre aide.

Aurélien

[pijaku]

Bonjour,

Que vaut MyRange lors de l'exécution de ta macro?

Test comme ceci :

Code :

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

1
2
3
4
5
Sub Test()
Dim MyRange As Range
    Set MyRange = ActiveSheet.Range("A1").CurrentRegion
    MsgBox MyRange.Address
End Sub

[a.petitjean1]

Bonjour pijaku,

La réponse reçu est $A$1:$E$1

Je pense qu'il y a un souci...

Comment je peux définir cette plage MyRange ??

Merci

Aurélien

[a.petitjean1]

J'ai modifié la Range A1 en A4 et cela fonctionne. Merci beaucoup pour la piste de My range !!

Bonne journée

Aurélien

[pijaku]

Essaye ceci :

Code :

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

1
2
3
4
5
Sub Test2()
Dim MyRange As Range
    Set MyRange = ActiveSheet.UsedRange
    MsgBox MyRange.Address
End Sub

Sinon ceci (adapter les 2 constantes, bien entendu) :

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
Sub Test3()
Dim DL As Long, MyRange As Range
Const PREMCELLULE As String = "A2"
Const DERNCOLONNE As String = "AB"
 
   DL = derlig_reelle(Worksheets("Feuil1").Columns(1))
   Set MyRange = Range(PREMCELLULE & ":" & DERNCOLONNE & DL)
    MsgBox MyRange.Address
End Sub
 
Private Function derlig_reelle(plage As Range) As Long
   'cas d'absence de données dans la plage à traiter :
   If WorksheetFunction.CountA(plage) = 0 Then derlig_reelle = 1: Exit Function
   'dans tous les autres cas :
   derlig_reelle = plage.Find("*", , , , , xlPrevious).Row
End Function