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...