Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche Dates et recopie Valeur

  • Initiateur de la discussion Initiateur de la discussion homekore
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

H

homekore

Guest
Bonjour,


Voilà deux jours que je cherche par tous les moyens, formules ou code VBA de réaliser de maniere automatique ceci:

Chercher dans une feuille2 une cellule d'une colonne qui comprend une date entre le 15/12/2009 et le 25/01/2010( pour Janvier). Une fois cette/ces cellules trouvées, copier dans la feuille1 le numéro corespondant a cette /ces dates

J'ai mis en piece jointe des explications pour faciliter la comprehénsion.

J'a réussi plus ou moins avec une formule =SI, mais ca fonctionne ligne par ligne et donc j'ai bcp de cellule vide quand il n'y a pas de dates correspondantes.

Merci d'avance pour votre aide.
 

Pièces jointes

Re : Recherche Dates et recopie Valeur

Bonjour Homekore, bonjour le forum,

Pourrais-tu convertir ton fichier au format Excel 2003 ou bien demander au modérateur de déplacer ton fil dans le forum Excel 2007 ?
 
Re : Recherche Dates et recopie Valeur

Merci philippe!


Voici un code qui a fonctionné dans le fichier exemple, mais qui deconne pas mal au niveau des dates quand je l'applique sur le vrai fichier 🙁

Code:
Sub newzzz()
Dim Debut As String, i As Long, j As Long, Fin As String
Sheets(1).Select
Debut = Cells(1, 2)
Fin = Cells(1, 3)
i = 8
j = 2
With Sheets(2)

Do While .Cells(j, 1) <> ""

If (Debut <= .Cells(j, 9) And Fin >= .Cells(j, 9)) Then

Cells(i, 2) = .Cells(j, 1)
Cells(i, 3) = .Cells(j, 3)

i = i + 1


End If


j = j + 1
Loop
j = j + 1
End With
End Sub

Code:
 
Dernière modification par un modérateur:
Re : Recherche Dates et recopie Valeur

Bonjour le fil, bonjour le forum,

En pièce jointe une approche avec un bouton Chercher qui ouvre une UserForm où l'utilisateur édite la date de début et la date de fin puis valide (si la date de fin est la même il suffit de double-cliquer dans la TextBox2 pour la récupérer). Dis-nous si ça peut convenir...
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
Réponses
2
Affichages
781
Z
Réponses
4
Affichages
1 K
zizou2100
Z
K
Réponses
13
Affichages
4 K
S
Réponses
13
Affichages
4 K
Stephdeumonac
S
A
  • Question Question
Réponses
20
Affichages
3 K
alphonse16
A
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…