Qui aurait l'amabilité de bien vouloir m'indiquer la macro suivante:
J'ai des infos dans les cellules a1:d12.
En cliquant deux fois côté gauche de la souris sur une de ces cellules, je
souhaite obtenir la valeur de la cellule en E3.
Simple pour le pro, dur pour l'amateur; alors un grand merci à celle ou
celui qui m'aidera.
Bon après-midi à tous.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean) If Intersect(zz, [A1:D12]) Is Nothing Then Exit Sub [E3] = zz.Value Cancel = True End Sub
AV
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean)
If Intersect(zz, [A1:D12]) Is Nothing Then Exit Sub
[E3] = zz.Value
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean) If Intersect(zz, [A1:D12]) Is Nothing Then Exit Sub [E3] = zz.Value Cancel = True End Sub
AV
Rv
Bonjour,
Sur l'événement BeforeDoubleClick de la feuille concernée on peut insèrer le code suivant:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.Row <= 4 And Target.Cells.Column <= 12 Then MsgBox Cells(5, 3) End If End Sub
A+
Rv
"Charly" a écrit dans le message de news:
Bonjour,
Qui aurait l'amabilité de bien vouloir m'indiquer la macro suivante:
J'ai des infos dans les cellules a1:d12. En cliquant deux fois côté gauche de la souris sur une de ces cellules, je souhaite obtenir la valeur de la cellule en E3.
Simple pour le pro, dur pour l'amateur; alors un grand merci à celle ou celui qui m'aidera. Bon après-midi à tous.
Charly
Bonjour,
Sur l'événement BeforeDoubleClick de la feuille concernée on peut insèrer le
code suivant:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Cells.Row <= 4 And Target.Cells.Column <= 12 Then
MsgBox Cells(5, 3)
End If
End Sub
A+
Rv
"Charly" <Charly@discussions.microsoft.com> a écrit dans le message de
news:9C57526C-B7A5-456E-9551-293718CC7E9A@microsoft.com...
Bonjour,
Qui aurait l'amabilité de bien vouloir m'indiquer la macro suivante:
J'ai des infos dans les cellules a1:d12.
En cliquant deux fois côté gauche de la souris sur une de ces cellules, je
souhaite obtenir la valeur de la cellule en E3.
Simple pour le pro, dur pour l'amateur; alors un grand merci à celle ou
celui qui m'aidera.
Bon après-midi à tous.
Sur l'événement BeforeDoubleClick de la feuille concernée on peut insèrer le code suivant:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.Row <= 4 And Target.Cells.Column <= 12 Then MsgBox Cells(5, 3) End If End Sub
A+
Rv
"Charly" a écrit dans le message de news:
Bonjour,
Qui aurait l'amabilité de bien vouloir m'indiquer la macro suivante:
J'ai des infos dans les cellules a1:d12. En cliquant deux fois côté gauche de la souris sur une de ces cellules, je souhaite obtenir la valeur de la cellule en E3.
Simple pour le pro, dur pour l'amateur; alors un grand merci à celle ou celui qui m'aidera. Bon après-midi à tous.
Charly
Charly
Un grand merci à vous deux. Inutile de dire que cela fonctionne ! Bonne fin de journée Charly
Bonjour,
Sur l'événement BeforeDoubleClick de la feuille concernée on peut insèrer le code suivant:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.Row <= 4 And Target.Cells.Column <= 12 Then MsgBox Cells(5, 3) End If End Sub
A+
Rv
"Charly" a écrit dans le message de news:
Bonjour,
Qui aurait l'amabilité de bien vouloir m'indiquer la macro suivante:
J'ai des infos dans les cellules a1:d12. En cliquant deux fois côté gauche de la souris sur une de ces cellules, je souhaite obtenir la valeur de la cellule en E3.
Simple pour le pro, dur pour l'amateur; alors un grand merci à celle ou celui qui m'aidera. Bon après-midi à tous.
Charly
Un grand merci à vous deux.
Inutile de dire que cela fonctionne !
Bonne fin de journée
Charly
Bonjour,
Sur l'événement BeforeDoubleClick de la feuille concernée on peut insèrer le
code suivant:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Cells.Row <= 4 And Target.Cells.Column <= 12 Then
MsgBox Cells(5, 3)
End If
End Sub
A+
Rv
"Charly" <Charly@discussions.microsoft.com> a écrit dans le message de
news:9C57526C-B7A5-456E-9551-293718CC7E9A@microsoft.com...
Bonjour,
Qui aurait l'amabilité de bien vouloir m'indiquer la macro suivante:
J'ai des infos dans les cellules a1:d12.
En cliquant deux fois côté gauche de la souris sur une de ces cellules, je
souhaite obtenir la valeur de la cellule en E3.
Simple pour le pro, dur pour l'amateur; alors un grand merci à celle ou
celui qui m'aidera.
Bon après-midi à tous.
Un grand merci à vous deux. Inutile de dire que cela fonctionne ! Bonne fin de journée Charly
Bonjour,
Sur l'événement BeforeDoubleClick de la feuille concernée on peut insèrer le code suivant:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.Row <= 4 And Target.Cells.Column <= 12 Then MsgBox Cells(5, 3) End If End Sub
A+
Rv
"Charly" a écrit dans le message de news:
Bonjour,
Qui aurait l'amabilité de bien vouloir m'indiquer la macro suivante:
J'ai des infos dans les cellules a1:d12. En cliquant deux fois côté gauche de la souris sur une de ces cellules, je souhaite obtenir la valeur de la cellule en E3.
Simple pour le pro, dur pour l'amateur; alors un grand merci à celle ou celui qui m'aidera. Bon après-midi à tous.
Charly
BJ
Salut Charly, 2 clic sur This workbook en projet et ceci à coller ce code ne fait pas la différence si tu double clic hors de la plage A1:D12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) [E3] = Selection.Value End Sub
"Charly" a écrit dans le message news:
Bonjour,
Qui aurait l'amabilité de bien vouloir m'indiquer la macro suivante:
J'ai des infos dans les cellules a1:d12. En cliquant deux fois côté gauche de la souris sur une de ces cellules, je souhaite obtenir la valeur de la cellule en E3.
Simple pour le pro, dur pour l'amateur; alors un grand merci à celle ou celui qui m'aidera. Bon après-midi à tous.
Charly
Salut Charly,
2 clic sur This workbook en projet et ceci à coller
ce code ne fait pas la différence si tu double clic hors de la plage A1:D12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
[E3] = Selection.Value
End Sub
"Charly" <Charly@discussions.microsoft.com> a écrit dans le message news:
9C57526C-B7A5-456E-9551-293718CC7E9A@microsoft.com...
Bonjour,
Qui aurait l'amabilité de bien vouloir m'indiquer la macro suivante:
J'ai des infos dans les cellules a1:d12.
En cliquant deux fois côté gauche de la souris sur une de ces cellules, je
souhaite obtenir la valeur de la cellule en E3.
Simple pour le pro, dur pour l'amateur; alors un grand merci à celle ou
celui qui m'aidera.
Bon après-midi à tous.
Salut Charly, 2 clic sur This workbook en projet et ceci à coller ce code ne fait pas la différence si tu double clic hors de la plage A1:D12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) [E3] = Selection.Value End Sub
"Charly" a écrit dans le message news:
Bonjour,
Qui aurait l'amabilité de bien vouloir m'indiquer la macro suivante:
J'ai des infos dans les cellules a1:d12. En cliquant deux fois côté gauche de la souris sur une de ces cellules, je souhaite obtenir la valeur de la cellule en E3.
Simple pour le pro, dur pour l'amateur; alors un grand merci à celle ou celui qui m'aidera. Bon après-midi à tous.
