Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lister une plage de cellules pour pouvoir les comparer

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

Sylvagreg

XLDnaute Nouveau
Bonjour,

Je suis débutant et bricole avec ce que je trouve sur ce type de forum.
Là je coince, la définition des plages ne fonctionne pas. Est ce que quelqu'un pourrait me corriger le code?
Merci d'avance😡

' Fusion
Dim i&, j&, DerL&
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim PlageWs1 As Range, PlageWs2 As Range
Set Ws1 = Worksheets("Fusion"): Set Ws2 = Worksheets("Salaires au 31 12")
Set PlageWs1 = (Cells(i, 2), Cells(i, 4))
Set PlageWs2 = (Cells(j, 2), Cells(j, 4))
With Ws2
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
DerL = Ws1.Cells(Rows.Count, 1).End(xlUp)(2).Row
If Not IsError(Application.Match(PlageWs1, PlageWs2, 0)) Then
For j = 1 To DerL
If (Cells(j, 2) + Cells(j, 3) + Cells(j, 4)) = (.Cells(i, 2) + .Cells(i, 3) + .Cells(i, 4)) Then
Ws1.Cells(j, 18) = .Cells(i, 13)
Ws1.Cells(j, 19) = .Cells(i, 14)
Ws1.Cells(j, 20) = .Cells(i, 17)
End If
Next
Else
Ws1.Cells(DerL, 1) = .Cells(i, 1)
Ws1.Cells(DerL, 2) = .Cells(i, 2)
Ws1.Cells(DerL, 3) = .Cells(i, 3)
Ws1.Cells(DerL, 4) = .Cells(i, 4)
Ws1.Cells(DerL, 5) = .Cells(i, 5)
Ws1.Cells(DerL, 6) = .Cells(i, 6)
Ws1.Cells(DerL, 7) = .Cells(i, 7)
Ws1.Cells(DerL, 8) = .Cells(i, 8)
Ws1.Cells(DerL, 9) = .Cells(i, 9)
Ws1.Cells(DerL, 10) = .Cells(i, 10)
Ws1.Cells(DerL, 11) = .Cells(i, 11)
Ws1.Cells(DerL, 12) = .Cells(i, 12)
Ws1.Cells(DerL, 15) = .Cells(i, 15)
Ws1.Cells(DerL, 16) = .Cells(i, 16)
Ws1.Cells(DerL, 18) = .Cells(i, 13)
Ws1.Cells(DerL, 19) = .Cells(i, 14)
Ws1.Cells(DerL, 20) = .Cells(i, 17)
DerL = DerL + 1
End If
Next
End With
End Sub
 
Trier par date Trier par votes
Re : Lister une plage de cellules pour pouvoir les comparer

Bonjour,

Set PlageWs1 = (Cells(i, 2), Cells(i, 4))
Cliquez pour agrandir...

quand tu veux initialiser ta plage, les variables i et j ne sont pas définies, donc valent 0.... inspire toi peut être de ceci :
Code: 
Dim i As Long, PlageWs1 As Range
i = 1
Set PlageWs1 = Cells(i, 2).Resize(, 3)
PlageWs1.Select

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Lister une plage de cellules pour pouvoir les comparer

Bonjour Sylvagreg et bienvenu, Pierrot, bonjour le forum,

Essaie comme ça :
Code: 
Sub Macro1()
Dim i&, j&, DerL&
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim PlageWs1 As Range, PlageWs2 As Range

