Clic dans une plage

Fermé

Chrisnapoli - 7 mai 2018 à 19:12
Chrisnapoli - 7 mai 2018 à 20:19

Bonjour,
je cherche un code pour a partir d'un clic dans 4 plages renvoyer le contenues de certaines cellules vers d'autres j ai 2 plages une en CV12;CV51 l 'autre de CX12 à CX51

si je clique sur CV12 je veux que le contenue de CV12 aille en $CM$10, le contenue de AQ12en $CX$9, le contenue de AP12 en$ CP$10
si je clique sur CX12 je veux que le contenue de CX12 aille en $CM$10, le contenue de AX12en $CX$9, le contenue de AP12 en$ CP$10
si je clique sur CV13 je veux que le contenue de CV13 aille en $CM$10, le contenue de AQ13en $CX$9, le contenue de AP13en$ CP$10
si je clique sur CX13 je veux que le contenue de CV13 aille en $CM$10, le contenue de AX13en $CX$9, le contenue de AP13en$ CP$10
etc jusqu'a CV51 et CX51

pour les 2 autres plages CV58:CV97 et CX58: CX97

si je clique sur CV58 je veux que le contenue de CV58 aille en $CM$10, le contenue de AQ12en $CX$9, le contenue de AP12 en$ CP$10
si je clique sur CX58 je veux que le contenue de CX58 aille en $CM$10, le contenue de AX12en $CX$9, le contenue de AP12 en$ CP$10
si je clique sur CV59 je veux que le contenue de CV59 aille en $CM$10, le contenue de AQ13en $CX$9, le contenue de AP13 en$ CP$10
si je clique sur CX59 je veux que le contenue de CX59 aille en $CM$10, le contenue de AX13en $CX$9, le contenue de AP13en$ CP$10
etc jusqu a CV97 et CX97
merci de votre aide

A voir également:

Clic dans une plage
Atout clic - Télécharger - Éducatifs
Comment faire une liste déroulante dans excel à partir d'une plage nommée ? - Guide
Windows 11 clic droit afficher plus d'options par défaut - Guide
Double clic ouvre propriété ✓ - Forum Windows
Image de manchots sur une image de plage ✓ - Forum Graphisme

1 réponse

Réponse 1 / 1

yg_be Messages postés 22723 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
7 mai 2018 à 19:59

bonjour, cela ne fait-il pas doublon, d'abord avec Cliquer une fois dans les cellules d'une plage et, ensuite, avec automatiser via clic d'une cellule?

Chrisnapoli
Modifié le 7 mai 2018 à 20:27

Bonjour
Non ce n est pas la même chose
un est en horizontal et l autre en vertical ,le premier je suis arrive a la faire mais pas le deuxième

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
Set ws = wb.Worksheets("Graphe Vertical")
 
If Not Application.Intersect(Target, ws.Range("CD23:DQ23,CD26:DQ26")) Is Nothing Then
 
    If Target.Row = 23 Then
        i = 0
    Else
        i = 7
    End If
    ws.Range("CX9").Value = ws.Range("AQ12").Offset(Target.Column - 82, i).Value
 
End If
If Not Application.Intersect(Target, Range("CD23:DQ23,CD26:DQ26")) Is Nothing Then
Range("CM10") = Target
End If
 If Not Application.Intersect(Target, ws.Range("CD23:DQ23,CD26:DQ26")) Is Nothing Then
 
    If Target.Row = 23 Then
    i = 0
    Else
        i = 0
     
End If
    ws.Range("CP10").Value = ws.Range("AP12").Offset(Target.Column - 82, i).Value
End If
End Sub

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Clic molette qui ne marche pas

Sur la plage...

Dechiffrer une image caché

Retrouver moi l'original

Discussions similaires

Newsletters