Discussion :

[simbax]

Bonjour à tous,
Voilà j'essaye de récupérer la position de valeurs dans une feuille Excel où il y a mes données (current).
Tout d'abord je rentre les valeurs que je cherche dans une autre feuille (Current.chart) que j'inscris dans un tableau.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim t(4) As Single, eff(14) As Single
Dim At(4) As Integer
Dim location As Object
Dim i As Integer
 
 
Sheets("Current.chart").Select
'On récupère les valeurs des instants où on veut calculer l'efficacité
t(0) = Range("Current.Chart!Q6")
t(1) = Range("Current.Chart!Q7")
t(2) = Range("Current.Chart!Q8")
t(3) = Range("Current.Chart!Q9")

Ensuite je vais dans ma feuille "current" et je cherche la ligne où je vais trouver les valeurs de t(0) etc.

Code :

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

1
2
3
4
5
6
7
8
Sheets("current").Select
 
For i = 0 To 3
 
    Set location = Range("A:A").Find(t(i))
    At(i) = location.Row        'bug quand on cherche un nombre à virgule
 
Next i

Et là j'ai l'erreur d’exécution 91 quand je cherche la position d'un nombre à virgule (problématique vu que c'est ce que je cherche).

J'ai essayé de chercher des entiers et no problem et je ne comprends pas d'où vient ce problème ni comment le corriger.

Merci d'avance pour votre aide et vos réponses.

[Docmarti]

Bonjour simbax.

Les valeurs sur la feuille ne sont pas de type Single.

Pour des valeurs numériques, essaie plutôt le type Variant ou le type Double:

Code :

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

Dim t(4) As Variant

ou

Code :

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

Dim t(4) As Double

Puis

Code :

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

    Set location = Sheets("current").Range("A:A").Find(what:=t(i), LookIn:=xlFormulas)

[joe.levrai]

Bonjour,


voici une proposition, j'en ai profité pour optimisé la rédaction, je te laisse remettre tes variables et suites de code qu'on ne voyait pas dans tes exemples
en gros, ton tableau t(4) faut pas le typer, ou alors le mettre en variant

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
22
23
24
Sub titi()
Dim t(4)
Dim At(4) As Integer
Dim location As Object
Dim i As Integer
 
 
 
With ThisWorkbook.Worksheets("Current.chart")
    For i = 0 To 3
        t(i) = .Cells(i + 6, 17).Value
    Next i
End With
 
 
With ThisWorkbook.Worksheets("current")
    For i = 0 To 3
        Set location = Range("A:A").Find(t(i), , , xlWhole)
        At(i) = location.Row
        MsgBox t(i) & " est à la ligne " & At(i)
    Next i
End With
 
End Sub

EDIT : j'ai supprimé la référence au séparateur ... encore une connerie de ma part

[simbax]

Merci à vous deux pour vos réponses aussi rapides.
Ta solution Docmarti a fonctionné avec t(4) en variant mais pas la tienne joe.levrai. Pour ta solution il me met toujours l'erreur 91.
J'ai une autre question : ma recherche elle se fait sur des nombres en format d'heures et actuellement avec cette version je suis obligé de convertir manuellement ma colonne en heure.
Est qu'il y a moyen de modifier la partie :

Code :

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

Set location = Sheets("current").Range("A:A").Find(what:=t(i), LookIn:=xlFormulas)

avec un argument qui me permettrait de chercher dans le format heure?

[joe.levrai]

Bonjour,

c'est étrange, quand je colle cette macro dans un classeur vierge, je met de A1 à A4 des chiffres identiques (avec ou sans virgule) dans les feuil1 et feuil2

j'obtiens bien :

Code :

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

1
2
3
4
1 est à la ligne 1
2 est à la ligne 2
3 est à la ligne 3
1,2 est à la ligne 4

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
22
23
24
Sub titi()
Dim t(4)
Dim At(4) As Integer
Dim location As Object
Dim i As Integer
 
 
 
With ThisWorkbook.Worksheets("Feuil1")
    For i = 0 To 3
        t(i) = .Cells(i + 1, 1).Value
    Next i
End With
 
 
With ThisWorkbook.Worksheets("Feuil2")
    For i = 0 To 3
        Set location = Range("A:A").Find(t(i), , , xlWhole)
        At(i) = location.Row
        Debug.Print t(i) & " est à la ligne " & At(i)
    Next i
End With
 
End Sub

[Docmarti]

Merci à vous deux pour vos réponses aussi rapides.
Ta solution Docmarti a fonctionné avec t(4) en variant mais pas la tienne joe.levrai. Pour ta solution il me met toujours l'erreur 91.
J'ai une autre question : ma recherche elle se fait sur des nombres en format d'heures et actuellement avec cette version je suis obligé de convertir manuellement ma colonne en heure.
Est qu'il y a moyen de modifier la partie :

Code :

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

Set location = Sheets("current").Range("A:A").Find(what:=t(i), LookIn:=xlFormulas)

avec un argument qui me permettrait de chercher dans le format heure?

Je n'arrive pas non plus à voir le problème avec le code de joe.levrai.

Et je ne vois pas exactement quel but tu poursuis avec un format heure.

Il faudrait plus de détails. Peux-tu envoyer un classeur xls contenant quelques données?

[joe.levrai]

Bonjour,

je pense qu'il n'a pas montré toute sa procédure

il doit y avoir une suite où il récupère ses valeurs pour les écrire ailleurs ?

[patricktoulon]

bonjour

je pense qu'il y a confusion ici c'est le commentaire qui me perturbe
si je comprend bien sil il doit y avoir des nombres a virgule c'est la valeur que tu cherche pas le row

se serait pas plutôt

Code :

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

At(i) = location.value

j'dis ca moi j'dis rien hein !!

Code :

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

1
2
3
4
5
6
7
8
Sheets("current").Select
 
For i = 0 To 3
 
    Set location = Range("A:A").Find(t(i))
    At(i) = location.Row        'bug quand on cherche un nombre à virgule
 
Next i