Discussion :

[martinmacfly]

Bonjour à tous,

Je cherche à faire la chose suivante :

• Sélectionner une option dans une liste déroulante
• Aller chercher la case contenant le texte de cette option dans un tableau, pour l'utiliser ensuite

Pour aller chercher la case, je vais utiliser Find :

Code :

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

1
2
TypeBatt = range("O37").Value
CellTypeBatt = range("B50:E50").Find(TypeBatt, , range("B50:E50"))

Le problème, c'est que lorsque j'essaie d'entrer TypeBatt (valeur de la cellule à rechercher), j'ai l'erreur suivante :

Erreur d'exécution '91' : Variable objet ou variable de bloc With non définie

Je ne vois vraiment pas d'où ça peut venir... Quelqu'un a une idée ?

[drakkar_agfa]

Bonjour martinmacfly,

Que peut contenir comme valeur ta cellule O37?

Est-ce que le restant de ton code pour y jouer pour quelque chose?
Comment as-tu déclarer tes variables?
"CellTypeBatt" devra être un range et utiliser comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
    Dim CellTypeBatt As Range
    TypeBatt = Range("O37").Value
    Set CellTypeBatt = Range("B50:E50").Find(TypeBatt)
    If Not CellTypeBatt Is Nothing Then
        MsgBox CellTypeBatt.Address
        MsgBox CellTypeBatt.Value
    Else
        MsgBox "Pas trouvé"
    End If

Sinon, regarde l'aide en ligne de .Find, tu auras un exemple complet.

Bonne chance!

[martinmacfly]

Parfait, ça marche, merci beaucoup !

Je suppute que c'était à cause du Set que j'avais oublié, c'était la première fois que j'utilisais Find.

Pour répondre à tes questions :

• O37 contient des strings pour le moment, qu'on peut choisir dans un menu déroulant. Elle pourra plus tard contenir aussi des entiers.
• le reste du code n'y était pour rien, parce qu'en exécutant pas à pas, c'était bien là que ça plantait, d'autant plus que maintenant, ça marche, et que je n'ai modifié que ça.
• mes variables étaient déclarées en Variant pour Typebatt (soit string soit entiers), et range pour CellTypebatt

Enfin, pour l'aide sur .Find, je l'ai regardée, mais elle est d'une clarté douteuse... Merci en tout cas !