Erreur d'exécution '91' avec instruction Find
Résolu
Ela_1005
Messages postés
22
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Erreur d'exécution '91' avec instruction Find
- Find and mount - Télécharger - Récupération de données
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
2 réponses
Bonjour,
Je n'ai pas accès à ton fichier (bloqué par le réseau de mon entreprise....)
mais bon...
A tout hasard... ta feuille Excel ne serait pas protégée ?
De plus, tu peux utiliser la syntaxe suivante (qui évite quelques erreurs d'écriture...) :
Je n'ai pas accès à ton fichier (bloqué par le réseau de mon entreprise....)
mais bon...
A tout hasard... ta feuille Excel ne serait pas protégée ?
De plus, tu peux utiliser la syntaxe suivante (qui évite quelques erreurs d'écriture...) :
Sheets("nom_feuille").Cells.Find(What:="ValeurCherchee", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Bonjour,
A la suite d'un probleme de date pose par une personne (date francaise convertie en date anglaise dans cellule excel)
ex: 02/01/2016 dans textbox devient 01/02/2016
Dans votre fichier le probleme existe, je l'ai corrige dans le fichier suivant pour suivi demande, a voir pour le reste
https://www.cjoint.com/c/FIcjeOyZ5sf
A+
A la suite d'un probleme de date pose par une personne (date francaise convertie en date anglaise dans cellule excel)
ex: 02/01/2016 dans textbox devient 01/02/2016
Dans votre fichier le probleme existe, je l'ai corrige dans le fichier suivant pour suivi demande, a voir pour le reste
https://www.cjoint.com/c/FIcjeOyZ5sf
A+
As-tu accès au fichier via ce lien là à tout hasard : https://www.cjoint.com/c/FHzj6zTUYNA
J'ai essayé la syntaxe que tu m'as proposée qui est effectivement plus pro, mais même message d'erreur .. J'ai vraiment du mal à saisir d'où ça peut venir ..
Merci
Ela
Mais c'est vraiment côté proxy de ma boite que ça bloque..... ils n'aiment pas qu'on aille sur ci-joint.com....
Je regarderai ça plus tard. (A moins qu'une autre personne ne passe par ici et t'apporte son aide...... et la solution.. :-))
A moins qu'une autre personne
Si fait, je passai par ici (a cause du prob de recup)
votre code modifie au plus simple
Private Sub btn_valider_Click() Dim i, j As Integer, x As Range With Sheets("suivi") If suivi_numero.txt_num_suivi <> "" Then Set x = .Cells.Find(CLng(suivi_numero.txt_num_suivi)) If Not x Is Nothing Then suivi.lbl_num_suivi.Caption = .Range(x.Address).Value suivi.Show Else MsgBox "Pas trouve!!!!!" End If Else MsgBox "Pas de numero ??????????" End If End With End SubPourquoi ne pas mettre la recherche directement dans l'UF suivi ??????
Vous devriez mettre une combobox pour le choix des numeros qui existent deja !!
Merci pour votre réponse. J'ai testé votre code mais il ne semble pas fonctionner.
Lorsque je renseigne un numéro existant, je me retrouve avec une date dans mon label "lbl_num_suivi". et Si jamais je renseigne un numéro qui n'existe pas, il m'ouvre quand même mon Userform "suivi".
En fait, je souhaiterai faire un filtre en fonction du numéro de suivi renseigné par l'utilisateur et qu'une fois le filtre réalisé que ce numéro de suivi soit mon point de départ (cells(i,j)) pour récupérer les informations de la ligne en incrémentant le j.
J'ai du coup changé mon code et mis cela :
Worksheets("Suivi").Activate Selection.AutoFilter Field:=2, Criteria1:=suivi_numero.txt_num_suivi.Text i = ActiveCell.Row j = ActiveCell.Column suivi.txt_commentaires.Text = Sheets("Suivi").Cells(i, j + 21).Value suivi.ShowLe filtre fonctionne bien, en revanche je dois maintenant trouver comment activer la ligne filtrée pour récupérer les infos (actuellement mon code récupère les infos de la première ligne). Avez-vous une idée ?
Merci beaucoup
Votre fichier modifie d'hier et c'est bien un numero qui s'affiche dans l'UF suivi pas une date
https://www.cjoint.com/c/FHAhLjNBYAf
J'ai du coup changé mon code Ah Bon!!!
Mais avec "le mien", vous recuperez l'adresse de la cellule, donc "facile" d"avoir le numero de ligne
Ceci dit, j'ai modfie votre fichier avec votre code, perso je ne fais pas comme ca, mais c'est une autre histoire