Discussion :

[olivverte]

Bonjour,

Je viens de créer une macro qui marche à moitié.

Je souhaiterais rechercher une date de sortie d'un salarié sur une base de donnée en feuil2, et la placer sur la colonne date de sortie en feuil 1. (Par défaut la colonne date de sortie en feuil1 est renseignée par 01/01/2100).
Dans la feuil1, le salarié sortie peut être saisie plusieurs fois. Il faudrait donc que la macro regarde dans toute la feuil1 si le salarié apparaît plusieurs fois et qu'il y dépose la date de sortie.
Ma macro affecté à un bouton, marche pour la première ligne de ma base de donnée en feuille, mais pas pour les lignes suivantes...

Quelqu'un pourrait-il m'aider ?

[EngueEngue]

Le format 7z n'est pas fort apprécié par ici.

[olivverte]

quel serait le format apprécié alors ?

Cordialement,

[EngueEngue]

Zip, xls, xlsx ou xlsm

[olivverte]

Le format 7z n'est pas fort apprécié par ici.

Voilà un fichier en .zip.

Cordialement,

[EngueEngue]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
    Dim i As Long, j As Long
    For i = 2 To Sheets("Feuil2").Range("A" & Sheets("Feuil2").Rows.Count).End(xlUp).Row
        For j = 9 To Sheets("Feuil1").Range("A" & Sheets("Feuil1").Rows.Count).End(xlUp).Row
            If Sheets("Feuil2").Range("E" & i).Value <> "" And Sheets("Feuil2").Range("A" & i).Value = Sheets("feuil1").Cells(j, 1).Value Then
                Sheets("Feuil1").Range("D" & j).Value = Sheets("Feuil2").Range("E" & i).Value
            End If
        Next j
    Next i
End Sub

Sinon...
En D9 tu écris :

Code :

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

=SIERREUR(RECHERCHEV(A9;Feuil2!A:E;5;FAUX);DATE(2100;1;1))

Et tu traines jusqu'où tu veux.

[olivverte]

Merci bien ! ça marche impec !

Bonne après-midi !