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

**NulenVBA** · 16/12/2008, 11h59

'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 :

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

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

**edelweisseric** · 16/12/2008, 12h15

Bonjour à tous
Bonjour

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

Code :

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

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

**NulenVBA** · 16/12/2008, 12h18

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

il me manque les bases je crois

**Godzestla** · 16/12/2008, 12h23

Envoyé par NulenVBA

il me manque les bases je crois

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

Ici par exemple :

Code :

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

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.