[Resolu] Recopie conditionnelle depuis plusieurs classeurs

Créer une discussion
Répondre

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
F

fb62840

XLDnaute Impliqué
Bonjour à toutes et à tous,

J'aimerais réussir à recopier sur 3 onglets du classeur Recap le contenu présents dans plusieurs classeurs sous conditions.

Sur l'onglet R1 je souhaiterais ne recopier que les lignes dans lesquelles on trouve en colonne D une date avec un retard jusqu'à 1 mois

Sur l'onglet R2 les lignes dans lesquelles on trouve en colonne D une date avec un retard compris plus d'1 mois et jusqu'à 3 mois

Sur l'onglet R3 les lignes dans lesquelles on trouve en colonne D une date avec un retard supérieur à 3 mois

Merci pour votre aide c'est assez urgent
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Recopie conditionnelle depuis plusieurs classeurs

Bonjour,

Voir fichier joint, j'ai traiter les différences de date en nombre de jour <0, 1 à 30, 31 à 90, au-delà.
Les fichiers doivent être dans le même répertoire et s'appeler "CONSO aaaa.xls"
Traitement des fichier 1 à 1 avec demande préalable de l'année concernée.

A+
 
Vote positif 0 Vote négatif
Re : Recopie conditionnelle depuis plusieurs classeurs

Hasco à dit:
Bonjour,

Voir fichier joint, j'ai traiter les différences de date en nombre de jour <0, 1 à 30, 31 à 90, au-delà.
Les fichiers doivent être dans le même répertoire et s'appeler "CONSO aaaa.xls"
Traitement des fichier 1 à 1 avec demande préalable de l'année concernée.

A+
Cliquez pour agrandir...

Merci beaucoup, ça va permettre d'avancer si on parvient à régler une erreur.

A l'exécution avec votre proposition j'ai une erreur sur la ligne :
Code: 
With shSource.Cells(lig, 7)
C'est une erreur d'exécution 91 Variable ou objet de bloc with non défini.

J'ai placé les deux fichiers que je souhaite tester dans le même dossier du fichier qui lance la macro.
 
Vote positif 0 Vote négatif
Re : Recopie conditionnelle depuis plusieurs classeurs

Re,

J'ai trouvé l'erreur:

Mettre: Set shSource = Nothing
après la ligne : Next lig
et non avant comme je l'ai Fait
Code: 
Sub Traitement(ByVal an As Integer)
Dim wkSource As Workbook, shDest As Worksheet, shSource As Worksheet
Dim lig As Long, dif As Integer, idxFeuille As Integer
    
    'Récupérer le fichier idoine ou sortir
    Set wkSource = GetWorkbook("Conso " & an & ".xls", True, ThisWorkbook.Path)
    If wkSource Is Nothing Then Exit Sub
    
    'Récupérer la feuille source ou sortir
    Set shSource = GetSheet(CStr(an), wkSource, True)
    If shSource Is Nothing Then Exit Sub
    
    'Traiter les données de la feuille source de la ligne 2 à n
     For lig = 2 To shSource.Cells(Rows.Count, 1).End(xlUp).Row
        
        'travailler à partir de la feuille source
        With shSource.Cells(lig, 7)
            If IsDate(.Value) Then
                    'établir un index de nom de feuille suivant la valeur de dif
                    dif = Date - .Value
                    idxFeuille = (((dif <= 0) * 0) + ((dif >= 1 And dif <= 30) * 1) + ((dif >= 31 And dif <= 90) * 2) + ((dif > 90) * 3)) * -1
                    
                    'Récupérer la feuille destination en fonction de son index
                    Set shDest = GetSheet("R" & idxFeuille, ThisWorkbook, False)
                    
                    If Not shDest Is Nothing Then
                        'Copier les valeur de la ligne source dans la feuille destination
                        shDest.Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8).Value = .Cells(lig, 1).Resize(, 8).Value
                    End If
            End If
        End With
    Next lig
    Set shSource = Nothing
    'fermer le classeur source et réinitialiser sa variable
    wkSource.Close False
    Set wkSource = Nothing
    
End Sub
A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Recopie conditionnelle depuis plusieurs classeurs

Super,

Merci Beaucoup, cela va me retirer une énorme épine du pied...

