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

[misteryann]

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]

Bonjour.
Décomposez :

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]

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

 

[Dranreb]

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

 

[misteryann]

Désolé
Le voici

 

[Dranreb]

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]

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]

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]

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

 

[misteryann]

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

 

[misteryann]

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]

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

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