inscrire valeur par double clic

[aubelix]

Bonsoir à tous.
Une autre question, comment par double clic de souris inscrire par exemple les initiales "AB" uniquement dans les cellules de la colonne "L" et à partir
de L5 et au-delà.
Merci pour votre aide

 

[Gérard DEZAMIS]

Bonsoir Aubelix

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

Ce code placé dans ta feuille marque bien AB en faisant un double Click mais ne rigole pas ........

Je ne sais pas comment limiter sa zone d'action (L5:L65536) pour toi...

Je crois que je vais aussi en apprendre encore ce soir

@+
GD

 

[Lord Nelson]

Bonsoir Aubélix, Gérard et le Forum,

Comme ceci par exemple :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 12 And Target.Row > 4 Then
Target.Value = "AB"
End If
Cancel = True
End Sub

A+
Horatio

 

[Gérard DEZAMIS]

Beau Dimanche !
Cela commence bien !

Well done my Lord

Thanks a lot

@+
GD

 

[Pascal76]

Bonjour

Une autre solution

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

If Not Intersect(Target, Range("L5:L65536")) Is Nothing Then Target.Value = "AB"

End Sub

Bon dimanche

Pascal

 

[aubelix]

Bonjour à Gérard, Lord Nelson, Pascal76 et tout le forum.
Tout d'abord merci pour vos réponses qui fonctionnent très bien.
Elles me feront gagner un temps précieux.
Bon week-end à tous.

 

[Gérard DEZAMIS]

Bonjour Aubelix, Horatio et Pascal 76

Merci de ce petit cours matinal

Puis-je poser une dernière (?) petite question avant que la sonnerie de la récré retentisse ?

Est-il possible et comment étendre cette condition de AB dans une zone déterminée pour par exemple A5:A20 et L5:L20 . J'ai essayé

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

If Not Intersect(Target, Range("L5:L20") And Range("A5:A20")) Is Nothing Then Target.Value = "AB"
End Sub

FIASCO

idem avec

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

If Not Intersect(Target, Range("L5:L20") OR Range("A5:A20")) Is Nothing Then Target.Value = "AB"
End Sub

La seule bidouille que j'ai pu trouver ce matin , boof pour un dimanche c'est pas trop mal .... c'est de sélectionner A5:A20 puis avec CTRL, L5:L20 et de nommer cette zone "Cible"
ce qui donne

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("Cible")) Is Nothing Then Target.Value = "AB"
End Sub
(du Pascal76 modifié version 5 décembre !)

Pas possible de faire autrement ?
ou mon écriture de VBA est Vaguement et Bassement Approximative

Bon W-E à tous

@+ GD

 

[aubelix]

Bonjour à Gérard, Lord Nelson, Pascal76 et tout le forum.
Tu as lu dans mes pensées Gérard.
Je voulais poser la question suivante qui relancera le débat :
Est-til possible de pouvoir en fonction de la colonne et répondant toujours aux mêmes critères :
uniquement dans les cellules de la colonne "L" et à partir
de L5 et au-delà pour inscrire "AB" et de la colonne "P" inscrire "X"
Merci pour vos réponse

P.S : Comment faites-vous pour insérer des gifs dans mail ?

 

[Lord Nelson]

Bon dimanche à tous,

Voici une variante permmettant de traiter deux colonnes (ou plus) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Test de la cellule cible par ses numéros de colonne et de ligne :
If Target.Column = 12 And Target.Row > 4 Then
Target.Value = "AB"
ElseIf Target.Column = 16 And Target.Row > 4 Then
Target.Value = "X"
End If

'ou bien, autre choix :
'Test de l'appartenance de la cible à une zone (merci Pascal)
'If Not Intersect(Target, Range("L5:L65536")) Is Nothing Then
' Target.Value = "AB"
'ElseIf Not Intersect(Target, Range("P565536")) Is Nothing Then
' Target.Value = "X"
'End If

Cancel = True
End Sub

A+
Horatio

 

[aubelix]

Rebonjour à tous.
Merci pour votre aide. Tout fonctionne à la perfection.
Je garde précieusement dans mon coffre toutes ces solutions aussi ingénieuses les unes que les autres !
Encore une fois de plus mille mercis à tous.
Bon appétit et bon week-end.
" Le savoir ne vaut que s'il est partagé"

 

[Gérard DEZAMIS]

Bon a (c 'est un a petit ! Ouarf !)

S U P E R

Merci Horatio et Pascal​

pour Aubelix et les gifs dans mails.
Récuperer sur le Weg un gif animé (pas possible d'utiliser ceux que tu as sur ton ordi) click droit et propriété te donne l'adresse et l'intitulé exact
ensuite tu colles ces coordonnées dans ton mail avec

à la fin ainsi ma petite voiture hésiatante sur la route du VBA correspond à : {img}http://www.abgraphix.com/gifs/images/transports/camions/camions004.gif{/img}
(j'ai remplacé ici le [ par { pour que l'image ne se déclenche pas !)
Recherche sur XLD et le WIKI ===> POSTVL tu verras c'est super simple.
Cordialement

@+GD

 

[@+Thierry]

Bonjour Gérard, Aubelix, Horatio, Pascal, le Forum

Bon bien qu'en retard, (je me lève lol) voici un lien pour un petit topo que j'avais fait pour l'utilisation d'InterSect dans les évènementielles :

Lien supprimé

Pour ce qui est des GIF animés dans le Forum........ suivez le GIF !!!



Bon Dimanche à tous et à toutes
@+Thierry

 

[Lord Nelson]

Quelle classe ce Thierry !!!

A+
Horatio

 

[aubelix]

Bonjour à tous.

Je ne dirais d'un mot Thierry Bravo !
Cordialement

 

[Gérard DEZAMIS]

Bonjour le "lêve tôt"

La nuit tombe vite à Monaco ?

Voilà tout est dit !

Il "suffit" maintenant de noter tout ça sur une petite fiche, l'apprendre par coeur et ...le
réutiliser proprement.

Comment deviner qu'il fallait chercher avec "InterSect dans les évènementielles" ?

Même le dimanche, ce n'est pas possible !

1000 mercis (une fois de plus.....)
Donc je récapitule :
500 pour le sauveur, trouveur, récapitulateur .... dormeur
200 pour Pascal et Horatio (chacun bien sûr)
100 pour Aubelix pour avoir posé cette question !

ça va chauffer !

@+
GD