Set Ws1 = Worksheets("Fusion"): Set Ws2 = Worksheets("Salaires au 31 12")
Set PlageWs1 = Ws1.Range(Ws1.Cells(i, 2), Ws1.Cells(i, 4))
Set PlageWs2 = Ws2.Range(Ws2.Cells(j, 2), Ws2.Cells(j, 4))
With Ws2
    For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
        DerL = Ws1.Cells(Rows.Count, 1).End(xlUp)(2).Row
        If Not IsError(Application.Match(PlageWs1, PlageWs2, 0)) Then
            For j = 1 To DerL
                If Ws1.Range(Ws1.Cells(j, 2) + Ws1.Cells(j, 3) + Ws1.Cells(j, 4)) = .Range(.Cells(i, 2) + .Cells(i, 3) + .Cells(i, 4)) Then
                    Ws1.Cells(j, 18) = .Cells(i, 13)
                    Ws1.Cells(j, 19) = .Cells(i, 14)
                    Ws1.Cells(j, 20) = .Cells(i, 17)
                End If
            Next
        Else
            Ws1.Cells(DerL, 1) = .Cells(i, 1)
            Ws1.Cells(DerL, 2) = .Cells(i, 2)
            Ws1.Cells(DerL, 3) = .Cells(i, 3)
            Ws1.Cells(DerL, 4) = .Cells(i, 4)
            Ws1.Cells(DerL, 5) = .Cells(i, 5)
            Ws1.Cells(DerL, 6) = .Cells(i, 6)
            Ws1.Cells(DerL, 7) = .Cells(i, 7)
            Ws1.Cells(DerL, 8) = .Cells(i, 8)
            Ws1.Cells(DerL, 9) = .Cells(i, 9)
            Ws1.Cells(DerL, 10) = .Cells(i, 10)
            Ws1.Cells(DerL, 11) = .Cells(i, 11)
            Ws1.Cells(DerL, 12) = .Cells(i, 12)
            Ws1.Cells(DerL, 15) = .Cells(i, 15)
            Ws1.Cells(DerL, 16) = .Cells(i, 16)
            Ws1.Cells(DerL, 18) = .Cells(i, 13)
            Ws1.Cells(DerL, 19) = .Cells(i, 14)
            Ws1.Cells(DerL, 20) = .Cells(i, 17)
            DerL = DerL + 1
        End If
    Next
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Lister une plage de cellules pour pouvoir les comparer

Bon ben Robert cela ne marche pas,
Il me met un message d'erreur 1004
et le débogage met en jaune la ligne suivante:
Set PlageWs1 = Ws1.Range(Ws1.Cells(i, 2), Ws1.Cells(i, 4))
 
Vote positif 0 Vote négatif
Re : Lister une plage de cellules pour pouvoir les comparer

Bonjour le fil, bonjour le forum,

Oui là c'est la réponse de Pierrot qui l'explique. Tu définis ta plage avant la boucle For i = 1 to... Donc i = 0 et forcément ça plante (idem pour j) :
Essaie comme ça :
Code: 
Sub Macro1()
Dim i&, j&, DerL&
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim PlageWs1 As Range, PlageWs2 As Range

Set Ws1 = Worksheets("Fusion"): Set Ws2 = Worksheets("Salaires au 31 12")
With Ws2
    For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
        Set PlageWs1 = Ws1.Range(Ws1.Cells(i, 2), Ws1.Cells(i, 4))
        DerL = Ws1.Cells(Rows.Count, 1).End(xlUp)(2).Row
        If Not IsError(Application.Match(PlageWs1, PlageWs2, 0)) Then
            For j = 1 To DerL
                Set PlageWs2 = Ws2.Range(Ws2.Cells(j, 2), Ws2.Cells(j, 4))
                If Ws1.Range(Ws1.Cells(j, 2) + Ws1.Cells(j, 3) + Ws1.Cells(j, 4)) = .Range(.Cells(i, 2) + .Cells(i, 3) + .Cells(i, 4)) Then
                    Ws1.Cells(j, 18) = .Cells(i, 13)
                    Ws1.Cells(j, 19) = .Cells(i, 14)
                    Ws1.Cells(j, 20) = .Cells(i, 17)
                End If
            Next
        Else
            Ws1.Cells(DerL, 1) = .Cells(i, 1)
            Ws1.Cells(DerL, 2) = .Cells(i, 2)
            Ws1.Cells(DerL, 3) = .Cells(i, 3)
            Ws1.Cells(DerL, 4) = .Cells(i, 4)
            Ws1.Cells(DerL, 5) = .Cells(i, 5)
            Ws1.Cells(DerL, 6) = .Cells(i, 6)
            Ws1.Cells(DerL, 7) = .Cells(i, 7)
            Ws1.Cells(DerL, 8) = .Cells(i, 8)
            Ws1.Cells(DerL, 9) = .Cells(i, 9)
            Ws1.Cells(DerL, 10) = .Cells(i, 10)
            Ws1.Cells(DerL, 11) = .Cells(i, 11)
            Ws1.Cells(DerL, 12) = .Cells(i, 12)
            Ws1.Cells(DerL, 15) = .Cells(i, 15)
            Ws1.Cells(DerL, 16) = .Cells(i, 16)
            Ws1.Cells(DerL, 18) = .Cells(i, 13)
            Ws1.Cells(DerL, 19) = .Cells(i, 14)
            Ws1.Cells(DerL, 20) = .Cells(i, 17)
            DerL = DerL + 1
        End If
    Next
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Lister une plage de cellules pour pouvoir les comparer

