Discussion :

[Matbb2000]

Bonjour le forum,
Mon soucis est un peu compliqué je vais tenté d'être clair.
J'ai deux feuilles : la première "Diplôme" qui a dans sa colonne A (à partir de la ligne 4) des noms. La dernière valeur de cette colonne est "Moyenne"
La deuxième "Tri" à elle aussi des noms dans sa colonne A, les mêmes que pour diplôme mais pas dans le même ordre.
Pour chaque nom dans diplôme, j'ai besoin de retrouver son numéro de ligne dans tri.
J'ai fait ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim nbr As Byte
    nbr = 4
    Dim NomR As String
    Dim result As Range
    While Sheets("Diplôme").Cells(nbr, 1) <> "Moyenne"
        Dim compteur As Byte
        NomR = Sheets("Diplôme").Cells(nbr, 1).Value
        Set result = Sheets("Tri").Columns(1).Find(What:=NomR, LookAt:=xlWhole)
        compteur = result.Row
        [...]
        nbr = nbr + 1
    Wend

Ma ligne compteur = result.Row provoque l'erreur

91 - Variable objet ou variable de bloc With non définie

Merci d'avance
Un débutant

[eriiic]

Bonjour,

regroupe tous tes Dim en haut du module.

Code :

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

Dim compteur As Byte

Un octet est trop petit. Pour des lignes :

Code :

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

Dim compteur As Long

Voir les autres également.
eric

[joe.levrai]

Bonjour,

si ta recherche n'aboutis pas, result est un objet "Nothing". Du coup tu ne peux pas interroger la ligne de résultat, puisque ce dernier n'existe pas

En utilisation de Find, on ne le répètera jamais assez, il faut tester le retour !

Code :

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

1
2
3
4
5
6
Set MonResult = MaPlage.Find(blablabla)
If Not MonResult Is Nothing Then
    'On fait l'action voulue
Else
    Msgbox "La Recherche a échoué"
End If

[Matbb2000]

"En utilisation de Find, on ne le répètera jamais assez, il faut tester le retour !"

Je sais Joe mais ici je suis sur que les valeurs existe .. Suis-je obligé tout de même de mettre un is Nothing ?
J'ai essayé avec le is Nothing et ma boucle tourne en rond. Impossible de sortir du message d'erreur

[joe.levrai]

Le message est pourtant explicite, tu n'as pas de résultat, et ta variable n'est donc pas définie.

Fait un

Code :

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

Msgbox "Le résultat existe : " & Not result Is Nothing

tu devrais obtenir Faux

si la valeur existe bien sur la plage de recherche spécifiée, s'assurer :

- que le résultat n'est pas la première cellule de la plage (sinon on doit faire une recherche inverse)
- que les paramètres du Find sont corrects (il faut au possible en renseigner un maximum)

[Matbb2000]

Ca a l'air de fonctionner merci beaucoup !

[Matbb2000]

J'ai changé compteur en long mais cela ne change rien ..