Bonne soirée

Hasco à dit:
Re,

J'ai trouvé l'erreur:

Mettre: Set shSource = Nothing
après la ligne : Next lig
et non avant comme je l'ai Fait
Code: 
Sub Traitement(ByVal an As Integer)
Dim wkSource As Workbook, shDest As Worksheet, shSource As Worksheet
Dim lig As Long, dif As Integer, idxFeuille As Integer
    
    'Récupérer le fichier idoine ou sortir
    Set wkSource = GetWorkbook("Conso " & an & ".xls", True, ThisWorkbook.Path)
    If wkSource Is Nothing Then Exit Sub
    
    'Récupérer la feuille source ou sortir
    Set shSource = GetSheet(CStr(an), wkSource, True)
    If shSource Is Nothing Then Exit Sub
    
    'Traiter les données de la feuille source de la ligne 2 à n
     For lig = 2 To shSource.Cells(Rows.Count, 1).End(xlUp).Row
        
        'travailler à partir de la feuille source
        With shSource.Cells(lig, 7)
            If IsDate(.Value) Then
                    'établir un index de nom de feuille suivant la valeur de dif
                    dif = Date - .Value
                    idxFeuille = (((dif <= 0) * 0) + ((dif >= 1 And dif <= 30) * 1) + ((dif >= 31 And dif <= 90) * 2) + ((dif > 90) * 3)) * -1
                    
                    'Récupérer la feuille destination en fonction de son index
                    Set shDest = GetSheet("R" & idxFeuille, ThisWorkbook, False)
                    
                    If Not shDest Is Nothing Then
                        'Copier les valeur de la ligne source dans la feuille destination
                        shDest.Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8).Value = .Cells(lig, 1).Resize(, 8).Value
                    End If
            End If
        End With
    Next lig
    Set shSource = Nothing
    'fermer le classeur source et réinitialiser sa variable
    wkSource.Close False
    Set wkSource = Nothing
    
End Sub
A+
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Recopie conditionnelle depuis plusieurs classeurs

Je suis allé un peu vite...

En fait le code ne fait que recopier le contenu de 2 colonnes et c'est étonnant car il copie la colonne 7 et la colonne 8

Je suppose que c'est cette portion de code qui est à corriger mais je ne sais pas comment :

Code: 
If Not shDest Is Nothing Then
shDest.Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8).Value = .Cells(lig, 1).Resize(, 8).Value
End If


[quote="Hasco, post: 1324481"]Re,

J'ai trouvé l'erreur:

Mettre: Set shSource = Nothing
après la ligne : Next lig
et non avant comme je l'ai Fait
[CODE]Sub Traitement(ByVal an As Integer)
Dim wkSource As Workbook, shDest As Worksheet, shSource As Worksheet
Dim lig As Long, dif As Integer, idxFeuille As Integer
    
    'Récupérer le fichier idoine ou sortir
    Set wkSource = GetWorkbook("Conso " & an & ".xls", True, ThisWorkbook.Path)
    If wkSource Is Nothing Then Exit Sub
    
    'Récupérer la feuille source ou sortir
    Set shSource = GetSheet(CStr(an), wkSource, True)
    If shSource Is Nothing Then Exit Sub
    
    'Traiter les données de la feuille source de la ligne 2 à n
     For lig = 2 To shSource.Cells(Rows.Count, 1).End(xlUp).Row
        
        'travailler à partir de la feuille source
        With shSource.Cells(lig, 7)
            If IsDate(.Value) Then
                    'établir un index de nom de feuille suivant la valeur de dif
                    dif = Date - .Value
                    idxFeuille = (((dif <= 0) * 0) + ((dif >= 1 And dif <= 30) * 1) + ((dif >= 31 And dif <= 90) * 2) + ((dif > 90) * 3)) * -1
                    
                    'Récupérer la feuille destination en fonction de son index
                    Set shDest = GetSheet("R" & idxFeuille, ThisWorkbook, False)
                    
                    If Not shDest Is Nothing Then
                        'Copier les valeur de la ligne source dans la feuille destination
                        shDest.Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8).Value = .Cells(lig, 1).Resize(, 8).Value
                    End If
            End If
        End With
    Next lig
    Set shSource = Nothing
    'fermer le classeur source et réinitialiser sa variable
    wkSource.Close False
    Set wkSource = Nothing
    
