Bonjour à tous,

J'ai besoin d'aide dans la création de ma première macro:
J'utilise la méthode find dans pour trouver la cellule qui contient une certaine date.
La plage de recherche est la ligne 2:2 de mon tableur. Elle contient dans chaque cellule une date différente (au format date) : A2=18/05/2015 ; B2=19/05/205; ... etc. A noter que le texte est écrit verticalement et non horizentalement.

La chose surprenante est que le résultat de ma recherche avec find dépend de la largeur des colones qui contiennent la date ... !?

Je m'explique:
- Dans le premier cas mes colonnes font 10 de largeur et je trouve bien la cellule qui contient la date voulue
- Ensuite je réduit la largeur des colone à 2.5 et là find ne me retourne rien... et je ne change QUE la largeur des colones, le contenue est identique.

Voici le code que j'utilise:

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
16
Sub test()
    Dim i As Integer
    Dim weekdate As Date
 
    weekdate = "22/05/2015"
 
    Sheets("Sheet2").Activate
    Set R = Range("2:2").Find(What:=weekdate, LookAt:=xlWhole)
 
    If Not R Is Nothing Then
        Sheets("Sheet2").Cells(i + 5, 5) = R.Row
        Sheets("Sheet2").Cells(i + 5, 6) = R.Column
    Else
        Sheets("Sheet2").Cells(i + 5, 5) = "Vide"
    End If
End Sub
Merci d'avance pour votre aide !