Discussion :

[kev59600]

Bonjour,

dans le cadre d'un projet professionnel, je réalise une macro qui vérifie les écarts entre deux fichiers (A et B).
Chaque ligne contient un identifiant unique qui est la combinaison de 2 colonnes.

En résumé, rien de bien sorcier :
- J'applique un filtre.
- Pour chaque ligne du fichier A, je compare les 2 colonnes (qui servent d'identifiant) avec 2 autres colonnes (aussi identifiant) du fichier B, pour chaque ligne aussi. Je procèdes avec des FOR EACH ligne IN plageA.Rows
- Si les 2 colonnes du fichier A ne sont pas trouvées dans le fichier B, les 2 colonnes du fichier A sont colorées en rouge.


Tout fonctionne très bien, sauf que la définition de mon Range pose problème, puisqu'il me prend la première ligne (celle d'en-tête avec les filtres).
Par conséquent, les en-tête des deux colonnes sont colorés en rouge, car inclus dans mes plages

Code :

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

1
2
3
 
Set plageA = Workbooks(fichier_A).Sheets(feuille_fichier_A).Range("_FilterDataBase").SpecialCells(xlCellTypeVisible)
Set plageB = Workbooks(fichier_B).Sheets(feuille_fichier_B).Range("_FilterDataBase").SpecialCells(xlCellTypeVisible)

Pouvez-vous m'aider à attribuer à mes variables plageA et plageB uniquement les cellules filtrées et visibles, SANS la ligne d'en-tête ? S'il vous plait.
Ca peut paraitre tout simple mais je sèche ... malgré mes recherches (j'ai trouvé beaucoup de solutions, mais aucune ne me correspond).

[Philippe PONS]

Salut,

en redimensionnant et en décalant la plage

Code :

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

1
2
3
4
5
6
7
8
Sub test_forum()
    Dim sh As Worksheet
    Dim plageA As Range
    Set sh = Workbooks(fichier_A).Sheets(feuille_fichier_A)
    Set plageA = sh.Range("_FilterDataBase").SpecialCells(xlCellTypeVisible)
    ' redimensionne la plage(une ligne en moins) et la décale une ligne vers le bas
    Set plageA = plageA.Resize(plageA.Rows.Count - 1).Offset(1, 0)
End Sub

[kev59600]

Merci pour ton aide Philippe !

J'avais déjà essayé, mais j'ai une erreur d'exécution :
Erreur d'exécution 1004
Erreur définie par l'application ou par l'objet

Causée par la ligne :

Code :

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

Set plageA = plageA.Resize(plageA.Rows.Count - 1).Offset(1, 0)

Grosse incompréhension

[RyuAutodidacte]

Bonjour,

je ne connaissais pas : Range("_FilterDataBase")
mais je viens de tester et ça marche, donc ma question est : as tu bien défini toutes tes variables ??
Du genre : Dim plageA as Range …, etc

[Philippe PONS]

Essaie de chercher la cause en testant chaque partie.
Par exemple:

Code :

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

1
2
3
4
5
6
7
8
 
Set plageA = plageA.Resize(plageA.Rows.Count - 1).Offset(1, 0)
plageA.Select
' puis
Debug.Print plageA.Rows.Count
' puis
 plageA.Resize(plageA.Rows.Count - 1).Select
' tu peux ainsi vérifier si les références sont bonnes

[kev59600]

Merci pour vos réponses !
Oui, j'ai bien défini toutes mes variables, dont les Range


La première sélection fonctionne à merveille, sans surprises, j'ai bien ma place sélectionné correctement (j'avais déjà vérifié de mon côté) :

Code :

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

plageA.Select

Le problème vient du fait que ma plage ne contient qu'une ligne. La procédure suivante me retourne 1 :

Code :

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

Debug.Print plageA.Rows.Count

D'où l'impossibilité de redimensionner, car on aurait donc 0 lignes en réduisant plageA d'1 ligne.
Cette ligne plante :

Code :

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

plageA.Resize(plageA.Rows.Count - 1).Select

Peut-être une histoire de lignes non-adjacentes ?
Mais alors pourquoi mon FOR EACH fonctionne ? C'est dingue !