Discussion :

[adknou]

Bonjour,
J’essaie de récupérer le numéro de ligne d'une cellule qui se trouve sur une dizaine de lignes plus haut que ma cellule active. J'ai utilisé offset mais apparemment le - pose un problème, car avec un nombre positif je n'ai pas de code erreur mais avec un -10 ça retourne une erreur.

voici une partie du code.

Code :

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

1
2
ActiveCell.Offset(-10, 1).Activate '(ligne qui contient l'erreur)
l_prix_debut=Activecell.row

Merci

[Marc-L]

Bonjour,

‼

Il y a même une icône dédiée …


Sinon j'entrevois une erreur de logique : quelle est donc la cellule active quand l'erreur se déclenche ?

Et il est déconseillé de sélectionner une cellule pour y accéder, c'est inutile …

[Invité]

Code :

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

if ActiveCell.row>10 then ActiveCell.Offset(-10, 1).Activate '(ligne qui contient l'erreur) '(ligne qui contient l'erreur)

[adknou]

avant l'activecell j'avais ce code

Code :

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

1
2
3
4
5
 
Set found_date = Worksheets("price").Range(Cells(1, colonne_ticker), Cells(6100, colonne_ticker)).Find(search_ticker, LookAt:=xlWhole)
 
 
ligne_date = found_date.Row

J'étais déja à la ligne 2741, il ne s'agissait donc pas d'un numéro de ligne négative qui pourrait justifier le

Code :

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

if ActiveCell.row>10....

Merci.

[Marc-L]

Et voilà !

Encore une mauvaise utilisation de la méthode Find alors que c'est pourtant clair dans l'aide intégrée au VBA …

[adknou]

L'erreur serait en rapport avec le find? qu'est ce qui pose problème dans la méthode?

[Alasgard]

Ce code fonctionne très bien:

Code :

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

1
2
3
4
5
6
7
8
Sub remontee()
ActiveCell.Offset(-10, 0).Select
 
l_prix_debut = ActiveCell.Row '
 
 
MsgBox ("l_prix_debut est" & l_prix_debut)
End Sub

Sinon avec la méthode Find:

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
Sub Recherche()
Dim Cellule
Cellule = InputBox("Tapez les données que la cellule contient")
 
'vérifie si cette cellule existe dans la feuille xx, colonne B:
Set Test = Sheets("xx").Range("B2:B65000").Find(what:=Cellule)
 
If Test Is Nothing Then
MsgBox ("Cette cellule n'existe pas dans la colonne B")
Call Recherche
Else
NumLigne = Sheets("xx").Range("B2:B65000").Find(what:=Cellule, LookIn:=xlValues, lookat:=xlWhole).Row
MsgBox ("La ligne est:" & NumLigne)
End If
   End Sub

[adknou]

Ce code marche mais pas dans mon code; je l'ai testé tout seul et sans surprise il fonctionne. Le problème doit venir de mon code à moi. Si au lieu de -10 je met un nombre positif ça fonctionne. Le problème doit venir du -

Ce code fonctionne très bien:

Code :

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

1
2
3
4
5
6
7
8
Sub remontee()
ActiveCell.Offset(-10, 0).Select
 
l_prix_debut = ActiveCell.Row '
 
 
MsgBox ("l_prix_debut est" & l_prix_debut)
End Sub

Sinon avec la méthode Find:

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
Sub Recherche()
Dim Cellule
Cellule = InputBox("Tapez les données que la cellule contient")
 
'vérifie si cette cellule existe dans la feuille xx, colonne B:
Set Test = Sheets("xx").Range("B2:B65000").Find(what:=Cellule)
 
If Test Is Nothing Then
MsgBox ("Cette cellule n'existe pas dans la colonne B")
Call Recherche
Else
NumLigne = Sheets("xx").Range("B2:B65000").Find(what:=Cellule, LookIn:=xlValues, lookat:=xlWhole).Row
MsgBox ("La ligne est:" & NumLigne)
End If
   End Sub

[Alasgard]

Si ça vient de ton code, montre le nous .

[Marc-L]

L'erreur serait en rapport avec le find? qu'est ce qui pose problème dans la méthode?

Que se passe-t-il lorsque cette méthode n'est pas codée comme dans l'exemple de son aide (à lire donc !)
quand elle ne trouve rien ?

Une erreur ‼