End Sub
A+[/QUOTE]
 
Vote positif 0 Vote négatif
Re : Recopie conditionnelle depuis plusieurs classeurs

Bonjour,

C'est sans doute cela, bien qu'après vérification, chez moi cela fonctionne.

Méthode pour comprendre d'où vient le problème:
1 mettre les plages source et destination en Variables *
2 afficher leur adresse respectives

Code: 
Dim plgSource as range, plgDest As Range
set plgDest =shDest.Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8)
Set plgSource = .Cells(lig, 1).Resize(, 8)
MsgBox "Plage Source: [" & plgSource.Parent.Parent.Name & "]" & plgSource.Parent.name & "!" & plgSource.address & vbcrlf & _
            "Plage Destination: [" & plgDest.Parent.Parent.Name & "]" & plgDest.Parent.name & "!" & plgDest.Adress

plgDest.Value= plgSource.Value

A+
 
Vote positif 0 Vote négatif
Re : Recopie conditionnelle depuis plusieurs classeurs

C'est une bonne idée en effet,

Le code bloque ici sur .Cells avec erreur "Erreur de compilation, référence incorrecte ou non qualifiée".
Code: 
Set plgSource = .Cells(lig, 1).Resize(, 8)


Hasco à dit:
Bonjour,

C'est sans doute cela, bien qu'après vérification, chez moi cela fonctionne.

Méthode pour comprendre d'où vient le problème:
1 mettre les plages source et destination en Variables *
2 afficher leur adresse respectives

Code: 
Dim plgSource as range, plgDest As Range
set plgDest =shDest.Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8)
Set plgSource = .Cells(lig, 1).Resize(, 8)
MsgBox "Plage Source: [" & plgSource.Parent.Parent.Name & "]" & plgSource.Parent.name & "!" & plgSource.address & vbcrlf & _
            "Plage Destination: [" & plgDest.Parent.Parent.Name & "]" & plgDest.Parent.name & "!" & plgDest.Adress

plgDest.Value= plgSource.Value

A+
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Recopie conditionnelle depuis plusieurs classeurs

Re,

Voici la sub Traitement modifiée:

Code: 
Sub Traitement(ByVal an As Integer)
Dim wkSource As Workbook, shDest As Worksheet, shSource As Worksheet
Dim plgSource As Range, plgDest As Range
Dim lig As Long, dif As Integer, idxFeuille As Integer
    'Récupérer le fichier idoine ou sortir
    Set wkSource = GetWorkbook("Conso " & an & ".xls", True, ThisWorkbook.Path)
    If wkSource Is Nothing Then Exit Sub
    'Récupérer la feuille source ou sortir
    Set shSource = GetSheet(CStr(an), wkSource, True)
    If shSource Is Nothing Then Exit Sub
    'Traiter les données de la feuille source de la ligne 2 à n
    For lig = 2 To shSource.Cells(Rows.Count, 1).End(xlUp).Row
        'travailler à partir de la feuille source
        With shSource.Cells(lig, 7)
            If IsDate(.Value) Then
                'établir un index de nom de feuille suivant la valeur de dif
                dif = Date - .Value
                idxFeuille = (((dif <= 0) * 0) + ((dif >= 1 And dif <= 30) * 1) + ((dif >= 31 And dif <= 90) * 2) + ((dif > 90) * 3)) * -1
                'Récupérer la feuille destination en fonction de son index
                Set shDest = GetSheet("R" & idxFeuille, ThisWorkbook, False)
                If Not shDest Is Nothing Then
                    shDest.Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8).value =  shSource.Cells(lig, 1).Resize(, 8).value
                End If
            End If
        End With
    Next lig
    Set shSource = Nothing
    'fermer le classeur source et réinitialiser sa variable
    wkSource.Close False
    Set wkSource = Nothing
End Sub

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Recopie conditionnelle depuis plusieurs classeurs

Bravo, cette fois ci tout se passe comme il convient.

Un énorme merci pour cet excellent travail.

Bonne soirée

Hasco à dit:
Re,

Voici la sub Traitement modifiée:

