Beforedoubleclick avec 2 Events - Excel VBA

Résolu
supraman46 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -  
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   -
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   Statut Contributeur Dernière intervention   4 722
 
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   Statut Contributeur Dernière intervention   7 269
 
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   Statut Contributeur Dernière intervention   4 722
 
Salut Éric,
Effectivement je n'ai pas touché (à tord !) à ce qui existait ;-)
0
supraman46 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   1
 
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   Statut Contributeur Dernière intervention   4 722
 
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   Statut Membre Dernière intervention   1 > gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention  
 
Sympatique comme réponse, merci pour ton aide.
0