Bonsoir et merci à l'avance de votre aide.
Sur une feuille excel en case B1 j’importe d’un site externe une cotation
qui change automatiquement en temps réel
En cliquant 2 fois dessus B1, je désire que la cotation qui y figure à ce
moment là apparaisse dans la case C1
SVP comment faire Merci, en vous précisant que je suis novice....
Encore merci.
Bonsoir et merci à l'avance de votre aide.
Sur une feuille excel en case B1 j’importe d’un site externe une cotation
qui change automatiquement en temps réel
En cliquant 2 fois dessus B1, je désire que la cotation qui y figure à ce
moment là apparaisse dans la case C1
SVP comment faire Merci, en vous précisant que je suis novice....
Encore merci.
Bonsoir et merci à l'avance de votre aide.
Sur une feuille excel en case B1 j’importe d’un site externe une cotation
qui change automatiquement en temps réel
En cliquant 2 fois dessus B1, je désire que la cotation qui y figure à ce
moment là apparaisse dans la case C1
SVP comment faire Merci, en vous précisant que je suis novice....
Encore merci.
Bonsoir,
Clic droit sur l'onglet de la feuille, et choisis "Visualiser le code".
Dans le module associé à la feuille, qui apparaît alors, colle le code
suivant :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "B1" Then
Range("C1") = Target
End If
End Sub
Cela fonctionnera uniquement avec un double clic sur la cellule B1.
En cas d'insertion de ligne(s) ou de colonne(s), cela s'appliquera
toujours à B1, mais si suite à l'insertion de cellules, l'ancienne
cellule B1 a été déplacée.
Pour que cela s'applique à toutes les cellules de B1 à B100 :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect(Target, Range("B1:B100")) Is Nothing Then
Target.Offset(0, 1) = Target
End If
End Sub
Pour que la plage devant avoir ce comportement en cas de double-clic
reste active même en cas d'insertion (ou de suppression) de cellules,
la nommer et utiliser le nom ("Source" dans l'exemple ci-dessous) :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect(Target, Range("Source")) Is Nothing Then
Target.Offset(0, 1) = Target
End If
End SubBonsoir et merci à l'avance de votre aide.
Sur une feuille excel en case B1 j’importe d’un site externe une cotation
qui change automatiquement en temps réel
En cliquant 2 fois dessus B1, je désire que la cotation qui y figure à ce
moment là apparaisse dans la case C1
SVP comment faire Merci, en vous précisant que je suis novice....
Encore merci.
--
Cordialement,
Michel Gaboly
www.gaboly.com
Bonsoir,
Clic droit sur l'onglet de la feuille, et choisis "Visualiser le code".
Dans le module associé à la feuille, qui apparaît alors, colle le code
suivant :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "B1" Then
Range("C1") = Target
End If
End Sub
Cela fonctionnera uniquement avec un double clic sur la cellule B1.
En cas d'insertion de ligne(s) ou de colonne(s), cela s'appliquera
toujours à B1, mais si suite à l'insertion de cellules, l'ancienne
cellule B1 a été déplacée.
Pour que cela s'applique à toutes les cellules de B1 à B100 :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect(Target, Range("B1:B100")) Is Nothing Then
Target.Offset(0, 1) = Target
End If
End Sub
Pour que la plage devant avoir ce comportement en cas de double-clic
reste active même en cas d'insertion (ou de suppression) de cellules,
la nommer et utiliser le nom ("Source" dans l'exemple ci-dessous) :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect(Target, Range("Source")) Is Nothing Then
Target.Offset(0, 1) = Target
End If
End Sub
Bonsoir et merci à l'avance de votre aide.
Sur une feuille excel en case B1 j’importe d’un site externe une cotation
qui change automatiquement en temps réel
En cliquant 2 fois dessus B1, je désire que la cotation qui y figure à ce
moment là apparaisse dans la case C1
SVP comment faire Merci, en vous précisant que je suis novice....
Encore merci.
--
Cordialement,
Michel Gaboly
www.gaboly.com
Bonsoir,
Clic droit sur l'onglet de la feuille, et choisis "Visualiser le code".
Dans le module associé à la feuille, qui apparaît alors, colle le code
suivant :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "B1" Then
Range("C1") = Target
End If
End Sub
Cela fonctionnera uniquement avec un double clic sur la cellule B1.
En cas d'insertion de ligne(s) ou de colonne(s), cela s'appliquera
toujours à B1, mais si suite à l'insertion de cellules, l'ancienne
cellule B1 a été déplacée.
Pour que cela s'applique à toutes les cellules de B1 à B100 :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect(Target, Range("B1:B100")) Is Nothing Then
Target.Offset(0, 1) = Target
End If
End Sub
Pour que la plage devant avoir ce comportement en cas de double-clic
reste active même en cas d'insertion (ou de suppression) de cellules,
la nommer et utiliser le nom ("Source" dans l'exemple ci-dessous) :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect(Target, Range("Source")) Is Nothing Then
Target.Offset(0, 1) = Target
End If
End SubBonsoir et merci à l'avance de votre aide.
Sur une feuille excel en case B1 j’importe d’un site externe une cotation
qui change automatiquement en temps réel
En cliquant 2 fois dessus B1, je désire que la cotation qui y figure à ce
moment là apparaisse dans la case C1
SVP comment faire Merci, en vous précisant que je suis novice....
Encore merci.
--
Cordialement,
Michel Gaboly
www.gaboly.com
Bonsoir,
Désolé de ne pas t’avoir répondu plus rapidement, je rentre seulement.
Merci bien pour ta réponse.
Ayant modifié la présentation de ma feuille, j’ai remplacé B1 par N6 et
C1 par N7 et j’ai appliqué ta formule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "N6" Then
Range("N7") = Target
End If
End Sub
En double cliquant N6, s’ouvre N6 et apparaît la formule d’importation dans N6
mais rien n’est reporté en N7....
Quelle est ta solution sachant qu’on peut utiliser qu’un Clic.
Ayant amélioré ma présentation il faudrait qu’avec 1 clic
Sur N6 le nombre en N6 apparaisse en N7
Sur O6 le nombre en O6 apparaisse en O7
Sur N13 le nombre en N13 apparaisse en N14
Sur O13 le nombre en O13 apparaisse en O14
Sur N21 le nombre en N21 apparaisse en N22
Sur O21 le nombre en O21 apparaisse en O22
Sur N28 le nombre en N28 apparaisse en N29
Sur 028 le nombre en O28 apparaisse en O29
Encore merci et désolé d’abuser de ton savoir
Cordialement
A.Bouak
Bonsoir,
Désolé de ne pas t’avoir répondu plus rapidement, je rentre seulement.
Merci bien pour ta réponse.
Ayant modifié la présentation de ma feuille, j’ai remplacé B1 par N6 et
C1 par N7 et j’ai appliqué ta formule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "N6" Then
Range("N7") = Target
End If
End Sub
En double cliquant N6, s’ouvre N6 et apparaît la formule d’importation dans N6
mais rien n’est reporté en N7....
Quelle est ta solution sachant qu’on peut utiliser qu’un Clic.
Ayant amélioré ma présentation il faudrait qu’avec 1 clic
Sur N6 le nombre en N6 apparaisse en N7
Sur O6 le nombre en O6 apparaisse en O7
Sur N13 le nombre en N13 apparaisse en N14
Sur O13 le nombre en O13 apparaisse en O14
Sur N21 le nombre en N21 apparaisse en N22
Sur O21 le nombre en O21 apparaisse en O22
Sur N28 le nombre en N28 apparaisse en N29
Sur 028 le nombre en O28 apparaisse en O29
Encore merci et désolé d’abuser de ton savoir
Cordialement
A.Bouak
bouak@hotmail.com
Bonsoir,
Désolé de ne pas t’avoir répondu plus rapidement, je rentre seulement.
Merci bien pour ta réponse.
Ayant modifié la présentation de ma feuille, j’ai remplacé B1 par N6 et
C1 par N7 et j’ai appliqué ta formule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "N6" Then
Range("N7") = Target
End If
End Sub
En double cliquant N6, s’ouvre N6 et apparaît la formule d’importation dans N6
mais rien n’est reporté en N7....
Quelle est ta solution sachant qu’on peut utiliser qu’un Clic.
Ayant amélioré ma présentation il faudrait qu’avec 1 clic
Sur N6 le nombre en N6 apparaisse en N7
Sur O6 le nombre en O6 apparaisse en O7
Sur N13 le nombre en N13 apparaisse en N14
Sur O13 le nombre en O13 apparaisse en O14
Sur N21 le nombre en N21 apparaisse en N22
Sur O21 le nombre en O21 apparaisse en O22
Sur N28 le nombre en N28 apparaisse en N29
Sur 028 le nombre en O28 apparaisse en O29
Encore merci et désolé d’abuser de ton savoir
Cordialement
A.Bouak
Bonsoir,
Désolé de ne pas t’avoir répondu plus rapidement, je rentre seulement.
Merci bien pour ta réponse.
Ayant modifié la présentation de ma feuille, j’ai remplacé B1 par N6 et
C1 par N7 et j’ai appliqué ta formule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "N6" Then
Range("N7") = Target
End If
End Sub
En double cliquant N6, s’ouvre N6 et apparaît la formule d’importation dans N6
mais rien n’est reporté en N7....
Quelle est ta solution sachant qu’on peut utiliser qu’un Clic.
Ayant amélioré ma présentation il faudrait qu’avec 1 clic
Sur N6 le nombre en N6 apparaisse en N7
Sur O6 le nombre en O6 apparaisse en O7
Sur N13 le nombre en N13 apparaisse en N14
Sur O13 le nombre en O13 apparaisse en O14
Sur N21 le nombre en N21 apparaisse en N22
Sur O21 le nombre en O21 apparaisse en O22
Sur N28 le nombre en N28 apparaisse en N29
Sur 028 le nombre en O28 apparaisse en O29
Encore merci et désolé d’abuser de ton savoir
Cordialement
A.Bouak
Bonsoir,
Désolé de ne pas t’avoir répondu plus rapidement, je rentre seulement.
Merci bien pour ta réponse.
Ayant modifié la présentation de ma feuille, j’ai remplacé B1 par N6 et
C1 par N7 et j’ai appliqué ta formule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "N6" Then
Range("N7") = Target
End If
End Sub
En double cliquant N6, s’ouvre N6 et apparaît la formule d’importation dans N6
mais rien n’est reporté en N7....
Quelle est ta solution sachant qu’on peut utiliser qu’un Clic.
Ayant amélioré ma présentation il faudrait qu’avec 1 clic
Sur N6 le nombre en N6 apparaisse en N7
Sur O6 le nombre en O6 apparaisse en O7
Sur N13 le nombre en N13 apparaisse en N14
Sur O13 le nombre en O13 apparaisse en O14
Sur N21 le nombre en N21 apparaisse en N22
Sur O21 le nombre en O21 apparaisse en O22
Sur N28 le nombre en N28 apparaisse en N29
Sur 028 le nombre en O28 apparaisse en O29
Encore merci et désolé d’abuser de ton savoir
Cordialement
A.Bouak
bouak@hotmail.com
Bonsoir,
Désolé de ne pas t’avoir répondu plus rapidement, je rentre seulement.
Merci bien pour ta réponse.
Ayant modifié la présentation de ma feuille, j’ai remplacé B1 par N6 et
C1 par N7 et j’ai appliqué ta formule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "N6" Then
Range("N7") = Target
End If
End Sub
En double cliquant N6, s’ouvre N6 et apparaît la formule d’importation dans N6
mais rien n’est reporté en N7....
Quelle est ta solution sachant qu’on peut utiliser qu’un Clic.
Ayant amélioré ma présentation il faudrait qu’avec 1 clic
Sur N6 le nombre en N6 apparaisse en N7
Sur O6 le nombre en O6 apparaisse en O7
Sur N13 le nombre en N13 apparaisse en N14
Sur O13 le nombre en O13 apparaisse en O14
Sur N21 le nombre en N21 apparaisse en N22
Sur O21 le nombre en O21 apparaisse en O22
Sur N28 le nombre en N28 apparaisse en N29
Sur 028 le nombre en O28 apparaisse en O29
Encore merci et désolé d’abuser de ton savoir
Cordialement
A.Bouak
Bonsoir,
Le code modifié avec N6 et N7 fonctionne très bien chez moi. Est-ce que
tu as bien mis le code dans le module associé à la feuille, PAS dans un
module normal ?Bonsoir,
Désolé de ne pas t’avoir répondu plus rapidement, je rentre seulement.
Merci bien pour ta réponse.
Ayant modifié la présentation de ma feuille, j’ai remplacé B1 par N6 et
C1 par N7 et j’ai appliqué ta formule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "N6" Then
Range("N7") = Target
End If
End Sub
En double cliquant N6, s’ouvre N6 et apparaît la formule d’importation dans N6
mais rien n’est reporté en N7....
Quelle est ta solution sachant qu’on peut utiliser qu’un Clic.
Ayant amélioré ma présentation il faudrait qu’avec 1 clic
Sur N6 le nombre en N6 apparaisse en N7
Sur O6 le nombre en O6 apparaisse en O7
Sur N13 le nombre en N13 apparaisse en N14
Sur O13 le nombre en O13 apparaisse en O14
Sur N21 le nombre en N21 apparaisse en N22
Sur O21 le nombre en O21 apparaisse en O22
Sur N28 le nombre en N28 apparaisse en N29
Sur 028 le nombre en O28 apparaisse en O29
Encore merci et désolé d’abuser de ton savoir
Cordialement
A.Bouak
--
Cordialement,
Michel Gaboly
www.gaboly.com
Bonsoir,
Le code modifié avec N6 et N7 fonctionne très bien chez moi. Est-ce que
tu as bien mis le code dans le module associé à la feuille, PAS dans un
module normal ?
Bonsoir,
Désolé de ne pas t’avoir répondu plus rapidement, je rentre seulement.
Merci bien pour ta réponse.
Ayant modifié la présentation de ma feuille, j’ai remplacé B1 par N6 et
C1 par N7 et j’ai appliqué ta formule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "N6" Then
Range("N7") = Target
End If
End Sub
En double cliquant N6, s’ouvre N6 et apparaît la formule d’importation dans N6
mais rien n’est reporté en N7....
Quelle est ta solution sachant qu’on peut utiliser qu’un Clic.
Ayant amélioré ma présentation il faudrait qu’avec 1 clic
Sur N6 le nombre en N6 apparaisse en N7
Sur O6 le nombre en O6 apparaisse en O7
Sur N13 le nombre en N13 apparaisse en N14
Sur O13 le nombre en O13 apparaisse en O14
Sur N21 le nombre en N21 apparaisse en N22
Sur O21 le nombre en O21 apparaisse en O22
Sur N28 le nombre en N28 apparaisse en N29
Sur 028 le nombre en O28 apparaisse en O29
Encore merci et désolé d’abuser de ton savoir
Cordialement
A.Bouak
bouak@hotmail.com
--
Cordialement,
Michel Gaboly
www.gaboly.com
Bonsoir,
Le code modifié avec N6 et N7 fonctionne très bien chez moi. Est-ce que
tu as bien mis le code dans le module associé à la feuille, PAS dans un
module normal ?Bonsoir,
Désolé de ne pas t’avoir répondu plus rapidement, je rentre seulement.
Merci bien pour ta réponse.
Ayant modifié la présentation de ma feuille, j’ai remplacé B1 par N6 et
C1 par N7 et j’ai appliqué ta formule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "N6" Then
Range("N7") = Target
End If
End Sub
En double cliquant N6, s’ouvre N6 et apparaît la formule d’importation dans N6
mais rien n’est reporté en N7....
Quelle est ta solution sachant qu’on peut utiliser qu’un Clic.
Ayant amélioré ma présentation il faudrait qu’avec 1 clic
Sur N6 le nombre en N6 apparaisse en N7
Sur O6 le nombre en O6 apparaisse en O7
Sur N13 le nombre en N13 apparaisse en N14
Sur O13 le nombre en O13 apparaisse en O14
Sur N21 le nombre en N21 apparaisse en N22
Sur O21 le nombre en O21 apparaisse en O22
Sur N28 le nombre en N28 apparaisse en N29
Sur 028 le nombre en O28 apparaisse en O29
Encore merci et désolé d’abuser de ton savoir
Cordialement
A.Bouak
--
Cordialement,
Michel Gaboly
www.gaboly.com
bonjour,
ce qui suit copiera la valeur ( pas la forumle) dans la cellule juste en
dessous des cellules concernées
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
Set rng = Union(Range("N6:O6"), Range("N13:O13"), Range("N21:O21"),
Range("N28:O28"))
If Not Intersect(Target, rng) Is Nothing Then Target.Offset(1, 0).Value
= Target.Value
Cancel = True
End Sub
A+Bonsoir,
Désolé de ne pas t’avoir répondu plus rapidement, je rentre seulement.
Merci bien pour ta réponse.
Ayant modifié la présentation de ma feuille, j’ai remplacé B1 par N6 et
C1 par N7 et j’ai appliqué ta formule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "N6" Then
Range("N7") = Target
End If
End Sub
En double cliquant N6, s’ouvre N6 et apparaît la formule d’importation dans N6
mais rien n’est reporté en N7....
Quelle est ta solution sachant qu’on peut utiliser qu’un Clic.
Ayant amélioré ma présentation il faudrait qu’avec 1 clic
Sur N6 le nombre en N6 apparaisse en N7
Sur O6 le nombre en O6 apparaisse en O7
Sur N13 le nombre en N13 apparaisse en N14
Sur O13 le nombre en O13 apparaisse en O14
Sur N21 le nombre en N21 apparaisse en N22
Sur O21 le nombre en O21 apparaisse en O22
Sur N28 le nombre en N28 apparaisse en N29
Sur 028 le nombre en O28 apparaisse en O29
Encore merci et désolé d’abuser de ton savoir
Cordialement
A.Bouak
bonjour,
ce qui suit copiera la valeur ( pas la forumle) dans la cellule juste en
dessous des cellules concernées
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
Set rng = Union(Range("N6:O6"), Range("N13:O13"), Range("N21:O21"),
Range("N28:O28"))
If Not Intersect(Target, rng) Is Nothing Then Target.Offset(1, 0).Value
= Target.Value
Cancel = True
End Sub
A+
Bonsoir,
Désolé de ne pas t’avoir répondu plus rapidement, je rentre seulement.
Merci bien pour ta réponse.
Ayant modifié la présentation de ma feuille, j’ai remplacé B1 par N6 et
C1 par N7 et j’ai appliqué ta formule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "N6" Then
Range("N7") = Target
End If
End Sub
En double cliquant N6, s’ouvre N6 et apparaît la formule d’importation dans N6
mais rien n’est reporté en N7....
Quelle est ta solution sachant qu’on peut utiliser qu’un Clic.
Ayant amélioré ma présentation il faudrait qu’avec 1 clic
Sur N6 le nombre en N6 apparaisse en N7
Sur O6 le nombre en O6 apparaisse en O7
Sur N13 le nombre en N13 apparaisse en N14
Sur O13 le nombre en O13 apparaisse en O14
Sur N21 le nombre en N21 apparaisse en N22
Sur O21 le nombre en O21 apparaisse en O22
Sur N28 le nombre en N28 apparaisse en N29
Sur 028 le nombre en O28 apparaisse en O29
Encore merci et désolé d’abuser de ton savoir
Cordialement
A.Bouak
bouak@hotmail.com
bonjour,
ce qui suit copiera la valeur ( pas la forumle) dans la cellule juste en
dessous des cellules concernées
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
Set rng = Union(Range("N6:O6"), Range("N13:O13"), Range("N21:O21"),
Range("N28:O28"))
If Not Intersect(Target, rng) Is Nothing Then Target.Offset(1, 0).Value
= Target.Value
Cancel = True
End Sub
A+Bonsoir,
Désolé de ne pas t’avoir répondu plus rapidement, je rentre seulement.
Merci bien pour ta réponse.
Ayant modifié la présentation de ma feuille, j’ai remplacé B1 par N6 et
C1 par N7 et j’ai appliqué ta formule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Target.Address(0, 0) = "N6" Then
Range("N7") = Target
End If
End Sub
En double cliquant N6, s’ouvre N6 et apparaît la formule d’importation dans N6
mais rien n’est reporté en N7....
Quelle est ta solution sachant qu’on peut utiliser qu’un Clic.
Ayant amélioré ma présentation il faudrait qu’avec 1 clic
Sur N6 le nombre en N6 apparaisse en N7
Sur O6 le nombre en O6 apparaisse en O7
Sur N13 le nombre en N13 apparaisse en N14
Sur O13 le nombre en O13 apparaisse en O14
Sur N21 le nombre en N21 apparaisse en N22
Sur O21 le nombre en O21 apparaisse en O22
Sur N28 le nombre en N28 apparaisse en N29
Sur 028 le nombre en O28 apparaisse en O29
Encore merci et désolé d’abuser de ton savoir
Cordialement
A.Bouak
