Comparer deux fenêtres excel à l'aide d'une macro VBA

**said.bouaziz** · 07/08/2022, 20h48

Bonjour,

J'aimerais savoir si quelqu'un parmi vous pourrait m'aider à construire une Macro qui me permettrait de comparer deux cellules se trouvant dans deux fenêtres différentes et remplir une colonne en fonction du résultat de la comparaison.

Autrement dit, le but est de comparer la cellule G2 de la fenêtre "Gantt" et toute la première ligne de la fenêtre "RàF" et si on trouve deux dates équivalentes, on copie le contenu de la colonne correspondante vers la colonne "Planned" ( à partir de la cellule G10 ) de la fenêtre "Gantt".

Voici le document en question : https://www.cjoint.com/c/LHfnMdjdi7p

Par avance merci de votre aide.

Cordialement,

**PetitBoutDeCode** · 08/08/2022, 13h05

Bonjour,

Il est tout à fait possible de faire cela, il faut commencer par mettre les classeurs dans des variables pour qu'ils soient accessibles

Code :

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

1
2
3
 
 dim wb As WorkBook
 Set wb = Workbooks.Add 'Creates a new workbook with default name.

Code :

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

1
2
3
 
 dim wb As WorkBook
 Set wb = Workbooks.Open("<path to folder>\" & FileName & ".xlsm") 'Open an existing file

Après tu peux faire appel aux cellules de chacun des documents ouverts

**said.bouaziz** · 10/08/2022, 15h57

Bonjour,

Tout d'abord merci pour ton retour !

J'ai essayé de procéder comme tu me l'as indiqué mais je n'ai malheureusement pas réussi à avoir le résultat attendu

Pourrais-tu m'envoyer le script complet stp ?

Merci !

**hyperion13** · 10/08/2022, 19h06

Salut,
Les 2 fenêtres sont des feuilles de calculs

Envoyé par said.bouaziz

... comparer deux cellules se trouvant dans deux fenêtres différentes et remplir une colonne en fonction du résultat de la comparaison...

A tester

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
Sub testCopierColler()
Dim xlWbk As Workbook
Dim xlWshFrom As Worksheet, xlWshTo As Worksheet
Dim rngFrom As Range, rCell As Range
Dim strDate As String
 
Set xlWbk = ThisWorkbook
Set xlWshTo = xlWbk.Worksheets("Gantt")
Set xlWshFrom = xlWbk.Worksheets("RàF")
 
strDate = xlWshTo.Range("Date_Déb")
strDate = Format(strDate, "dd/mm/yyyy")
 
xlWshFrom.Select
Set rCell = xlWshFrom.Range("C1:Z1").Find(What:=CDate(strDate), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If rCell Is Nothing Then
    MsgBox ("Pas de date correspondante !")
Else
    Set rngFrom = xlWshFrom.Range(Cells(4, rCell.Column), Cells(31, rCell.Column))
    rngFrom.Copy xlWshTo.Range("G10")
    xlWshTo.Select
End If
 
End Sub

**PetitBoutDeCode** · 10/08/2022, 19h44

Effectivement, j'ai mal interprété le mot fenêtre dans l'énoncer

Ne voulant pas télécharger le fichier j'ai essayé d'interpréter comme j'ai pu, ça m'apprendra

**said.bouaziz** · 11/08/2022, 09h14

Bonjour Hyperion 13,

Merci pour le script !

Malheureusement dès que j’exécute le code, ça me renvoie un message d'erreur m'indiquant : " Pas de date correspondante ", or que j'ai bien mis deux dates qui correspondent.

Pour rappel, le but est de comparer la date se trouvant dans la cellule G2 de la feuille Gantt et toute la première ligne de la feuille RàF, dés qu'on trouve une date identique à G2, on copie le contenu de la colonne correspondante vers la colonne " Planned " de la feuille Gantt ( colorée en vert et à partir de la cellule G10 ).

Voici le fichier contenant la macro : https://www.cjoint.com/c/LHlhnKmSvtI

Cordialement,
Said.BOUAZIZ