erreur 91 variable objet ou variable de bloc with non définie

misteryann · 19 Avril 2019

Bonjour le forum

dans un USF, j'ai une ListBox qui est alimentée via une recherche intuitive. dans les propriétés de la LisBox j'ai 20 colonnes dont seules la 1 et la 20 sont visibles (A et T).

or j'ai une erreur 91 dans ce code (ligne en bleu) :

Private Sub ListBox13_Click()

With Sheets("BASE")

ligne6 = Sheets("BASE").[A:A].Find(ListBox13, LookIn:=xlValues).Row

Me.TextBox7 = Sheets("BASE").Cells(ligne6, 1)
Me.TextBox8 = Sheets("BASE").Cells(ligne6, 5)
Me.TextBox9 = Sheets("BASE").Cells(ligne6, 8)
Me.TextBox10 = Sheets("BASE").Cells(ligne6, 9)
Me.TextBox11 = Sheets("BASE").Cells(ligne6, 2)
Me.TextBox68 = Sheets("BASE").Cells(ligne6, 3)
Me.TextBox12 = Sheets("BASE").Cells(ligne6, 4)
Me.TextBox65 = Sheets("BASE").Cells(ligne6, 15)
Me.TextBox66 = Sheets("BASE").Cells(ligne6, 16)
Me.TextBox67 = Sheets("BASE").Cells(ligne6, 17)
Me.TextBox12 = Sheets("BASE").Cells(ligne6, 4)
Me.TextBox69 = Sheets("BASE").Cells(ligne6, 14)
Me.TextBox65 = Sheets("BASE").Cells(ligne6, 15)
Me.TextBox66 = Sheets("BASE").Cells(ligne6, 20)
Me.TextBox70 = Sheets("BASE").Cells(ligne6, 21)
Me.TextBox67 = Sheets("BASE").Cells(ligne6, 22)

End With

End Sub

Pourtant ligne6 est bien déclaré...
Par ailleurs, j'ai une autre ListeBox pour laquelle le code fonctionne

Merci de votre aide
Misteryann

Dranreb · 19 Avril 2019

Bonjour.
Décomposez :

VB:

Dim Cel As Range, Ligne6 As Long
…
Set Cel = .[A:A].Find(ListBox13, LookIn:=xlValues)
If Cel Is Nothing Then MsgBox "Non trouvé",vbCritical: End
ligne6 = Cel.Row

misteryann · 19 Avril 2019

Merci pour la réponse Dranreb
Mais il y a soucis.
En PJ un extrait de ma UserForm.

Dranreb · 19 Avril 2019

Le souci que je vois c'est qu'il n'y a aucune macro ni UserForm dans le classeur joint.

misteryann · 19 Avril 2019

Désolé
Le voici

Dranreb · 19 Avril 2019

Quel soucis ? Il n(y a plus d'erreur 91, que je sache.
Remarque: Je ne fas jamais de Find dans les UserForm. Je m'arrange pour tout avoir en mémoire et j'utilise des ComboBox.

misteryann · 19 Avril 2019

Non pas d'erreur 91
mais quand je tapes un n° de devis qui existe (123455 par ex) cela affiche "non trouvé" dans la msg

Dranreb · 19 Avril 2019

Pourquoi n'utilisez vous pas le ListIndex de la ListBox plutôt ? En y ajoutant 1 vous obtenez directement le numéro de la ligne.
Alors qu'un Find c'est plus aléatoire: Les contrôles ne peuvent en général valoir que des textes, qu'on ne retrouve plus s'ils provenaient à l'origine de nombres.

misteryann · 19 Avril 2019

Parce que j'essaye d'adapter les code que je trouve cool
La PJ est mon fichier

misteryann · 19 Avril 2019

Je sais que c'est le bazard dans le code , surtout dans les Dim
Et pas que

misteryann · 19 Avril 2019

Pour expliquer le fichier:
Les chefs aiment les tableaux. Or les copier/coller sont usant à force
Par conséquent, l'objectif est de remplir les feuilles "DI, Devis, et BdC" au fur et à mesure que les infos arrivent

ThomasR · 20 Avril 2019

Bonjour,
cela ne va pas t'aider sur ton erreur mais dans ton code tu fais un

VB:

with sheets("BASE")
    donc ici ce n'est plus nécessaire d'écrire sheets("BASE").cells....
    il faut simplement écrire
    .cells....
end with

ou alors supprime with ... et le end with

Bonne journée
Thomas

erreur 91 variable objet ou variable de bloc with non définie

misteryann

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

misteryann

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

misteryann

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

misteryann

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

misteryann

XLDnaute Occasionnel

Pièces jointes

misteryann

XLDnaute Occasionnel

misteryann

XLDnaute Occasionnel

ThomasR

XLDnaute Occasionnel

Discussions similaires