VBA Récupérer ds userform infos autre feuille
Résolu
Bonjour,
dans le cadre d'un projet, je souhaite récupérer dans un userform ouvert (Boutton Reprendre) à partir d'une première feuille, des données contenues dans une seconde feuille en effectuant une recherche à partir d'une référence.
Pour cela, j'ouvre l'userform, entre une référence et clique sur le boutton rechercher. La recherche s'effectue sur une autre feuille grace à une boucle qui retient le numéro de la ligne où la référence apparait. Le bug apparait quand je souhaite récupérer dans l'userform les informations contenues dans les autres colonnes de la ligne de cette autre feuille. A priori la variable "ligne" (enregistrer lors de la boucle de recherche) ne marche pas et je ne comprend pas pourquoi?
Ci-joint le fichier, le mieux étant de l'ouvrir et essayer de faire une recherche pour accéder directement au problème.
Lien du fichier: https://www.filedropper.com/
Merci d'avance.
Rémi
dans le cadre d'un projet, je souhaite récupérer dans un userform ouvert (Boutton Reprendre) à partir d'une première feuille, des données contenues dans une seconde feuille en effectuant une recherche à partir d'une référence.
Pour cela, j'ouvre l'userform, entre une référence et clique sur le boutton rechercher. La recherche s'effectue sur une autre feuille grace à une boucle qui retient le numéro de la ligne où la référence apparait. Le bug apparait quand je souhaite récupérer dans l'userform les informations contenues dans les autres colonnes de la ligne de cette autre feuille. A priori la variable "ligne" (enregistrer lors de la boucle de recherche) ne marche pas et je ne comprend pas pourquoi?
Ci-joint le fichier, le mieux étant de l'ouvrir et essayer de faire une recherche pour accéder directement au problème.
Lien du fichier: https://www.filedropper.com/
Merci d'avance.
Rémi
4 réponses
-
ContributeurSalut le forum
Bienvenue Cartolinateur comme nouveau membres.
Pour joindre un fichier, tu envois ton fichier (sans données confidentielles)
sur https://www.cjoint.com/ , et tu recopies le lien obtenu à ton prochain message.
Mytå -
Bonjour,
TexteBox nligne3:
ex si vous entrez 11 cela donne une chaine de caracteres "11" pas le nombre 11.
Il faut convertir cette chaine en nombre: CInt(nligne3),
donc:
If Sheets("Correctif en attente ex").Cells(i, 45) = CInt(nligne3) ...
Pour faire une recherche il y a avec l'aide excel : range.find,methode moyen de faire plus top.
A vous de voir -
ContributeurRe le forum
Déjà en ajoutant Val sur cette ligneIf Sheets("Correctif en attente ex").Cells(i, 45) = Val(nligne3)
Mytå -
Merci beaucoup, vous m'avez fait gagner un temps précieux!!
