Clic dans une plage
Chrisnapoli
-
Chrisnapoli -
Chrisnapoli -
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
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
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image d’ours polaire sur une image de plage. retrouvez l'image originale de la plage. que cache l'ours polaire ? - Forum Graphisme
- Image de manchots sur une image de plage ✓ - Forum Graphisme
- Clic gauche souris ne fonctionne plus ✓ - Forum souris / Touchpad
- Excel double clic cellule source ✓ - Forum Excel
1 réponse
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
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?
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