recherche date du jour

Question

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

f894009 · Answer

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

Mag46 · Answer

Merci beaucoup ca fonctionne

Recherche date du jour

2 réponses

Discussions similaires

Newsletters