XL 2010 Sélection cellule active plus cellules adjacentes par double clic

Francky79 · 7 Novembre 2020

Bonjour le forum,

Avec le code ci-dessous de Rhysand ( merci à lui) je peux sélectionner la cellule active dans la colonne B pour mettre sa valeur en en F6,
Est il possible de sélectionner en même temps les valeurs des colonnes C et D de la même ligne pour les mettre en C6 et D6 ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim i As Integer

If Target.Column = 2 Then
For i = 15 To 70
If Target.Row = i Then
Range("F6").Value = ActiveCell.Value
Else
'Cancel = True
End If
Next i
End If

End Sub

Meric de votre aide,

sylvanu · 7 Novembre 2020

Bonjour Francky,
Essayez cela :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
If Target.Column = 2 Then
    For i = 15 To 70
        If Target.Row = i Then
            [F6] = ActiveCell.Value
            [C6] = Cells(Target.Row, "C")
            [D6] = Cells(Target.Row, "D")
        End If
    Next i
End If
End Sub

Je ne comprends pas l'utilité de i ? Pourquoi pas :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
    [F6] = ActiveCell.Value
    [C6] = Cells(Target.Row, "C")
    [D6] = Cells(Target.Row, "D")
End If
End Sub

Est ce lié au reste de votre code ?

NB : Pour le code utilisez les balises </>, c'est plus lisible.

sylvanu · 7 Novembre 2020

Bonjour Francky,
Essayez cela :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
If Target.Column = 2 Then
    For i = 15 To 70
        If Target.Row = i Then
            [F6] = ActiveCell.Value
            [C6] = Cells(Target.Row, "C")
            [D6] = Cells(Target.Row, "D")
        End If
    Next i
End If
End Sub

Je ne comprends pas l'utilité de i ? Pourquoi pas :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
    [F6] = ActiveCell.Value
    [C6] = Cells(Target.Row, "C")
    [D6] = Cells(Target.Row, "D")
End If
End Sub

Est ce lié au reste de votre code ?

NB : Pour le code utilisez les balises </>, c'est plus lisible.

Francky79 · 7 Novembre 2020

Merci Sylvanu,

Impeccable,
Le i cest pour limiter plage du double clic.

sylvanu · 7 Novembre 2020

Pour limiter la zone, alors utilisez :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B15:B70")) Is Nothing Then
        [F6] = Target.Value
        [C6] = Cells(Target.Row, "C")
        [D6] = Cells(Target.Row, "D")
    End If
End Sub

Ici la zone active est limitée à B15:B70.

Francky79 · 7 Novembre 2020

Ok merci.

XL 2010 Sélection cellule active plus cellules adjacentes par double clic

Francky79

XLDnaute Occasionnel

sylvanu

sylvanu

XLDnaute Barbatruc

Francky79

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Francky79

XLDnaute Occasionnel

Discussions similaires