Sujet Précédent Sujet Suivant

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

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 712
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.
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 248
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
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
9 févr. 2017 à 22:42
Salut Éric,
Effectivement je n'ai pas touché (à tord !) à ce qui existait ;-)
0
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.
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
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.
0
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.
0