copier les valeurs d'un tableau déjà existant avec condition Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 414
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 25 octobre 2017, 07:00

Re,

Ci-joint la Version 2 de ta macro ...
Option Explicit

Sub CopieDonnéesJour2()
' Copie des Données du Fichier Jour au Fichier Récap 'SANS' les Doublons '''''''''''''''''''''''''''''''''''''''''''''''
' Déclaration des quatre variables
Dim wkb1 As Workbook
Dim wkb2 As Workbook
Dim der1 As Long
Dim der2 As Long
Dim c As Range

' Stopper rafraichissement de l'écran
   Application.ScreenUpdating = False
' Définir le fichier 1 - Jour
   Set wkb1 = ActiveWorkbook
' Définir la dernière ligne du fichier 1 -Jour
   der1 = ActiveSheet.Cells(Application.Rows.Count, "B").End(xlUp).Row
' Si la dernière ligne = 2 sortir de la macro
   If der1 = 2 Then Exit Sub
' Ouvrir le fichier Récap siuté dans le même sous-répertoire que le fichier Jour
   Workbooks.Open Filename:=wkb1.Path & "\PF RECAP.xlsm"
'Définir le fichier 2 - Récap
   Set wkb2 = ActiveWorkbook
' Activer le fichier 2
   wkb1.Activate
' Faire les copies des données
    For Each c In wkb1.Sheets(1).Range("C3:C" & der1)
       If IsError(Application.Match(c, wkb2.Sheets(1).Range("C3:C" & der2), 0)) Then
           'Définir la dernière ligne du fichier 2 - Récap
           der2 = ActiveSheet.Cells(Application.Rows.Count, "B").End(xlUp).Row + 1
           ' Copie record
           wkb2.Sheets(1).Range("B" & der2 & ":H" & der2).Value = wkb1.Sheets(1).Range("B" & c.Row & ":H" & c.Row).Value
       End If
    Next c
 ' Activer le fichier 2
   wkb2.Activate
' Sauver et Fermer le fichier 2
   wkb2.Close savechanges:=True
' Ré-Autoriser le rafraichissement de l'écran
  Application.ScreenUpdating = True
End Sub
En espèrant que cela t'aide ...
Modifié en dernier par James007 le 20 novembre 2017, 06:49, modifié 1 fois.
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
J
JdViRuS
Membre habitué
Membre habitué
Messages : 131
Inscrit le : 19 mai 2017
Version d'Excel : 2010 FR

Message par JdViRuS » 25 octobre 2017, 08:35

Merci :)

J'ai une erreur.
25-10.PNG
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 414
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 25 octobre 2017, 09:09

JdViRuS a écrit :Merci :)

J'ai une erreur.
Re,

Si tu as une erreur ... il faut vérifier les deux fichiers pour faire des tests ... :wink:

Donc ... si tu n'arrives pas à résoudre le problème tout seul, il faut joindre tes deux fichiers ...
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
J
JdViRuS
Membre habitué
Membre habitué
Messages : 131
Inscrit le : 19 mai 2017
Version d'Excel : 2010 FR

Message par JdViRuS » 25 octobre 2017, 09:12

OK, les voilà. Merci
PF RECAP.xlsm
(18.02 Kio) Téléchargé 7 fois
jour.xlsm
(24.77 Kio) Téléchargé 6 fois
Modifié en dernier par JdViRuS le 25 octobre 2017, 10:46, modifié 1 fois.
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 414
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 25 octobre 2017, 09:17

Re,

Merci ...

Dès que j'ai un moment .. je regarde tes deux fichiers ... :wink:
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
J
JdViRuS
Membre habitué
Membre habitué
Messages : 131
Inscrit le : 19 mai 2017
Version d'Excel : 2010 FR

Message par JdViRuS » 25 octobre 2017, 09:18

Ok merci ! :D
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 414
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 25 octobre 2017, 14:43

Re,

Ci-joint la Version 2 de ton fichier Jour ...

En espèrant que cela t'aide ...
Jour V2.xlsm
(23.66 Kio) Téléchargé 13 fois
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
J
JdViRuS
Membre habitué
Membre habitué
Messages : 131
Inscrit le : 19 mai 2017
Version d'Excel : 2010 FR

Message par JdViRuS » 25 octobre 2017, 19:56

D'ici chez moi ça fonctionne, à tester demain mais c'est plutôt bon signe !
Merci pour le temps accordé.
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 414
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 25 octobre 2017, 20:00

JdViRuS a écrit :D'ici chez moi ça fonctionne, à tester demain mais c'est plutôt bon signe !
Merci pour le temps accordé.

Content de savoir que la macro fonctionne comme tu le souhaitais ... :wink:

Merci ... pour tes remerciements ... :smile:
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
J
JdViRuS
Membre habitué
Membre habitué
Messages : 131
Inscrit le : 19 mai 2017
Version d'Excel : 2010 FR

Message par JdViRuS » 25 octobre 2017, 20:04

L'important c'est d'en apprendre à chaque fois grace a la communauté de ce forum. Merci !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message