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

Version imprimable

07/08/2022, 21h48
said.bouaziz

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

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,
08/08/2022, 14h05
PetitBoutDeCode
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:

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

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 :)
10/08/2022, 16h57
said.bouaziz

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

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 !

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

Citation:

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:

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

10/08/2022, 20h44
PetitBoutDeCode

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

Ne voulant pas télécharger le fichier j'ai essayé d'interpréter comme j'ai pu, ça m'apprendra :(
11/08/2022, 10h14
said.bouaziz

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
11/08/2022, 11h38
hyperion13

3 pièce(s) jointe(s)

Sérieux ! :weird:
Alors je vous la fait en version colorisée. img1/2/3
Et vous constaterez que cela fonctionne sur le fichier que vous avez fourni Post#1