Run-time error 50290 avec macro lors d'utilisation de liste déroulante

hunabku · 13 Août 2012

Bonjour à tous,

J'ai un petit souci avec une macro qui me renvoi une erreur uniquement lorsque je commence à entrer du texte dans une cellule avec liste déroulante, et ce lorsque je clique dessus.
Cette macro me permet de changer le nom de l'onglet en fonction de la valeur d'une cellule, en l'occurrence K2.
Donc si par exemple en B6 j'écris Ch, et que je vais dans la liste déroulante j'ai 2 choix:
Chat et Chien, et si je clique sur l'un d'eux l'erreur run-time 50290 apparaît...

Le code utilisé est le suivant:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)


    If Not Intersect(Target, Range("K2")) Is Nothing Then
    Folha2.Name = Target.Value
        
    End If

End Sub

Je joins un fichier à ce post dans le cas d'une aide éventuelle, que je remercie d'avance

tototiti2008 · 13 Août 2012

Re : Run-time error 50290 avec macro lors d'utilisation de liste déroulante

Bonjour hunabku,

en effet, bizarre, je ne sais pas trop d'où vient l'erreur, mais écrit comme ça on dirait que ça passe :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$K$2" Then
        Folha2.Name = Target.Value
    End If

End Sub

hunabku · 13 Août 2012

Re : Run-time error 50290 avec macro lors d'utilisation de liste déroulante

Bonjour tototiti2008

Merci beaucoup!
Je commençais vraiment à désespérer.

Run-time error 50290 avec macro lors d'utilisation de liste déroulante

hunabku

XLDnaute Nouveau

Pièces jointes

tototiti2008

XLDnaute Barbatruc

hunabku

XLDnaute Nouveau

Discussions similaires