Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel macro ou évènement ?

macro ou évènement ?

4 réponses
Avatar
Michèle
Bonjour,

Soit la macro suivante :
Sub collage_heure()
Dim mois As Variant
mois = [I1]
Range("G6").Select
Selection.Copy
Sheets("Feuil2").Select
Cells(mois, 2).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
qui consiste à coller le contenu de G6 dans une autre feuille à un endroit
précis.
Cette macro doit être exécutée à la demande.
Comment la transformer en evènement qui, si je ne me trompe, s'éxécute alors
automatiquement, par exemple dès que l'on modifie le contenu de G6
Bonne journée

Michèle
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Papou
Bonjour
Clic droit sur l'onglet de ta feuille, visualiser le code et coller les
lignes ci-dessous
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mois As Variant
mois = [I1]
If Target.Address = "$G$6" Then
If Target.Value <> "" And mois <> "" Then
Sheets("Feuil2").Cells(mois, 1).Value = Target.Value
End If
End If
End Sub

Cordialement
Pascal


"Michèle" a écrit dans le message de news:
#MLI##
Bonjour,

Soit la macro suivante :
Sub collage_heure()
Dim mois As Variant
mois = [I1]
Range("G6").Select
Selection.Copy
Sheets("Feuil2").Select
Cells(mois, 2).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
qui consiste à coller le contenu de G6 dans une autre feuille à un endroit
précis.
Cette macro doit être exécutée à la demande.
Comment la transformer en evènement qui, si je ne me trompe, s'éxécute
alors

automatiquement, par exemple dès que l'on modifie le contenu de G6
Bonne journée

Michèle




Avatar
Michèle
Bonjour,
ça marche pas ;-((((((
Je saisis la nouvelle valeur en G6 mais il ne se passe rien.
A+
Michèle

"Papou" a écrit dans le message de news:

Bonjour
Clic droit sur l'onglet de ta feuille, visualiser le code et coller les
lignes ci-dessous
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mois As Variant
mois = [I1]
If Target.Address = "$G$6" Then
If Target.Value <> "" And mois <> "" Then
Sheets("Feuil2").Cells(mois, 1).Value = Target.Value
End If
End If
End Sub

Cordialement
Pascal


"Michèle" a écrit dans le message de news:
#MLI##
Bonjour,

Soit la macro suivante :
Sub collage_heure()
Dim mois As Variant
mois = [I1]
Range("G6").Select
Selection.Copy
Sheets("Feuil2").Select
Cells(mois, 2).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
qui consiste à coller le contenu de G6 dans une autre feuille à un
endroit


précis.
Cette macro doit être exécutée à la demande.
Comment la transformer en evènement qui, si je ne me trompe, s'éxécute
alors

automatiquement, par exemple dès que l'on modifie le contenu de G6
Bonne journée

Michèle








Avatar
papou
Michèle
As-tu bien placé le code dans le code de la feuille où est saisie la valeur
en G6 ?
As-tu vérifié qu'une valeur est bien présente en I1 ?
Ces deux cellules se trouvent bien sur la même feuille ? (!)

Sinon, je viens de voir qu'une petite erreur s'est glissée, il faut que tu
corriges la ligne :
Sheets("Feuil2").Cells(mois, 1).Value = Target.Value
par
Sheets("Feuil2").Cells(mois, 2).Value = Target.Value
puisque tu veux recopier la valeur dans la 2ème colonne

Cordialement
Pascal


"Michèle" a écrit dans le message de
news:
Bonjour,
ça marche pas ;-((((((
Je saisis la nouvelle valeur en G6 mais il ne se passe rien.
A+
Michèle

"Papou" a écrit dans le message de news:

Bonjour
Clic droit sur l'onglet de ta feuille, visualiser le code et coller les
lignes ci-dessous
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mois As Variant
mois = [I1]
If Target.Address = "$G$6" Then
If Target.Value <> "" And mois <> "" Then
Sheets("Feuil2").Cells(mois, 2).Value = Target.Value
End If
End If
End Sub

Cordialement
Pascal


"Michèle" a écrit dans le message de news:
#MLI##
Bonjour,

Soit la macro suivante :
Sub collage_heure()
Dim mois As Variant
mois = [I1]
Range("G6").Select
Selection.Copy
Sheets("Feuil2").Select
Cells(mois, 2).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
qui consiste à coller le contenu de G6 dans une autre feuille à un
endroit


précis.
Cette macro doit être exécutée à la demande.
Comment la transformer en evènement qui, si je ne me trompe, s'éxécute
alors

automatiquement, par exemple dès que l'on modifie le contenu de G6
Bonne journée

Michèle












Avatar
Michèle
Merci Pascal
En effet, les yeux rivés sur la colonne 2, je ne voyais pas que la copie de
l'info se faisait dans la colonne 1 !
Un très grand merci
Bonne journée

Michèle

"papou" a écrit dans le message de news:
#
Michèle
As-tu bien placé le code dans le code de la feuille où est saisie la
valeur

en G6 ?
As-tu vérifié qu'une valeur est bien présente en I1 ?
Ces deux cellules se trouvent bien sur la même feuille ? (!)

Sinon, je viens de voir qu'une petite erreur s'est glissée, il faut que tu
corriges la ligne :
Sheets("Feuil2").Cells(mois, 1).Value = Target.Value
par
Sheets("Feuil2").Cells(mois, 2).Value = Target.Value
puisque tu veux recopier la valeur dans la 2ème colonne

Cordialement
Pascal


"Michèle" a écrit dans le message de
news:
Bonjour,
ça marche pas ;-((((((
Je saisis la nouvelle valeur en G6 mais il ne se passe rien.
A+
Michèle

"Papou" a écrit dans le message de news:

Bonjour
Clic droit sur l'onglet de ta feuille, visualiser le code et coller
les



lignes ci-dessous
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mois As Variant
mois = [I1]
If Target.Address = "$G$6" Then
If Target.Value <> "" And mois <> "" Then
Sheets("Feuil2").Cells(mois, 2).Value = Target.Value
End If
End If
End Sub

Cordialement
Pascal


"Michèle" a écrit dans le message de news:
#MLI##
Bonjour,

Soit la macro suivante :
Sub collage_heure()
Dim mois As Variant
mois = [I1]
Range("G6").Select
Selection.Copy
Sheets("Feuil2").Select
Cells(mois, 2).Select
Selection.PasteSpecial Paste:=xlValues
End Sub
qui consiste à coller le contenu de G6 dans une autre feuille à un
endroit


précis.
Cette macro doit être exécutée à la demande.
Comment la transformer en evènement qui, si je ne me trompe,
s'éxécute




alors
automatiquement, par exemple dès que l'on modifie le contenu de G6
Bonne journée

Michèle