exécution d'une macro si changement dans une colonne
4 réponses
Sky
Bonjour à tous,
voici mon problème :
j'ai une colonne composée de cellules avec une règle de validation (liste
nommée sur une autre feuille)
Lorsque je sélectionne un élément de la liste, j'aimerais recopier des
éléments fixes dans la ligne où a été opéré le changement.
J'ai posé le code suivant, mais mon problème ressort au niveau de
l'emplacement où doit être recopier les cellules.
Private Sub Worksheet_Change(ByVal target As Range)
'Colonne à surveiller
If target.Column = 1 Then
With ActiveWorksheet
Range("F1:AT1").Select
Selection.Copy
.Cells(target, 6).Select
ActiveSheet.Paste
Application.CutCopyMode = False
.Cells(target, 6).Select
End With
End If
End Sub
=> Comment puisse-je identifier les références de la cellule "Target" ?
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
garnote
Bonjour Sky,
Ai-je bien compris ta question ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then [F1:AT1].Copy Target.Offset(0, 1) End Sub
Serge
"Sky" a écrit dans le message de news: 430c72d9$0$17201$
Bonjour à tous,
voici mon problème :
j'ai une colonne composée de cellules avec une règle de validation (liste nommée sur une autre feuille) Lorsque je sélectionne un élément de la liste, j'aimerais recopier des éléments fixes dans la ligne où a été opéré le changement.
J'ai posé le code suivant, mais mon problème ressort au niveau de l'emplacement où doit être recopier les cellules.
Private Sub Worksheet_Change(ByVal target As Range)
'Colonne à surveiller If target.Column = 1 Then
With ActiveWorksheet
Range("F1:AT1").Select Selection.Copy .Cells(target, 6).Select ActiveSheet.Paste Application.CutCopyMode = False .Cells(target, 6).Select End With End If
End Sub
=> Comment puisse-je identifier les références de la cellule "Target" ?
Merci pour votre aide
Bonjour Sky,
Ai-je bien compris ta question ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then [F1:AT1].Copy Target.Offset(0, 1)
End Sub
Serge
"Sky" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
430c72d9$0$17201$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
voici mon problème :
j'ai une colonne composée de cellules avec une règle de validation (liste
nommée sur une autre feuille)
Lorsque je sélectionne un élément de la liste, j'aimerais recopier des
éléments fixes dans la ligne où a été opéré le changement.
J'ai posé le code suivant, mais mon problème ressort au niveau de
l'emplacement où doit être recopier les cellules.
Private Sub Worksheet_Change(ByVal target As Range)
'Colonne à surveiller
If target.Column = 1 Then
With ActiveWorksheet
Range("F1:AT1").Select
Selection.Copy
.Cells(target, 6).Select
ActiveSheet.Paste
Application.CutCopyMode = False
.Cells(target, 6).Select
End With
End If
End Sub
=> Comment puisse-je identifier les références de la cellule "Target" ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then [F1:AT1].Copy Target.Offset(0, 1) End Sub
Serge
"Sky" a écrit dans le message de news: 430c72d9$0$17201$
Bonjour à tous,
voici mon problème :
j'ai une colonne composée de cellules avec une règle de validation (liste nommée sur une autre feuille) Lorsque je sélectionne un élément de la liste, j'aimerais recopier des éléments fixes dans la ligne où a été opéré le changement.
J'ai posé le code suivant, mais mon problème ressort au niveau de l'emplacement où doit être recopier les cellules.
Private Sub Worksheet_Change(ByVal target As Range)
'Colonne à surveiller If target.Column = 1 Then
With ActiveWorksheet
Range("F1:AT1").Select Selection.Copy .Cells(target, 6).Select ActiveSheet.Paste Application.CutCopyMode = False .Cells(target, 6).Select End With End If
End Sub
=> Comment puisse-je identifier les références de la cellule "Target" ?
Merci pour votre aide
anonymousA
bonjour,
en complément de la réponse de Garnote, activeworksheet n'existe pas , il s'agit de activesheet
A+
Bonjour à tous,
voici mon problème :
j'ai une colonne composée de cellules avec une règle de validation (liste nommée sur une autre feuille) Lorsque je sélectionne un élément de la liste, j'aimerais recopier des éléments fixes dans la ligne où a été opéré le changement.
J'ai posé le code suivant, mais mon problème ressort au niveau de l'emplacement où doit être recopier les cellules.
Private Sub Worksheet_Change(ByVal target As Range)
'Colonne à surveiller If target.Column = 1 Then
With ActiveWorksheet
Range("F1:AT1").Select Selection.Copy .Cells(target, 6).Select ActiveSheet.Paste Application.CutCopyMode = False .Cells(target, 6).Select End With End If
End Sub
=> Comment puisse-je identifier les références de la cellule "Target" ?
Merci pour votre aide
bonjour,
en complément de la réponse de Garnote, activeworksheet n'existe pas , il
s'agit de activesheet
A+
Bonjour à tous,
voici mon problème :
j'ai une colonne composée de cellules avec une règle de validation (liste
nommée sur une autre feuille)
Lorsque je sélectionne un élément de la liste, j'aimerais recopier des
éléments fixes dans la ligne où a été opéré le changement.
J'ai posé le code suivant, mais mon problème ressort au niveau de
l'emplacement où doit être recopier les cellules.
Private Sub Worksheet_Change(ByVal target As Range)
'Colonne à surveiller
If target.Column = 1 Then
With ActiveWorksheet
Range("F1:AT1").Select
Selection.Copy
.Cells(target, 6).Select
ActiveSheet.Paste
Application.CutCopyMode = False
.Cells(target, 6).Select
End With
End If
End Sub
=> Comment puisse-je identifier les références de la cellule "Target" ?
en complément de la réponse de Garnote, activeworksheet n'existe pas , il s'agit de activesheet
A+
Bonjour à tous,
voici mon problème :
j'ai une colonne composée de cellules avec une règle de validation (liste nommée sur une autre feuille) Lorsque je sélectionne un élément de la liste, j'aimerais recopier des éléments fixes dans la ligne où a été opéré le changement.
J'ai posé le code suivant, mais mon problème ressort au niveau de l'emplacement où doit être recopier les cellules.
Private Sub Worksheet_Change(ByVal target As Range)
'Colonne à surveiller If target.Column = 1 Then
With ActiveWorksheet
Range("F1:AT1").Select Selection.Copy .Cells(target, 6).Select ActiveSheet.Paste Application.CutCopyMode = False .Cells(target, 6).Select End With End If
End Sub
=> Comment puisse-je identifier les références de la cellule "Target" ?
Merci pour votre aide
garnote
Viens de remarquer le 6 dans ta macro. Je crois que tu veux copier F1:T1 sur la même ligne que ta cible et 6 colonnes à droite. Si c'est le cas, essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then [F1:AT1].Copy Target.Offset(0, 6) End Sub
Serge
"garnote" a écrit dans le message de news: e83J8$
Bonjour Sky,
Ai-je bien compris ta question ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then [F1:AT1].Copy Target.Offset(0, 1) End Sub
Serge
"Sky" a écrit dans le message de news: 430c72d9$0$17201$
Bonjour à tous,
voici mon problème :
j'ai une colonne composée de cellules avec une règle de validation (liste nommée sur une autre feuille) Lorsque je sélectionne un élément de la liste, j'aimerais recopier des éléments fixes dans la ligne où a été opéré le changement.
J'ai posé le code suivant, mais mon problème ressort au niveau de l'emplacement où doit être recopier les cellules.
Private Sub Worksheet_Change(ByVal target As Range)
'Colonne à surveiller If target.Column = 1 Then
With ActiveWorksheet
Range("F1:AT1").Select Selection.Copy .Cells(target, 6).Select ActiveSheet.Paste Application.CutCopyMode = False .Cells(target, 6).Select End With End If
End Sub
=> Comment puisse-je identifier les références de la cellule "Target" ?
Merci pour votre aide
Viens de remarquer le 6 dans ta macro.
Je crois que tu veux copier F1:T1 sur la même ligne
que ta cible et 6 colonnes à droite.
Si c'est le cas, essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then [F1:AT1].Copy Target.Offset(0, 6)
End Sub
Serge
"garnote" <rien@absent.com> a écrit dans le message de news:
e83J8$KqFHA.2592@TK2MSFTNGP12.phx.gbl...
Bonjour Sky,
Ai-je bien compris ta question ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then [F1:AT1].Copy Target.Offset(0, 1)
End Sub
Serge
"Sky" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
430c72d9$0$17201$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
voici mon problème :
j'ai une colonne composée de cellules avec une règle de validation (liste
nommée sur une autre feuille)
Lorsque je sélectionne un élément de la liste, j'aimerais recopier des
éléments fixes dans la ligne où a été opéré le changement.
J'ai posé le code suivant, mais mon problème ressort au niveau de
l'emplacement où doit être recopier les cellules.
Private Sub Worksheet_Change(ByVal target As Range)
'Colonne à surveiller
If target.Column = 1 Then
With ActiveWorksheet
Range("F1:AT1").Select
Selection.Copy
.Cells(target, 6).Select
ActiveSheet.Paste
Application.CutCopyMode = False
.Cells(target, 6).Select
End With
End If
End Sub
=> Comment puisse-je identifier les références de la cellule "Target" ?
Viens de remarquer le 6 dans ta macro. Je crois que tu veux copier F1:T1 sur la même ligne que ta cible et 6 colonnes à droite. Si c'est le cas, essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then [F1:AT1].Copy Target.Offset(0, 6) End Sub
Serge
"garnote" a écrit dans le message de news: e83J8$
Bonjour Sky,
Ai-je bien compris ta question ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then [F1:AT1].Copy Target.Offset(0, 1) End Sub
Serge
"Sky" a écrit dans le message de news: 430c72d9$0$17201$
Bonjour à tous,
voici mon problème :
j'ai une colonne composée de cellules avec une règle de validation (liste nommée sur une autre feuille) Lorsque je sélectionne un élément de la liste, j'aimerais recopier des éléments fixes dans la ligne où a été opéré le changement.
J'ai posé le code suivant, mais mon problème ressort au niveau de l'emplacement où doit être recopier les cellules.
Private Sub Worksheet_Change(ByVal target As Range)
'Colonne à surveiller If target.Column = 1 Then
With ActiveWorksheet
Range("F1:AT1").Select Selection.Copy .Cells(target, 6).Select ActiveSheet.Paste Application.CutCopyMode = False .Cells(target, 6).Select End With End If
End Sub
=> Comment puisse-je identifier les références de la cellule "Target" ?
Merci pour votre aide
Sky
re
super, merci à vous ca fonctionne impec
@+
"Sky" a écrit dans le message de news: 430c72d9$0$17201$
Bonjour à tous,
voici mon problème :
j'ai une colonne composée de cellules avec une règle de validation (liste nommée sur une autre feuille) Lorsque je sélectionne un élément de la liste, j'aimerais recopier des éléments fixes dans la ligne où a été opéré le changement.
J'ai posé le code suivant, mais mon problème ressort au niveau de l'emplacement où doit être recopier les cellules.
Private Sub Worksheet_Change(ByVal target As Range)
'Colonne à surveiller If target.Column = 1 Then
With ActiveWorksheet
Range("F1:AT1").Select Selection.Copy .Cells(target, 6).Select ActiveSheet.Paste Application.CutCopyMode = False .Cells(target, 6).Select End With End If
End Sub
=> Comment puisse-je identifier les références de la cellule "Target" ?
Merci pour votre aide
re
super, merci à vous ca fonctionne impec
@+
"Sky" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
430c72d9$0$17201$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
voici mon problème :
j'ai une colonne composée de cellules avec une règle de validation (liste
nommée sur une autre feuille)
Lorsque je sélectionne un élément de la liste, j'aimerais recopier des
éléments fixes dans la ligne où a été opéré le changement.
J'ai posé le code suivant, mais mon problème ressort au niveau de
l'emplacement où doit être recopier les cellules.
Private Sub Worksheet_Change(ByVal target As Range)
'Colonne à surveiller
If target.Column = 1 Then
With ActiveWorksheet
Range("F1:AT1").Select
Selection.Copy
.Cells(target, 6).Select
ActiveSheet.Paste
Application.CutCopyMode = False
.Cells(target, 6).Select
End With
End If
End Sub
=> Comment puisse-je identifier les références de la cellule "Target" ?
"Sky" a écrit dans le message de news: 430c72d9$0$17201$
Bonjour à tous,
voici mon problème :
j'ai une colonne composée de cellules avec une règle de validation (liste nommée sur une autre feuille) Lorsque je sélectionne un élément de la liste, j'aimerais recopier des éléments fixes dans la ligne où a été opéré le changement.
J'ai posé le code suivant, mais mon problème ressort au niveau de l'emplacement où doit être recopier les cellules.
Private Sub Worksheet_Change(ByVal target As Range)
'Colonne à surveiller If target.Column = 1 Then
With ActiveWorksheet
Range("F1:AT1").Select Selection.Copy .Cells(target, 6).Select ActiveSheet.Paste Application.CutCopyMode = False .Cells(target, 6).Select End With End If
End Sub
=> Comment puisse-je identifier les références de la cellule "Target" ?