Discussion :

[triaguae]

bonjour,
je veux récupérer le numéro de la première ligne (d'une plage) qui contient une valeur tapée dans une inputbox
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'demande la date de début (saisir 01/mm/aaaa)
Dim dd As String
   dd = InputBox("date début")
 
'cherche la premiere ligne de cette date
Dim pl As Long
For Each cell In Worksheets("feuil1").Range("A3:A20")
If cell.Value = dd Then
        pl = cell.Row
            Exit For
End If
Next
Worksheets("feuil1").Range("C10").Value = pl

le problème est pl est toujours = à 0
Avez-vous une autre solution?

[Jean-Pierre49]

Bonjour,

Avec quelques rectif:

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 dd As Date
Dim Cell As Excel.Range
Dim pl As Long
 
dd = InputBox("date début")
 
 
For Each Cell In Worksheets("feuil1").Range("A3:A20")
    If Cell.Value = dd Then
        pl = Cell.Row
        Exit For
    End If
Next
 
Worksheets("feuil1").Range("C10").Value = pl

Jean Pierre

[triaguae]

le code me donne l'erreur : Erreur de compilation Déclaration existante dans la pirtée en cours

[Jean-Pierre49]

Verifie ds ton code si une variable n'est pas déclarée 2 fois

[triaguae]

exact, cell était déjà déclarée avant!
c'est ok merci