Microsoft 365 COPIER CELLULES SI LES DATES CORRESPONDENT

[ABDELHAK]

Bonjour à tous,

J’aimerais votre aide pour une nouvelle macro
J’ai en (Feuil3) 5 colonnes
Colonne A = dates (+/- 7550 dates).
Les cellules de la colonne B contiennent la valeur " 1 " ou "vides".
Colonne E = dates (+/- 2050 dates).
Les cellules de la colonne F contiennent la valeur « 1 » ou les cellules est vide.
Les cellules de la colonne G contiennent des valeurs compris entre « 1 » et « 27 » en rouge.

J’aimerais que la macro cherche les dates de la colonne E correspondantes aux dates de la colonne A.
Elle doit exécuter un copier/coller de la cellule adjacentes (colonne G) vers la cellule correspondantes (colonne A).
Exemples
La cellule E3 (01/10/2019), la cellule G3 (facultatif), la cellule F3 (« 1 « ).
La macro doit chercher la date correspondante colonne A (la cellule A9) et doit copier/coller le contenu de la cellule F3 (« 1 « ) à la cellule C9.

Merci d’avance pour votre aide.

ABDELHAK

 

[job75]

Bonjour ABDELHAK, heureux de vous revoir,

Voyez le fichier joint et la macro du bouton :

Sub MAJ()
Dim R As Range, dest, source, d As Object, i&
Set R = [A1].CurrentRegion.Resize(, 3)
dest = R 'matrice, plus rapide
source = [E1].CurrentRegion.Resize(, 3) 'matrice, plus rapide
'---mémorisation des dates sources---
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(source)
    d(source(i, 1)) = source(i, 3)
Next
'---remplissage du tableau dest---
For i = 1 To UBound(dest)
    dest(i, 3) = d(dest(i, 1))
Next
'---restitution---
R = dest
End Sub

Elle est très rapide car elle utilise des tableaux VBA et le Dictionary.

A+

 

[ABDELHAK]

Bonjour job75,
Merci d'avoir répondu à mon aide.
La macro fonctionne très bien et elle est très rapide. C'est quasi instantanée.
C'est toujours un véritable plaisir que de recevoir une réponse de votre part.
Et encore merci.
ABDELHAK