chris6999
XLDnaute Impliqué
Bonjour le FORUM
Je suis en train d'élaborer une grille de remplissage à partir d'une fiche de saisie.
En fonction du nom de l'utilisateur (sélectionné en G2 de ma feuille) et de la date (à saisir en K2) le système, lorsqu'il reconnait le couple "Utilisateur / Date" (car des données sont déjà connues pour la date dans la feuille du nom de l'utilisateur), il propose d'importer les données pour modifications (Via un Userform).
Aujourd'hui j'ai un code qui me permet d'exporter les données fiches en incrémentant la première ligne vide de ma feuille agent.
nomfeuille = Sheets("Fiche SAISIE").Range("G2").Value
Sheets(nomfeuille).Activate
Range("A5").Select
'A partir de la ligne 5 colonne A
'Sélectionner la première ligne non vide en partant du bas
Selection.End(xlDown).Select
'Se positionne sur la ligne suivante donc la vide
derligne = ActiveCell.Row + 1
Ce que je souhaiterais c'est de pouvoir rapatrier ces données corrigées, non pas sur la première ligne vide mais sur la ligne correspondant à la date modifiée.
Il faudrait remplacer Selection.End(xlDown).Select mais je ne sais pas par quoi.
Quelque chose qui dirait sélectionne la cellule si identique à K2 de ma feuille Fiche Saisie...
Je mets un fichier en PJ pour illustrer ma demande.
Merci encore pour votre aide
Bonne journée
Je suis en train d'élaborer une grille de remplissage à partir d'une fiche de saisie.
En fonction du nom de l'utilisateur (sélectionné en G2 de ma feuille) et de la date (à saisir en K2) le système, lorsqu'il reconnait le couple "Utilisateur / Date" (car des données sont déjà connues pour la date dans la feuille du nom de l'utilisateur), il propose d'importer les données pour modifications (Via un Userform).
Aujourd'hui j'ai un code qui me permet d'exporter les données fiches en incrémentant la première ligne vide de ma feuille agent.
nomfeuille = Sheets("Fiche SAISIE").Range("G2").Value
Sheets(nomfeuille).Activate
Range("A5").Select
'A partir de la ligne 5 colonne A
'Sélectionner la première ligne non vide en partant du bas
Selection.End(xlDown).Select
'Se positionne sur la ligne suivante donc la vide
derligne = ActiveCell.Row + 1
Ce que je souhaiterais c'est de pouvoir rapatrier ces données corrigées, non pas sur la première ligne vide mais sur la ligne correspondant à la date modifiée.
Il faudrait remplacer Selection.End(xlDown).Select mais je ne sais pas par quoi.
Quelque chose qui dirait sélectionne la cellule si identique à K2 de ma feuille Fiche Saisie...
Je mets un fichier en PJ pour illustrer ma demande.
Merci encore pour votre aide
Bonne journée