Discussion :

[XceSs]

Bonjour, j'ai une formule pour trouver une valeur dans une plage spécifiée mais celle-ci ne fonctionne pas

Merci de votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
nomcherche = Format(Now, "dd/mm/yyyy")
result = Range("A1:L1").Find(what:=nomcherche, lookat:=xlWhole)
If result Is Nothing Then
MsgBox "Non trouvé"
Else
Range(result, result).Select
MsgBox ActiveCell.Address
End If
End Sub

[SfJ5Rpw8]

il faut rechercher une date et pas une chaine... si c'est la date du jour celle-ci est retournée par l'instruction Date

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
nomcherche = Date
On Error Resume Next
Set result = Range("A1:L1").Find(what:=nomcherche, lookat:=xlWhole)
On Error GoTo 0
If result Is Nothing Then
MsgBox "Non trouvé"
Else
'--- >>> INUTILE  >>>  Range(result, result).Select
MsgBox result.Address
End If
End Sub

[XceSs]

Merci ça marche Nickel
Il est possible de faire en sorte que cette cellule trouvée s'affiche en haut à gauche du quadrillage, je veux dire que la fenêtre excel se mette de façon à ce que la cellule soit en haut à gauche ?

[bastou93]

Bonjour

Il est possible de faire en sorte que cette cellule trouvée s'affiche en haut à gauche du quadrillage, je veux dire que la fenêtre excel se mette de façon à ce que la cellule soit en haut à gauche ?

Moi j'utilise:

Code :

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

Range("A1").Show

Bon courage,

[XceSs]

ça recadre effectivement la fenêtre mais pas de façon à ce que la réponse se trouve en haut à gauche :s ça se met toujours sur la cellule A1 en haut à gauche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
nomcherche = Date
On Error Resume Next
Set result = Cells.Find(what:=nomcherche, lookat:=xlWhole)
On Error GoTo 0
If result Is Nothing Then
MsgBox "Non trouvé"
Else
'--- >>> INUTILE  >>>  Range(result, result).Select
MsgBox result.Address
'ActiveSheet.Range(result.Address).Activate
Range(result.Address).Show
End If
End Sub

[patricktoulon]

bonjour essai plutot ca

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
17
18
19
20
21
 
Sub CommandButton1_Click()
Dim nomcherche As Variant
 
With Sheets(1)
nomcherche = Date
On Error Resume Next
Set result = Range("A1:L1").Find(what:=nomcherche, lookat:=xlWhole)
On Error GoTo 0
If result Is Nothing Then
MsgBox "Non trouvé"
Else
'--- >>> INUTILE  >>>  Range(result, result).Select
ActiveWindow.ScrollRow = result.Row
ActiveWindow.ScrollColumn = result.Column
 
 
 
End If
End With
End Sub

au plaisir

[XceSs]

Parfait ça marche merci de votre aide

bonne soirée