Code: 
Sub Traitement(ByVal an As Integer)
Dim wkSource As Workbook, shDest As Worksheet, shSource As Worksheet
Dim plgSource As Range, plgDest As Range
Dim lig As Long, dif As Integer, idxFeuille As Integer
    'Récupérer le fichier idoine ou sortir
    Set wkSource = GetWorkbook("Conso " & an & ".xls", True, ThisWorkbook.Path)
    If wkSource Is Nothing Then Exit Sub
    'Récupérer la feuille source ou sortir
    Set shSource = GetSheet(CStr(an), wkSource, True)
    If shSource Is Nothing Then Exit Sub
    'Traiter les données de la feuille source de la ligne 2 à n
    For lig = 2 To shSource.Cells(Rows.Count, 1).End(xlUp).Row
        'travailler à partir de la feuille source
        With shSource.Cells(lig, 7)
            If IsDate(.Value) Then
                'établir un index de nom de feuille suivant la valeur de dif
                dif = Date - .Value
                idxFeuille = (((dif <= 0) * 0) + ((dif >= 1 And dif <= 30) * 1) + ((dif >= 31 And dif <= 90) * 2) + ((dif > 90) * 3)) * -1
                'Récupérer la feuille destination en fonction de son index
                Set shDest = GetSheet("R" & idxFeuille, ThisWorkbook, False)
                If Not shDest Is Nothing Then
                    shDest.Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8).value =  shSource.Cells(lig, 1).Resize(, 8).value
                End If
            End If
        End With
    Next lig
    Set shSource = Nothing
    'fermer le classeur source et réinitialiser sa variable
    wkSource.Close False
    Set wkSource = Nothing
End Sub

A+
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : [Resolu] Recopie conditionnelle depuis plusieurs classeurs

Re,

Je t'en prie.

P.S. ce n'est peut-être pas très utile de mettre systematiquement la citation de mes posts précédents dans tes réponses. Généralement, vu mon grand âge, j'arrive à me souvenir encore assez bien de ce que j'ai dis...arf😉

Clique sur le lien 'Répondre' et non 'Répondre avec citation' ou plus bas sur le bouton 'Aller en mode avancé'

A+ et bonne soirée
 
Vote positif 0 Vote négatif
Re : [Resolu] Recopie conditionnelle depuis plusieurs classeurs

Bonjour,

Merci pour ce conseil.

J'ai testé l'application avec deux fichiers test.
(j'ai ajouté le code permettant de faire le choix du fichier à ouvrir - sans doute de façon un peu maladroite mais ça fonctionne, l'idéal serait qu'il demande tout d'abord le nom du fichier à ouvrir, ensuite l'année)

Le code s'exécute mais après vérification, certaines lignes ne se retrouvent pas là où elles devrait.
Pour le vérifier j'ai ajouté 2 colonne l'une permettant de connaître le nombre de mois de retard et l'autre permettant de connaître l'onglet de destination.

Normalement toutes les lignes devraient être reprises sur le fichier Recap. Ce n'est pas le cas.

Je place en pièce-jointe les 3 fichiers (Recap et 2 fichiers avec les données à reporter pour 2011 et 2012)
 

Pièces jointes

Vote positif 0 Vote négatif
Re : [Resolu] Recopie conditionnelle depuis plusieurs classeurs

Bonjour,

Comme je te le disais au post#2, j'ai traité l'écart de dates en nombre de jours, 1 mois = 30 jrs(comme on le fait souvent en matière d'échéance), ce qui est différent que de le traiter en nombre de mois stricts avec une fonction comme DateDiff.

Ex: 1/2/2012 et le 1/3/2012 considères-tu cela comme 1 mois?
Peut-être ceci entraine-t-il cela?
A toi de définir exactement le mois et d'essayer différent test.
Si tu as difficultés, reviens avec tes essais VBAïstiques


A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : [Resolu] Recopie conditionnelle depuis plusieurs classeurs

Bonjour,

Je pensais que tu ne répondrais pas puisque j'ai "clos" le sujet en le qualifiant de résolu.

J'ai examiné la rédaction du code et effectivement j'étais arrivé à la conclusion que le calcul se faisait en nombre de jours.

J'ai corrigé une partie de cette ligne de code, et j'obtiens bien le placement sur la feuille R1 des données qui doivent s'y trouver.
Code: 
idxFeuille = (((dif <= 0) * 1) + ((dif >= 1 And dif <= 30) * 1) + ((dif >= 31 And dif <= 90) * 2) + ((dif > 90) * 3)) * -1

Ce qui manque ce sont toutes les lignes qui devraient se trouver en R3 je suppose donc que c'est la partie
((dif > 90) * 3)) * -1
Qui pose problème mais je ne comprends pas pourquoi il faut multiplier par -1
 
