Excel double clique fonction Range ne fonctionne pas [Résolu]

Signaler
-
 Cedrik -
Bonjour,

Je galère beaucoup à un code VBA dont je ne comprends pas pourquoi ça ne fonctionne pas. J'ai entré ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


If Target.Address(0, 0) = "A18" Then
Cancel = True
Sheets("REGISTRE | SOUMISSIONS").Select
Range("RS_2[Entreprise]").Select
End If

End Sub


Mon problème est que j'ai un message d'erreur à la ligne Range("RS_2[Entreprise[").Select et ne me renvoie jamais au tableau demandé...

Mais! dans la feuille REGISTRE | SOUMISSIONS le code fonctionne seul différence c'est qu'il n'y a pas la ligne Sheets("REGISTRE | SOUMISSIONS").Select dont voici le code entier :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


If Target.Address(0, 0) = "A18" Then
Cancel = True
Range("RS_2[Entreprise]").Select
End If

End Sub


Help?

4 réponses

Messages postés
382
Date d'inscription
samedi 7 novembre 2020
Statut
Membre
Dernière intervention
8 mai 2021
75
Bonjour,
Je parierais sur la présence du "|" dans le nom de la feuille.
Avez-vous essayé avec par exemple un nom plus simple (REGISTRE SOUMISSIONS) ?
Oui, mais l'erreur persiste... C'est vraiment à la ligne Range("RS_2[Entreprise]").Select que ça bug. Si j'enlève cette ligne le code VBA marche parfaitement, je ne comprends pas pourquoi il ne prend pas Range("RS_2[Entreprise]").Select même si je changes par une formule simple du style Range("A24")
Messages postés
382
Date d'inscription
samedi 7 novembre 2020
Statut
Membre
Dernière intervention
8 mai 2021
75
J'avais compris que ça marchait sans Sheets("REGISTRE | SOUMISSIONS").Select

Alors c'est la plage RS_2[Entreprise]" qui ne convient pas. Elle représente quoi : Entreprise c'est un tableau nommé ? et RS_2 ?

Si vous remplacez cette ligne par un simple Range("A24").select, c'est étonnant que ça ne fonctionne pas.

Il serait plus simple d'avoir un exemple de votre fichier, sans données confidentielles en passant par exemple par https://cjoint.com/ pour héberger le fichier et nous fournir ici un lien téléchargement.

sinon, pour poster du code, il faut penser à le mettre dans la balise Basic de l'éditeur :
Messages postés
675
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
7 mai 2021
50
Bonjour à tous,

Ton tableau RS_2 est-il bien sur la feuille REGISTRE | SOUMISSIONS ?
Sinon essaie de préfixer ton Range("RS_2[Entreprise]").Select par Application.
Application.Range("RS_2[Entreprise]").Select


Cordialement
En ajoutant "Application." ça fonctionne!!!

Merci beaucoup!!!