Bon alors là il bug sur
If Not IsError(Application.Match(PlageWs1, PlageWs2, 0)) Then
Je pense comprendre car la plageWs2 est définie après cette ligne.

Je suis vraiment complètement novice. Donc j'avais bien vu le message de Pierrot mais ne savait pas quoi en faire.
Comme dans le cas présent je pense déceler le problème mais suis incapable d'apporter une solution! Tu définis la valeur initiale de j après donc si on remonte la définition de plage on va arriver au même problème que précédemment??!!??
Merci à vous.
 
Vote positif 0 Vote négatif
Re : Lister une plage de cellules pour pouvoir les comparer

Bonjour Sylvareg, bonjour le forum,

je ne peux malheureusement t'aider davantage car je n'ai toujours pas compris comment fonctionne le mot Match dont l'aide est inexistante dans la version 2003. Je n'utilise jamais ce mots dans mes codes car je lui préfère Find que je maîtrise un peu mieux. Cependant, je pense que ça pourrait peut-être fonctionner comme ça :
Code: 
Sub Macro1()
Dim i&, j&, DerL&
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim PlageWs1 As Range, PlageWs2 As Range

Set Ws1 = Worksheets("Fusion"): Set Ws2 = Worksheets("Salaires au 31 12")
DerL = Ws1.Cells(Rows.Count, 1).End(xlUp)(2).Row
With Ws2
    For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
        Set PlageWs1 = Ws1.Range(Ws1.Cells(i, 2), Ws1.Cells(i, 4))
        For j = 1 To DerL
            Set PlageWs2 = Ws2.Range(Ws2.Cells(j, 2), Ws2.Cells(j, 4))
            If Not IsError(Application.Match(PlageWs1, PlageWs2, 0)) Then
                If Ws1.Range(Ws1.Cells(j, 2) + Ws1.Cells(j, 3) + Ws1.Cells(j, 4)) = .Range(.Cells(i, 2) + .Cells(i, 3) + .Cells(i, 4)) Then
                    Ws1.Cells(j, 18) = .Cells(i, 13)
                    Ws1.Cells(j, 19) = .Cells(i, 14)
                    Ws1.Cells(j, 20) = .Cells(i, 17)
                End If
            Else
                Ws1.Cells(DerL, 1) = .Cells(i, 1)
                Ws1.Cells(DerL, 2) = .Cells(i, 2)
                Ws1.Cells(DerL, 3) = .Cells(i, 3)
                Ws1.Cells(DerL, 4) = .Cells(i, 4)
                Ws1.Cells(DerL, 5) = .Cells(i, 5)
                Ws1.Cells(DerL, 6) = .Cells(i, 6)
                Ws1.Cells(DerL, 7) = .Cells(i, 7)
                Ws1.Cells(DerL, 8) = .Cells(i, 8)
                Ws1.Cells(DerL, 9) = .Cells(i, 9)
                Ws1.Cells(DerL, 10) = .Cells(i, 10)
                Ws1.Cells(DerL, 11) = .Cells(i, 11)
                Ws1.Cells(DerL, 12) = .Cells(i, 12)
                Ws1.Cells(DerL, 15) = .Cells(i, 15)
                Ws1.Cells(DerL, 16) = .Cells(i, 16)
                Ws1.Cells(DerL, 18) = .Cells(i, 13)
                Ws1.Cells(DerL, 19) = .Cells(i, 14)
                Ws1.Cells(DerL, 20) = .Cells(i, 17)
                DerL = DerL + 1
            End If
        Next j
    Next i
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Lister une plage de cellules pour pouvoir les comparer

