Macro pour compléter un tableau (copier coller en fonction d'un nom)

Bonjour à tous;

Tout d'abord, je tiens à vous remercier de lire ce poste du temps que vous m'accorder.

Alors voilà, pour mon travail j'ai besoin de compléter un tableur qui est exporté par un autre logiciel.

voir exemple ci-joint

Dans ce document, j'ai: une liste de Noms; une activité; un prix; une bourse; et une dépense.

cependant, il arrive régulièrement d'avoir le même nom plusieurs fois.

Lorsque le nom est écris plusieurs fois, les colonnes prix bourse et dépense sont compléter une seule fois. J'aimerais donc faire une macro pour compléter les cellules vides. Dans le fichier ci-joint se trouve un exemple afin de mieux comprendre. Dans ce fichier-là se trouve le nom de "DuponD" deux fois, l'un d'eux est correctement rempli.

Il faut donc copier les trois colonnes prix bourse et dépense remplie et les coller pour le deuxième "DuponD" qui lui est vide.

Bien à vous.

PS avec une simple formule avec des si ou autres je pourrais le faire, le problème c'est que chaque case a déjà une formule. Et je ne connais pas les macros.

Bonjour,

Voici un code à essayer et dont les références sont à adapter :

sub copier()
set dico = createobject("Scripting.Dictionary")
with activesheet
    dl = .cells(.rows.count, 1).end(xlup).row
    with .range("A1:E" & dl) '<<< ADAPTER
        t = .value
        for i = 2 to dl
            if not dico.exists(t(i, 1)) then
                dico(t(i, 1)) = array(t(i, 3), t(i, 4), t(i, 5))
            else
                t(i, 3) = dico(t(i, 1))(0)
                t(i, 4) = dico(t(i, 1))(1)
                t(i, 5) = dico(t(i, 1))(2)
            end if
        next i
        .value = t
    end with
end with
end sub

Cdlt,

Bonjours, je suis désoler du temp de réponse

J’ai été beaucoup pris

Merci beaucoup pour ton aide c’etait Exactement ce dont j’avais besoins !

Bonjour koglulu,

Pas de problème, c'est sympa de ta part d'avoir pensé à faire un retour !

Bonne continuation !