Discussion :

[Depsi]

Bonjour à tous,

Dans le but de récupérer un numéro de ligne absolu dans un tableau via une valeur de cellule et n'étant pas à l'aise avec les fonctions Index et Equiv j'essaye de contourner le problème avec une boucle, toutefois lorsque j’exécute mon programme il semblerait que je ne sorte jamais de ma boucle, j'ai donc essayer de rajouter des .value mais malheuresement cela me génère des erreus de type Objet Requis.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Dim Valeur as String
Dim Source As Range                                   
Dim Search As Cell
Dim Result As String
With Workbooks(FileSource).Sheets(SheetsSource)
Set Search = Cells(1, Colonne)
Set Result = Search.Value
While Result <> Valeur Or Result <> ""
Search = Search.Offset(1, 0)
Wend
End With

J'aimerais donc s'il vous plait de l'aide pour m'aider a terminé cette portion de code

Cordialement

Depsi.

[unparia]

Bonjour
Commence s'il te plait par ouvrir ton aide VBA à la rubrique Set, instruction et la lire.
Tu y découvriras que cette instruction "attribue une référence d'objet"
Je crains fort que tout le reste de ton code ne mette en exergue trop de méconnaissances fondamentales.
Tu ferais sans soute bien de commencer par cela : apprendre les fondements eux-mêmes.

[Marc-L]

Bonjour, bonjour !

Qui plus est il est totalement inutile de créer une variable objet pour lire la valeur d'une cellule
car elle peut déjà être directement lue juste en respectant le modèle objet d'Excel !

Ce sujet n'ayant rien à faire dans du Général VBA car justement il est question du modèle objet d'Excel …

Et que vaut les variables Valeur et Colonne, où sont-elles donc alimentées ?‼

Ce genre de boucle peut s'avérer plus chronophage qu'INDEX et EQUIV !

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Depsi]

Bonjour,

J'ai oublié de préciser que je la passe en parametre de ma fonction elle correspond a une chaine de caractère.

[Marc-L]

Merci de ne pas citer l'intégralité du post juste précédent, cela nuit à la lisibilité de cette discussion ‼

Comme tu l'as certainement compris nous ne sommes pas des cartomanciens ni des devins :
une présentation claire & exhaustive du besoin accompagnée du code complet entrepris n'est donc pas du luxe !

Indiquer aussi le nombre maximal de lignes car encore une fois
INDEX et EQUIV pourraient très bien répondre au besoin en limitant le nombre de lignes de code et le temps d'exécution !

[Depsi]

J'ai bien compris malheuresement je n'arrive pas à comprendre ces fonctions enfin surtout comment les utilisés dans mon cas. Cette portion de code fonctionne en complémentarité d'une autre, et apparement d'après ce que j'ai compris la fonction équiv renvoit un numéro de ligne relatif au nombre de ligne de la plage sélectionner et non pas au numéro de la ligne du classeur.

Cordialement

[Marc-L]

Déjà sans savoir précisément ce dont il est question, difficile d'aiguiller vers la solution la mieux adaptée !

Peut-être via la méthode Find à consulter dans l'aide VBA interne …

Pour rappel une boucle infinie est juste une erreur de logique ou / et de contexte !

_________________________________________________________________________________________________________

Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)