Discussion :

[lafafmentvotre]

Bonjour à tous
J'ai besoin de faire l'équivalent d'un double-clic sur les cellules d'une colonne.
J'ai bien trouvé des informations sur Application.DoubleClick mais rien ne se passe.
Est-il possible de réaliser cela sur une colonne avec des milliers de cellules ?
Merci par avance pour votre aide

[Philippe Tulliez]

Bonjour,

J'ai bien trouvé des informations sur Application.DoubleClick mais rien ne se passe.

Sans visualiser le code que vous avez utilisé il est difficile de vous aider sauf regarder dans une boule de cristal, lire dans les cartes, etc.

Avez-vous lu les tutoriels qui traitent de ce sujet ?

• Les évènements dans la feuille de calcul
• Les évènements du module objet ThisWorkbook, dans Excel

[lafafmentvotre]

Oui, c'est vrai, désolé.
J'ai fait le test juste sur une cellule dans un premier temps

Code :

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

1
2
3
4
5
Sub Double_Click()
Worksheets("01_UCCX Analysis-Detailed Call ").Activate
ActiveSheet.Range("C3").Select
Application.DoubleClick
End Sub

Ce que je souhaiterai, c'est faire ce double-click pour l'ensemble des cellules de la colonne C
Merci pour votre aide (et encore désolé)

[Philippe Tulliez]

Bonjour,
Je ne sais pas quelle documentation vous avez trouvé mais ce n'est absolument pas correct.

Pour intercepter un double clic, un clic droit, un changement de sélection de cellule, etc, il faut utiliser une procédure événementielle qui se trouve soit dans le module de la feuille où doit avoir lieu l'événement, soit dans le module du classeur.

Je vous conseille avant tout de consulter les tutoriels que je vous ai référencé.

Petit exemple du contrôle d'un double clic dans une cellule de la colonne 4 de la feuille

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 4 Then
     MsgBox "Vous avez cliqué dans la bonne colonne"
     Cancel = True
  End If
End Sub

Ne contrôler que le numéro de colonne, n'est pas une bonne idée. Il faut idéalement intercepter une plage précise comme par exemple $D2:$D500 et dans ce cas on utilisera la méthode Intersect

Exemple de l'interception du double-clic dans la zone des données (DataBodyRange) de la colonne nommée Statut du tableau structuré présent dans la feuille où se trouve le code ci-dessous
Si c'est la bonne colonne on écrit X sinon on l'efface

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Response As Byte
  Dim oList As ListObject
  '
  Set oList = Target.ListObject
  If Not oList Is Nothing Then
    If Not Intersect(Target, oList.ListColumns("Statut").DataBodyRange) Is Nothing Then
       Target.Value = IIf(Target.Value = "X", "", "X")
       Cancel = True
    End If
  End If
  Set oList = Nothing
End Sub

[lafafmentvotre]

Bonjour Philippe
Merci pour les exemples. Je ne cherche pas à intercepter un double clic, un clic droit, un changement de sélection de cellule. Je cherche à exécuter un double-click sur un ensemble de cellules pour ne pas à le faire manuellement...
Est-ce possible ?
Merci

[joe.levrai]

Bonjour,

le double-click sur une cellule, nativement, provoque l'entrée en mode édition de cette dernière, il serait pertinent de nous expliquer le but de cette opération ?

Que cherches-tu à obtenir au final, via ces double-click en cascade sur un lot de cellules ?

[lafafmentvotre]

Je recois des valeurs au format 9/7/20 8:50:15 PM qui changent pour 09/07/2020 20:50:15 après un double-click.
C'est le second format dont j'ai besoin pour exploiter les données.
Mais pour cela je dois effectuer ce double-click dans chaque cellule

[Patrice740]

Bonjour,

Essaies :

Code :

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

1
2
3
Sub test()
  Worksheets("01_UCCX Analysis-Detailed Call").UsedRange.Replace "/", "/"
End Sub

[lafafmentvotre]

Bonjour Patrice740
Merci mais cela ne fonctionne pas
Erreur:

[Pierre Fauconnier]

Salut.

"Simuler le double-clic" sur un ensemble de valeurs revient, pour ce que tu souhaites réaliser, à transférer les valeurs de la plage... à la plage.
En forçant le format avant, ça pourrait donner ceci

Code :

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

1
2
  MyRange.NumberFormat = "dd/mm/yy hh:mm:ss"
  MyRange.Value = MyRange.Value

je suis parti de l'idée que tu avais du texte et non des valeurs temporelles formatées avec AM/PM. Cela peut se vérifier via le format de cellule. Si tu as un format personnalisé AM/PM, il suffirait de modifier le format, soit dans Excel soit par macro (voir la première ligne du code que j'ai donné)

[Patrice740]

Bonjour Patrice740
Merci mais cela ne fonctionne pas

As-tu placé le code dans un module standard du classeur contenant la feuille concernée ? lafafmentvotre.xlsm

[lafafmentvotre]

Bonjour Patrice740
Mille mercis
Je viens de tester avec l'exemple sur d'autres fichiers et cela fonctionne parfaitement.
Merci pour tout