Maintenant j'ai toujours une erreur 1004
Avec comme message "Méthode Range de l'objet Worsheet a échoué
et le débogage se positionne sur la ligne suivante:
If Ws1.Range(Ws1.Cells(j, 2) + Ws1.Cells(j, 3) + Ws1.Cells(j, 4)) = .Range(.Cells(i, 2) + .Cells(i, 3) + .Cells(i, 4)) Then
 
Vote positif 0 Vote négatif
Re : Lister une plage de cellules pour pouvoir les comparer

Re, bonsoir Robert🙂

Code: 
If Ws1.Cells(j, 2) & Ws1.Cells(j, 3) & Ws1.Cells(j, 4)) = .Cells(i, 2) & .Cells(i, 3) & .Cells(i, 4)) Then

en supposant que le code soit placé au bon endroit et que les différentes variables soient bien initialisées....

A noter tout de même, avec un tout petit fichier en pièce jointe ne représentant que le problème posé, avec le modèle de données et le résultat attendu, tu aurais déjà la réponse....
 
Vote positif 0 Vote négatif
Re : Lister une plage de cellules pour pouvoir les comparer

Pierrot,

Cela ne marche toujours pas.
Cijoint un fichier
Je veux qu'il me retrouve donc les données du 31/12 à mettre en face de celles du 30/09.
Mais j'ai des changements de société, des salariés sortis, d'autres entrés, des homonymes...
Il faut qu'il me récupère tout cela.
Merci d'avance
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Lister une plage de cellules pour pouvoir les comparer

Bonjour,

tu peux de toute façon enlever ce test :
Code: 
If Not IsError(Application.Match(PlageWs1, PlageWs2, 0)) Then
"Application.Match" ne compare pas 2 plages de cellules mais recherche une valeur spécifique dans une plage....

bonne joutrnée
@+
 
Vote positif 0 Vote négatif
Re : Lister une plage de cellules pour pouvoir les comparer

Re,

code un peu retouché, à tester :
Code: 
Option Explicit
Sub Macro1()
Dim i&, j&, Ws1 As Worksheet, Ws2 As Worksheet
Sheets("Fusion").Cells.ClearContents
Sheets("Salaires actuels").Copy Sheets("Fusion").Range("A1")
Set Ws1 = Worksheets("Fusion"): Set Ws2 = Worksheets("Salaires au 31 12")
     With Ws2
         For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
             For j = 1 To Ws1.Cells(Rows.Count, 1).End(xlUp)(2).Row
                If (Ws1.Cells(j, 2) & Ws1.Cells(j, 3) & Ws1.Cells(j, 4)) = (.Cells(i, 2) & .Cells(i, 3) & .Cells(i, 4)) Then
                    Ws1.Cells(j, 18) = .Cells(i, 13)
                    Ws1.Cells(j, 19) = .Cells(i, 14)
                    Ws1.Cells(j, 20) = .Cells(i, 17)
                 Else
                     Ws1.Cells(DerL, 1) = .Cells(i, 1)
                     Ws1.Cells(DerL, 2) = .Cells(i, 2)
                     Ws1.Cells(DerL, 3) = .Cells(i, 3)
                     Ws1.Cells(DerL, 4) = .Cells(i, 4)
                     Ws1.Cells(DerL, 5) = .Cells(i, 5)
                     Ws1.Cells(DerL, 6) = .Cells(i, 6)
                     Ws1.Cells(DerL, 7) = .Cells(i, 7)
                     Ws1.Cells(DerL, 8) = .Cells(i, 8)
                     Ws1.Cells(DerL, 9) = .Cells(i, 9)
                     Ws1.Cells(DerL, 10) = .Cells(i, 10)
                     Ws1.Cells(DerL, 11) = .Cells(i, 11)
                     Ws1.Cells(DerL, 12) = .Cells(i, 12)
                     Ws1.Cells(DerL, 15) = .Cells(i, 15)
                     Ws1.Cells(DerL, 16) = .Cells(i, 16)
                     Ws1.Cells(DerL, 18) = .Cells(i, 13)
                     Ws1.Cells(DerL, 19) = .Cells(i, 14)
                     Ws1.Cells(DerL, 20) = .Cells(i, 17)
                 End If
             Next j
         Next i
     End With
