Recopier une cellule dans une autre en fonction d'une date identique.

[alexandre33260]

Bonsoir, je cherche une formule pour copier automatiquement un mot dans une cellule portant la même date.
Dans le fichier joint, par exemple, j'ai renseigné en C1 Jean avec en D1 sa date de naissance, je voudrais que dans le tableau A1:B31 quand Excel trouve la date 07-janv, il écrive automatiquement Jean dans la cellule B7 en l’occurrence. Puis Alain en B5, etc.
Merci pour votre aide.

 

[Hulk]

Re : Recopier une cellule dans une autre en fonction d'une date identique.

Hello,

Voici une version par macro...

Private Sub CommandButton1_Click()
    
    For n = 1 To Range("A1000").End(xlUp).Row
        If Range("A" & n).Value <> "" Then
            Range("B" & n).Value = ""
            For i = 1 To 3
                If Range("A" & n).Value = Range("D" & i).Value Then
                    Range("B" & n).Value = Range("C" & i).Value
                End If
            Next i
        End If
    Next n
    
End Sub

Copie ce code et colle-le dans la feuille (click-droit sur l'onglet puis "Visualiser le code" et copie-le dans la partie droite... et place un CommandButton1 sur la feuille)

 

[Hulk]

Re : Recopier une cellule dans une autre en fonction d'une date identique.

Re,

Voici une version avec formule... j'ai rajouté deux colonnes !

Vois le fichier joint.

 

[Victor21]

Re : Recopier une cellule dans une autre en fonction d'une date identique.

Bonjour alex, Hulk.

Une alternative, sans colonne supplémentaire. En B1, à recopier vers le bas :

=SI(NB.SI(D$1: D$3;A1)=0;"";INDEX(C$1:C$3;EQUIV(A1;D$1: D$3;0)))

(les espaces entre les deux points et le D de D1: D3 sont à supprimer).

 

[alexandre33260]

Re : Recopier une cellule dans une autre en fonction d'une date identique.

Merci Victor21 et Hulk pour votre aide, j'ai commencé à regardé et je pense utiliser la solution de Victor21. Une petite question toutefois, si en E1:F3 j'ai le même type de données qu'en C1😀3 (on va dire que en premier c'est les dates des anniversaires et en second, c'est les fêtes), est il possible de rajouter ça sur la même ligne pour qu'Excel calcul tout???
PS: sur le fichier modifié de Victor21 nommé Alex.xls....

 

[Victor21]

Re : Recopier une cellule dans une autre en fonction d'une date identique.

Re,

Essayez :

=SI(NB.SI(D$1: D$4;A9)=0;"";INDEX(C$1:C$4;EQUIV(A9;D$1: D$4;0)))&" "&SI(NB.SI(E$1:E$4;A9)=0;"";INDEX(C$1:C$4;EQUIV(A9;E$1:E$4;0)))

Mais pas satisfaisant car si vous avez l'anniversaire de Jean et de Paul le même jour, un seul aura son gâteau ...