Beforedoubleclick avec 2 Events - Excel VBA

Résolu/Fermé

supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 - 9 févr. 2017 à 22:00
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 13 févr. 2017 à 22:04

Bonjour,

J'utilise présentement ce code pour faire afficher des résultats en fonction de la cellule qui est choisi dans une plage donnée

Private Sub Worksheet_beforedoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("b22").Select
If Target.Count > 1 Then Exit Sub
If Application.Intersect(Target, Range("B14:B20")) Is Nothing Then Exit Sub
[b22].Value = Target.Offset(0, 0).Value
End Sub

Je me demandais s'il était possible de rajouter un deuxième scénario, c'est à dire que si dans un autre range "range("B23:B34")" l'utilisateur appuie dans une cellule dans cette plage, la valeur de la cellule ce copierais dans B36?

Merci à l'avance pour votre aide

A voir également:

Before double click vba
Double ecran - Guide
Whatsapp double sim - Guide
Auto mouse click - Télécharger - Divers Utilitaires
Double appel - Guide
Double authentification google - Guide

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
9 févr. 2017 à 22:13

Bonjour,

Comme ceci par exemple :

Private Sub Worksheet_beforedoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("B14:B20")) Is Nothing Then
    [b22].Value = Target.Offset(0, 0).Value
    Range("B22").Select
ElseIf Not Application.Intersect(Target, Range("B23:B34")) Is Nothing Then
    [B36] = Target.Value
    Range("B36").Select
End If
End Sub

Si tu publies du code, mets les balises c'est plus lisible.

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
9 févr. 2017 à 22:30

Bonjour,

je sais que tu es parti de son code et c'est plus destiné supraman :
- à mon avis sur un double-clic target.count a peu de chance d'être >1 ;-)
- .offset(0,0) ne sert à rien non plus
Pense à te servir de F1 sur les fonctions que tu ne connais pas pour essayer de comprendre et d'apprendre au fur et à mesure.
eric

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
9 févr. 2017 à 22:42

Salut Éric,
Effectivement je n'ai pas touché (à tord !) à ce qui existait ;-)

supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 1
9 févr. 2017 à 23:35

Merci Gbinforme pour ton suivi:) Mais le code que tu m'as fourni me reviens en erreur.

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
10 févr. 2017 à 08:41

Bonjour,

le code que tu m'as fourni me reviens en erreur.
Surtout ne précise pas où se situe l'erreur ?
en tout cas malgré les lacunes signalées par Éric, il fonctionne sur Excel.

supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 1 > gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020
10 févr. 2017 à 14:13

Sympatique comme réponse, merci pour ton aide.

Discussions similaires

Site de confiance ou non ?

"L'indice n'appartient à la sélection" + VBA

problème avec ad doubleclick sur android

comment ecrire un double cote " "

VBA : Range avec références variables..

Discussions similaires

Newsletters