End Sub
 
Vote positif 0 Vote négatif
Re : Lister une plage de cellules pour pouvoir les comparer

Merci Pierrot

Il m'a bloqué sur la ligne de copie alors j'ai remis le code que j'avais mis au début.
Mais maintenant il bloque sur la ligne
Ws1.Cells(DerL, 1) = .Cells(i, 1)
La première après le Else
 
Vote positif 0 Vote négatif
Re : Lister une plage de cellules pour pouvoir les comparer

Avec le code entier ce sera mieux!!


Sub Macro1()
Dim i&, j&, Ws1 As Worksheet, Ws2 As Worksheet
Sheets("Fusion").Cells.ClearContents
Sheets("Salaires actuels").Select
Cells.Select
Selection.Copy
Sheets("Fusion").Select
Cells.Select
ActiveSheet.Paste
Range("a1").Select
Set Ws1 = Worksheets("Fusion"): Set Ws2 = Worksheets("Salaires au 31 12")
With Ws2
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To Ws1.Cells(Rows.Count, 1).End(xlUp)(2).Row
If (Ws1.Cells(j, 2) & Ws1.Cells(j, 3) & Ws1.Cells(j, 4)) = (.Cells(i, 2) & .Cells(i, 3) & .Cells(i, 4)) Then
Ws1.Cells(j, 18) = .Cells(i, 13)
Ws1.Cells(j, 19) = .Cells(i, 14)
Ws1.Cells(j, 20) = .Cells(i, 17)
Else
Ws1.Cells(DerL, 1) = .Cells(i, 1)
Ws1.Cells(DerL, 2) = .Cells(i, 2)
Ws1.Cells(DerL, 3) = .Cells(i, 3)
Ws1.Cells(DerL, 4) = .Cells(i, 4)
Ws1.Cells(DerL, 5) = .Cells(i, 5)
Ws1.Cells(DerL, 6) = .Cells(i, 6)
Ws1.Cells(DerL, 7) = .Cells(i, 7)
Ws1.Cells(DerL, 8) = .Cells(i, 8)
Ws1.Cells(DerL, 9) = .Cells(i, 9)
Ws1.Cells(DerL, 10) = .Cells(i, 10)
Ws1.Cells(DerL, 11) = .Cells(i, 11)
Ws1.Cells(DerL, 12) = .Cells(i, 12)
Ws1.Cells(DerL, 15) = .Cells(i, 15)
Ws1.Cells(DerL, 16) = .Cells(i, 16)
Ws1.Cells(DerL, 18) = .Cells(i, 13)
Ws1.Cells(DerL, 19) = .Cells(i, 14)
Ws1.Cells(DerL, 20) = .Cells(i, 17)
End If
Next j
Next i
End With
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
243
KRUG WOO
K
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
2 K
francescofrancesco
F
A
  • Question Question
Microsoft 365 Code VBA Envoi contenu tableau Excel par Email
Réponses
1
Affichages
480
Phil69970
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
471
job75
  • Question Question
Microsoft 365 VBA Transpose
Réponses
11
Affichages
833
sylvanu
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
179
kiki29
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
217
Abi23
A
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
134
sylvanu
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
171
CDALE
C
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
315
Piment
P
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
917
laurent950
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
480
CortoXls
C
  • Question Question
XL 2021 Importer les données Access dans Excel
Réponses
2
Affichages
433
badraaliou4
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
973
Mody200
M
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
341
VBA_dev_Anne_Marie
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
509
tnion
T
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
851
TooFatBoy
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
200
sylvanu
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
395
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…