Recherche date du jour

Mag46 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
Mag46 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je souhaite extraire la date du jour de la feuille 1 (planning) sur la feuille 2 (RVD). la cellule contient un commentaire qui doit etre copié.
une partie de ma macro fonctionne, seuleument quand il y a une date.
ci joint la fonction
Sub essai()

'sélection de la feuille planning
'sélection d'une partie de la ligne 6

Sheets("planning").Select
Range("E6:MC6").Select

'rechercher dans la seléction de la date du jour
'la copie sur feuille RDV en C3

Selection.Find(Date).Select
ActiveCell.Copy Sheets("RDV").Range("C3")

'si date non trouvé mettre valeur vide en C3 de la feuille RDV
If Selection.Value = Date Then
ActiveCell.Copy Sheets("RDV").Range("C3")
Else
Sheets("RDV").Select
Range("C3").Value = ""
End If


End Sub

Je n'arrive pas a écrire la condition, si la recherche ne trouve pas de date du jour la cellule C3 de la feuille RDV est vide

merci de votre aide
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

une facon de faire (voir aide excel Find: range.find) 

Sub test()
    With Worksheets("planning").Range("E6:MC6")
        Set c = .Find(Date, LookIn:=xlValues)
        If Not c Is Nothing Then
            c.Copy Worksheets("RDV").Range("C3")
        Else
            Worksheets("RDV").Range("C3") = ""
        End If
    End With
End Sub
0
Réponse 2 / 2
Mag46 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup ca fonctionne
0

Discussions similaires

je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses
Problème publipostage date de naissance
garbiche22 -
cg13 -

3 réponses
Recherche de pairs sur utorrent bloqué
flo.h -
Claire -

4 réponses
mise à jour boitier X96 mini
Brunoche -
Vico -

3 réponses