Discussion :

[willabe]

bonjour
je cherche a faire une macro ,qui va rechercher la celule du 31/01/2011 dans un calendrier .
Avec la fonction recherche ça marche par contre avec l'aide une macro
je ne parviens pas trouver la date.

Merci d'avance pour votre aide
Cdlt

[mercatog]

Bonjour
Une proposition à adapter (relis les règles du forum)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim MaDate As Date
Dim c As Range
 
MaDate = DateSerial(2011, 1, 31)                                     'notre date
With Worksheets("Feuil1")
    Set c = .Range("A:A").Find(MaDate, LookIn:=xlFormulas)           'on cherche notre date dans colonne A de Feuil1
    If Not c Is Nothing Then                                         'Si on la trouve (dans la cellule c)
        With Worksheets("Feuil2")                                    'on transfère le contenu de c dans B2 de Feuil2 et la cellule de la colonne D vers B2....
            .Range("B2") = c
            .Range("C2") = c.Offset(0, 3)
            '...etc
        End With
        Set c = Nothing
    End If
End With

[willabe]

Tout fonctionne, merci encore pour votre aide.
Cdlt

[willabe]

bonjour.

je cherche a faire une recap de toute les heures du mois .
pour cela je veux ,
1 recherche la celule du 31/01/2011
2 la copier dans recap en e4
3 retour dans la feuille cal vierge sur la celule active,déplacement de 14 a gauche puis selection de toute les celules du mois.
4 colle la somme en f4 et g4

autre solution je suis preneur.
cdlt