Vote positif 0 Vote négatif
Re : [Resolu] Recopie conditionnelle depuis plusieurs classeurs

Re,
Code: 
'travailler à partir de la feuille source
        With shSource.Cells(lig, 7)
            If IsDate(.Value) Then
                dif = DateDiff("m", DateSerial(Year(.Value), Month(.Value), Day(.Value)), Date)
                If dif <= 0 Then
                    Set shDest = ThisWorkbook.Sheets("R0")
                ElseIf  dif <= 1 Then
                    Set shDest = ThisWorkbook.Sheets("R1")
                ElseIf dif > 1 And dif <= 3 Then
                    Set shDest = ThisWorkbook.Sheets("R2")
                ElseIf dif > 3 Then
                    Set shDest = ThisWorkbook.Sheets("R3")
                End If
                If Not shDest Is Nothing Then
                    shDest.Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8).Value = _
                        shSource.Cells(lig, 1).Resize(, 8).Value
                End If
            End If
        End With
A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
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

G
  • Question Question
XL 2013 Recherche formule qui renseigne plusieurs dates
Réponses
3
Affichages
266
grumeau10
G
Calvus
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
251
p56
p56
M
  • Question Question
Microsoft 365 Recopie ligne avec un code GOOGLE SHEET
Réponses
7
Affichages
451
Moreno076
M
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
120
vgendron
vgendron
J
  • Résolu(e)
Microsoft 365 [RESOLU] VBA boucle, insertion plusieurs lignes, exécution formules, suppression sur si
Réponses
5
Affichages
497
Phil69970
Phil69970
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
805
Pac41240
P
D
  • Question Question
Microsoft 365 Épurer les lignes vides d'une cellule puis fractionner la cellule en plusieurs lignes
2
Réponses
20
Affichages
938
fanch55
fanch55
M
  • Question Question
Google Sheets Recopie ligne à partir code
Réponses
4
Affichages
724
Moreno076
M
J
  • Question Question
Autres [Google Sheets] Recherchev, index, equiv sur liste déroulante - A l'aide !
Réponses
2
Affichages
702
Jaykerz
J
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
198
sebastien176
S
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
128
JJ69
J
cathodique
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
2 K
cathodique
cathodique
Z
  • Question Question
XL 2010 tableau pour comparer deux colonnes et écrire le résultat dans une troisième colonne
2
Réponses
28
Affichages
2 K
zephir94
Z
L
  • Question Question
XL pour MAC tableau ans perturbation des colonnes non copié
Réponses
5
Affichages
628
DJunqueira
D
B
  • Question Question
XL 2013 Automatiser une formule sur les nouvelles lignes insérées en fonction d'une recherche sur les enregistrements
Réponses
9
Affichages
518
bedley
B
Akortys
  • Question Question
Microsoft 365 RESOLU - Macro - Recherche de lignes identiques et ressortir les lignes uniques
Réponses
8
Affichages
734
Akortys
Akortys
H
  • Question Question
XL 2021 [Résolu] Récupérer informations dans plusieurs classeurs et les centraliser dans un autre
2
Réponses
16
Affichages
969
Cousinhub
Cousinhub
JoBar57
  • Résolu(e)
XL 2021 SI OU ET - rajouter une condition supplémentaire
2
Réponses
26
Affichages
2 K
JoBar57
JoBar57
J
  • Question Question
Microsoft 365 Besoin AIDE formules ou mise en forme conditionnelle
Réponses
8
Affichages
722
JaGAF
J
X
  • Résolu(e)
Microsoft 365 Formule calcul taux de service
2
Réponses
20
Affichages
989
xls_62
X
Retour