Discussion :

[romanzolanski]

Bonjour, débutante dans la programmation sous VBA je cherche à créer une macro permettant de comparer 3 fichier ( fiche de base de donnée, mouvement2015 et mouvement 2016) et celui ci consiste à vérifier si les mots clé situé dans la colonne auxiliaire (de la base de donnés) se retrouvent dans les feuilles (mouvement 2016 ou mouvement2016) sinon de supprimer toute la ligne.
je me retrouve bloqué car un message d'erreur s'affiche à partir de for each

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
32
33
Sub mouvement2015()
Dim sheetmouvementannée1 As String, sheetmouvementannée2 As String, sheetbasededonné As String, sheetDestination As String
sheetmouvementannée1 = InputBox("Entrez le nom de la feuille des mouvements de l'année N")
sheetmouvementannée2 = InputBox("Entrez le nom de la feuille des mouvements de l'année N+1")
sheetbasededonné = InputBox("Entrez le nom de la feuille de base de donnée")
sheetDestination = InputBox("Entrez le nom de la feuille de destination des résultats")
 
Dim basededonné As Worksheet, Destination As Worksheet, mouvementannée1 As Worksheet, mouvementannée2 As Worksheet
 
Set basededonné = Worksheets(sheetbasededonné)
Set Destination = Worksheets(sheetDestination)
Set mouvementannée1 = Worksheets(sheetmouvementannée1)
Set mouvementannée2 = Worksheets(sheetmouvementannée2)
 
basededonné.Select
 
Dim plage As Range
Dim auxiliaire2015 As Range, auxiliaire2016 As Range
'Dim auxiliaire As Range
Dim cellule As Range
Dim DERLIGNE As Integer, i As Integer
 
DERLIGNE = Range("A1048576").End(xlUp).Row
Set plage = Range(" C2:A" & DERLIGNE)
Set auxiliaire2015 = mouvementannée1.Range("A1")
set auxiliaire2016 = mouvementannée2.Range("A1")
 
    For Each cellule In plage
        For i = 1 To 10
        If cellule.Value <> auxiliaire2015.Offset(i).Value And auxiliaire <> auxiliaire2016.Offset(i).Value Then cellule.EntireRow.Delete
        Next i   
    Next
End Sub

[parmi]

Bonjour,

Quel est le message d'erreur ?
Ce message arrive sur la ligne For Each Cellule In Plage ?
Est-ce normal ta plage Set plage = Range(" C2:A" & DERLIGNE) De C2 à Ax ?

[Philippe Tulliez]

Bonjour,
En complément de la réponse de Parmi.
Il est important pour éviter les problèmes de préciser la filiation complète des objets (Classeur.Feuille.Cellule)