XL 2019 Double click sur plusieurs cellules

sousou

XLDnaute Barbatruc

• 14 Décembre 2021

• #2

Bonjour, Un fichier serait utile.
On suppose une macro? laquelle? et qu'elle est l'objectif?

 

Vote positif 0 Vote négatif

J

jamal060177

XLDnaute Nouveau

• 14 Décembre 2021

• #3

J ai mis le fichier en piece joint ,quand on double click sur A1 A2 A3 , j ai la data qu il me faut ,j aimerai une solution qui permetrai davoir rapidement la data sans avoir à double clicker sur toutes mes cellules

merci d avance

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 14 Décembre 2021

• #4

Bonjour,

Quand je click deux fois sur cette cellule , j ai cette donnée dont j ai besoin qui s affiche :
406-3897521-6758751-
HNDRLJTQF

Cliquez pour agrandir...

Un double clic fonctionne avec une macro dans l'actuel ton fichier est en .XLSX alors qu'il devrait être en .XLSM si bien sûr une macro devrait y cohabiter, mais apparemment ce n'est pas le cas

Slts

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 14 Décembre 2021

• #5

He oui ! Ton problème ne semble pas complet.

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 14 Décembre 2021

• #6

Si non tu peux essayer cette formule que tu mets en b1 et que tu tires
=STXT(A1;CHERCHE("ltrch";A1)+5;CHERCHE("}";A1;CHERCHE("ltrch";A1))-CHERCHE("ltrch";A1)-5)&" - " &STXT(A1;CHERCHE("ltrch";A1;CHERCHE("ltrch";A1)+1)+5;CHERCHE("}";A1;CHERCHE("ltrch";A1;CHERCHE("ltrch";A1)+1))-CHERCHE("ltrch";A1;CHERCHE("ltrch";A1)+1)-5)

avec un peu de chance ca te donne ce que tu cherches

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Décembre 2021

• #7

Bonjour jamal 060177, riton00, sousou,

Le double-clic permet de mettre la cellule en mode Edition.

On peut obtenir ce résultat en envoyant la touche F2, voyez le fichier joint et ce code :

VB:

Sub Lance()
Application.MoveAfterReturnDirection = xlDown 'déplacement vers le bas
[A1].Select
MAJ
End Sub

Sub MAJ()
'se lance par le raccourci clavier Ctrl+m
If ActiveCell.Row <= Cells.SpecialCells(xlCellTypeLastCell).Row Then _
    CreateObject("WScript.Shell").SendKeys "{F2}~^m" Else [A1].Select: Rows.Autofit
End Sub

Avec WScript.Shell le pavé numérique ne se désactive pas.

A+

 

Pièces jointes

• ex(1).xlsm

  17.3 KB · Affichages: 38

Vote positif 0 Vote négatif

J

jamal060177

XLDnaute Nouveau

• 14 Décembre 2021

• #8

un Grand merci à tous , top le bouton lançer !!!

 

Vote positif 0 Vote négatif