encore un problème, cette fois sur la fonction Find

Version imprimable

'Subscript out of range' mais pour moi la fonction est bonne... c'est assez décourageant j'arrive pas à faire un programme seul.

J'assigne une identité aux cells(i,2)
je recherche la première occurence de la valeur dans une autre feuille et j'écris l'adresse dans la cellule à côté, mais rien ne marche.
Code:

1 2 3 4 5 6 7 8 9 10 Sub rechercheAppli() For i = 2 To 40 Cells(i, 2).Value = appli With Worksheets("Conso").Sheets(1).Range(Cells(1, 13), Cells(10, 13)) Set appliutilisee = .Find(appli, LookIn:=xlValues) End With firstadress = appliutilisee.Address Cells(i, 3).Value = firstadress Next i End Sub
*Merci de votre aide*
NulEnVBA

Bonjour à tous
Bonjour

Rapidement et sans pouvoir tester ce que je te donne, essaie ceci :

Code:

1
2
3
4
5
6
7
8
9
10
Sub rechercheAppli()
For i = 2 To 40
'Cells(i, 2).Value = appli
appli = Cells(i, 2).Value 
With Worksheets("Conso").Range(Cells(1, 13), Cells(10, 13))
Set appliutilisee = .Find(appli, LookIn:=xlValues)
End With
Cells(i, 3).Value = appliutilisee .Address
Next i
End Sub

Tu dis

Eric

16/12/2008, 12h18
NulenVBA

alors déjà je vais changer worksheets en workbooks ...

il me manque les bases je crois
16/12/2008, 12h23
Godzestla
Citation:

Envoyé par NulenVBA

il me manque les bases je crois

Oui, je crois aussi. Essaie de t'y mettre. :aie:

Ici par exemple :
Code:

1 2 Cells(i, 2).Value = appli
Tu n'initialises pas Appli mais la cellule avec applic (qui est vide).

Pas bon....

Bon courage. Il te reste du chemin. As-tu déjà pris le temps de lire les docs de VBA disponibles sur ce site. Je crois que c'est nécessaire sinon tu vas continuer à pagayer sur la plage. ;)
16/12/2008, 14h16
NulenVBA

comment initialiser appli alors? j'ai vu ce genre de code dans un livre vba dapplications financières et m'en suis inspiré.
16/12/2008, 15h30
edelweisseric

Citation:

Envoyé par NulenVBA

comment initialiser appli alors? j'ai vu ce genre de code dans un livre vba dapplications financières et m'en suis inspiré.

As tu essayé ce que je t'ai donné ?
En cliquant sur F8 (pas à pas), cela te permettras de vérifier ce qu'il y a dans tes variables.

Eric
16/12/2008, 16h18
Godzestla

Eric t'a donné la solution à mon avis.
16/12/2008, 17h02
pgz

Bonjour.

En fait, tu veux faire quoi avec ce code? Je n'ai pas compris tes explications et le code lui même me laisse perplexe8O

Mais si tu as une solution, laisse tomber.

PGZ
16/12/2008, 19h33
NulenVBA

merci pour votre aide, de toute façon je ne coderai jamais bien, c'est pas naturel pour moi cette façon de s'exprimer j'ai fait un IEP je suis beaucoup plus dans les mots.
j'ai vidé la feuille de ses données et le programme semble marcher. Un #N/A dans une cellule peut-il mettre en l'air un programme ?
16/12/2008, 19h37
pgz

Citation:

Envoyé par NulenVBA

Un #N/A dans une cellule peut-il mettre en l'air un programme ?

Cela dépend, bien sûr, du programme!

PGZ