Activer par celulle

[luke3300]

Bonjour tout le forum 🙂

y a-t-il une âme charitable qui pourrait jeter un coup d'oeil là quand il/elle a le temps?

Lien supprimé

Merci d'avance de votre gentillesse 😉 et bonne journée.

 

[Hervé]

BOnjour luke, le forum

Essaye avec ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Target = Cells(Target.Row, 1)
End Sub

A placer dans le module de la feuille correspondant (clique droit sur le nom de l'onglet, puis visualiser le code)

salut

 

[luke3300]

Bonjour Hervé et le forum,

le code est nickel, merci beaucoup Hervé 😉

Une petite question cependant, si maintenant, la celulle dont on doit recopier la veleur est par exemple dans la 3eme colonne, est-ce qu'il me suffit de remplacer les 1 de ton code par des 3 comme ici?:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 3 Then Exit Sub
Target = Cells(Target.Row, 3)
End Sub


Merci d'avance et bon dimanche,
(chez nous dans les Ardennes, il douche et il y a de l'orage 🙁 )

Message édité par: luke3300, à: 07/08/2005 07:59

 

[Hervé]

Bonjour luke, le forum

🙂

Ce code suffit :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Cells(Target.Row, 3)
End Sub

Pour : If Target.Count > 1 Then Exit Sub

J'avais placé ce code par habitude, mais il est inutile dans ton cas.

Il permet simplement d'eviter un bug avec les macro worksheet_selectionchange, lorsque l'on sélectionne plusieurs cellules, sans cette ligne, le code bug. Mais vraiment inutile dans ton cas.

salut

 

[luke3300]

Bonsoir tout le monde,


Salut Hervé, c'est au poil!!!!! ça marche à merveille,

merci beaucoup :lol:

Passez tous une excellente nuit

et merci encore...