Affecter une macro qui copie une cellule vers le bas
6 réponses
Columbus
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison"
Dans la cellule A10, on retrouve le mot "bateau"
Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première
cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre
une cellule conteant déjà de l'information.
Dans mon exemple:
Copier maison de la cellule A2 à A9
Copier bateau de la cellule A11 à A22
ETC.
Merci d'avance
En passant, merci à ceux qui m'ont répondu pour mes questions précédentes,
ça marche tout le temps.
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
lSteph
Bonsoir Columbus, pas besoin de macro sélectionne la colonne Edition Atteindre(f5) Cellules Cellules Vides ok (flèche en haut, Ctrl+entrée)
'lSteph
"Columbus" a écrit dans le message de news:
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison" Dans la cellule A10, on retrouve le mot "bateau" Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre une cellule conteant déjà de l'information.
Dans mon exemple: Copier maison de la cellule A2 à A9 Copier bateau de la cellule A11 à A22 ETC.
Merci d'avance En passant, merci à ceux qui m'ont répondu pour mes questions précédentes, ça marche tout le temps.
Columbus
Bonsoir Columbus,
pas besoin de macro
sélectionne la colonne
Edition Atteindre(f5) Cellules
Cellules Vides
ok
(flèche en haut, Ctrl+entrée)
'lSteph
"Columbus" <Columbus@discussions.microsoft.com> a écrit dans le message de
news: BD06BA24-5AF3-43DF-88BB-56190ED44026@microsoft.com...
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison"
Dans la cellule A10, on retrouve le mot "bateau"
Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première
cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle
rencontre
une cellule conteant déjà de l'information.
Dans mon exemple:
Copier maison de la cellule A2 à A9
Copier bateau de la cellule A11 à A22
ETC.
Merci d'avance
En passant, merci à ceux qui m'ont répondu pour mes questions précédentes,
ça marche tout le temps.
Bonsoir Columbus, pas besoin de macro sélectionne la colonne Edition Atteindre(f5) Cellules Cellules Vides ok (flèche en haut, Ctrl+entrée)
'lSteph
"Columbus" a écrit dans le message de news:
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison" Dans la cellule A10, on retrouve le mot "bateau" Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre une cellule conteant déjà de l'information.
Dans mon exemple: Copier maison de la cellule A2 à A9 Copier bateau de la cellule A11 à A22 ETC.
Merci d'avance En passant, merci à ceux qui m'ont répondu pour mes questions précédentes, ça marche tout le temps.
Columbus
lSteph
sélectionne la colonne (si a1 est rempli sinon depuis a2 ...si a2 est rempli...
"lSteph" a écrit dans le message de news:
Bonsoir Columbus, pas besoin de macro sélectionne la colonne Edition Atteindre(f5) Cellules Cellules Vides ok
(flèche en haut, Ctrl+entrée)
'lSteph
"Columbus" a écrit dans le message de news:
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison" Dans la cellule A10, on retrouve le mot "bateau" Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre une cellule conteant déjà de l'information.
Dans mon exemple: Copier maison de la cellule A2 à A9 Copier bateau de la cellule A11 à A22 ETC.
Merci d'avance En passant, merci à ceux qui m'ont répondu pour mes questions précédentes, ça marche tout le temps.
Columbus
sélectionne la colonne
(si a1 est rempli sinon depuis a2 ...si a2 est rempli...
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eBuh7IfTGHA.5908@TK2MSFTNGP14.phx.gbl...
Bonsoir Columbus,
pas besoin de macro
sélectionne la colonne
Edition Atteindre(f5) Cellules
Cellules Vides
ok
(flèche en haut, Ctrl+entrée)
'lSteph
"Columbus" <Columbus@discussions.microsoft.com> a écrit dans le message de
news: BD06BA24-5AF3-43DF-88BB-56190ED44026@microsoft.com...
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison"
Dans la cellule A10, on retrouve le mot "bateau"
Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première
cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle
rencontre
une cellule conteant déjà de l'information.
Dans mon exemple:
Copier maison de la cellule A2 à A9
Copier bateau de la cellule A11 à A22
ETC.
Merci d'avance
En passant, merci à ceux qui m'ont répondu pour mes questions
précédentes,
ça marche tout le temps.
sélectionne la colonne (si a1 est rempli sinon depuis a2 ...si a2 est rempli...
"lSteph" a écrit dans le message de news:
Bonsoir Columbus, pas besoin de macro sélectionne la colonne Edition Atteindre(f5) Cellules Cellules Vides ok
(flèche en haut, Ctrl+entrée)
'lSteph
"Columbus" a écrit dans le message de news:
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison" Dans la cellule A10, on retrouve le mot "bateau" Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre une cellule conteant déjà de l'information.
Dans mon exemple: Copier maison de la cellule A2 à A9 Copier bateau de la cellule A11 à A22 ETC.
Merci d'avance En passant, merci à ceux qui m'ont répondu pour mes questions précédentes, ça marche tout le temps.
Columbus
Jacky
Bonsoir,
Je voudrais créer une macro qui va copier En macro....ceci peut-être:
'----------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row For Each c In Range("a1:a" & derlg) If c <> "" Then x = c Else Range(c.Address) = x End If Next End Sub '--------------- Salutations JJ
"Columbus" a écrit dans le message de news:
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison" Dans la cellule A10, on retrouve le mot "bateau" Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre une cellule conteant déjà de l'information.
Dans mon exemple: Copier maison de la cellule A2 à A9 Copier bateau de la cellule A11 à A22 ETC.
Merci d'avance En passant, merci à ceux qui m'ont répondu pour mes questions précédentes, ça marche tout le temps.
Columbus
Bonsoir,
Je voudrais créer une macro qui va copier
En macro....ceci peut-être:
'-----------
Sub jj()
derlg = Sheets("Feuil1").Range("a65536").End(3).Row
For Each c In Range("a1:a" & derlg)
If c <> "" Then
x = c
Else
Range(c.Address) = x
End If
Next
End Sub
'---------------
Salutations
JJ
"Columbus" <Columbus@discussions.microsoft.com> a écrit dans le message de
news: BD06BA24-5AF3-43DF-88BB-56190ED44026@microsoft.com...
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison"
Dans la cellule A10, on retrouve le mot "bateau"
Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première
cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle
rencontre
une cellule conteant déjà de l'information.
Dans mon exemple:
Copier maison de la cellule A2 à A9
Copier bateau de la cellule A11 à A22
ETC.
Merci d'avance
En passant, merci à ceux qui m'ont répondu pour mes questions précédentes,
ça marche tout le temps.
Je voudrais créer une macro qui va copier En macro....ceci peut-être:
'----------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row For Each c In Range("a1:a" & derlg) If c <> "" Then x = c Else Range(c.Address) = x End If Next End Sub '--------------- Salutations JJ
"Columbus" a écrit dans le message de news:
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison" Dans la cellule A10, on retrouve le mot "bateau" Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre une cellule conteant déjà de l'information.
Dans mon exemple: Copier maison de la cellule A2 à A9 Copier bateau de la cellule A11 à A22 ETC.
Merci d'avance En passant, merci à ceux qui m'ont répondu pour mes questions précédentes, ça marche tout le temps.
Columbus
Thierryp
Bonjour,
Ceci devrait le faire : la macro se lance en double cliquant sur la cellule que tu veux recopier
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) if intersect(target,range("A:A")) is nothing then exit sub ActiveCell.Select valeur = ActiveCell.Value While ActiveCell.Offset(1, 0).Value = "" ActiveCell.Offset(1, 0).Value = valeur ActiveCell.Offset(1, 0).Select Wend End Sub
Attention à la dernière cellule non vide de la colonne ....
@+ thierryp
------------------------ Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline) ------------------------
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison" Dans la cellule A10, on retrouve le mot "bateau" Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre une cellule conteant déjà de l'information.
Dans mon exemple: Copier maison de la cellule A2 à A9 Copier bateau de la cellule A11 à A22 ETC.
Merci d'avance En passant, merci à ceux qui m'ont répondu pour mes questions précédentes, ça marche tout le temps.
Columbus
Bonjour,
Ceci devrait le faire : la macro se lance en double cliquant sur la
cellule que tu veux recopier
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
if intersect(target,range("A:A")) is nothing then exit sub
ActiveCell.Select
valeur = ActiveCell.Value
While ActiveCell.Offset(1, 0).Value = ""
ActiveCell.Offset(1, 0).Value = valeur
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Attention à la dernière cellule non vide de la colonne ....
@+ thierryp
------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison"
Dans la cellule A10, on retrouve le mot "bateau"
Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première
cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre
une cellule conteant déjà de l'information.
Dans mon exemple:
Copier maison de la cellule A2 à A9
Copier bateau de la cellule A11 à A22
ETC.
Merci d'avance
En passant, merci à ceux qui m'ont répondu pour mes questions précédentes,
ça marche tout le temps.
Ceci devrait le faire : la macro se lance en double cliquant sur la cellule que tu veux recopier
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) if intersect(target,range("A:A")) is nothing then exit sub ActiveCell.Select valeur = ActiveCell.Value While ActiveCell.Offset(1, 0).Value = "" ActiveCell.Offset(1, 0).Value = valeur ActiveCell.Offset(1, 0).Select Wend End Sub
Attention à la dernière cellule non vide de la colonne ....
@+ thierryp
------------------------ Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline) ------------------------
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison" Dans la cellule A10, on retrouve le mot "bateau" Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre une cellule conteant déjà de l'information.
Dans mon exemple: Copier maison de la cellule A2 à A9 Copier bateau de la cellule A11 à A22 ETC.
Merci d'avance En passant, merci à ceux qui m'ont répondu pour mes questions précédentes, ça marche tout le temps.
Columbus
Fredo P
Bonsoir Columbus Dans le code de ta feuille Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim c As Object, Lg#, Aa$ If Selection.Count = 1 Then Application.ScreenUpdating = False Application.EnableEvents = False Aa = Cells(Target.Row, Target.Column).Offset(-1, 0).Address Lg = Range(Aa).End(3).Row If Cells(Lg, Target.Column) <> "" And Target.Value <> "" Then Aa = Range(Cells(Lg + 1, Target.Column), Cells(Target.Row - 1, Target.Column)).Address Range(Aa) = Cells(Lg, Target.Column) End If Application.EnableEvents = True End If End Sub
"Columbus" a écrit dans le message de news:
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison" Dans la cellule A10, on retrouve le mot "bateau" Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre
une cellule conteant déjà de l'information.
Dans mon exemple: Copier maison de la cellule A2 à A9 Copier bateau de la cellule A11 à A22 ETC.
Merci d'avance En passant, merci à ceux qui m'ont répondu pour mes questions précédentes, ça marche tout le temps.
Columbus
Bonsoir Columbus
Dans le code de ta feuille
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim c As Object, Lg#, Aa$
If Selection.Count = 1 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Aa = Cells(Target.Row, Target.Column).Offset(-1, 0).Address
Lg = Range(Aa).End(3).Row
If Cells(Lg, Target.Column) <> "" And Target.Value <> "" Then
Aa = Range(Cells(Lg + 1, Target.Column), Cells(Target.Row - 1,
Target.Column)).Address
Range(Aa) = Cells(Lg, Target.Column)
End If
Application.EnableEvents = True
End If
End Sub
"Columbus" <Columbus@discussions.microsoft.com> a écrit dans le message de
news:BD06BA24-5AF3-43DF-88BB-56190ED44026@microsoft.com...
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison"
Dans la cellule A10, on retrouve le mot "bateau"
Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première
cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle
rencontre
une cellule conteant déjà de l'information.
Dans mon exemple:
Copier maison de la cellule A2 à A9
Copier bateau de la cellule A11 à A22
ETC.
Merci d'avance
En passant, merci à ceux qui m'ont répondu pour mes questions précédentes,
ça marche tout le temps.
Bonsoir Columbus Dans le code de ta feuille Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim c As Object, Lg#, Aa$ If Selection.Count = 1 Then Application.ScreenUpdating = False Application.EnableEvents = False Aa = Cells(Target.Row, Target.Column).Offset(-1, 0).Address Lg = Range(Aa).End(3).Row If Cells(Lg, Target.Column) <> "" And Target.Value <> "" Then Aa = Range(Cells(Lg + 1, Target.Column), Cells(Target.Row - 1, Target.Column)).Address Range(Aa) = Cells(Lg, Target.Column) End If Application.EnableEvents = True End If End Sub
"Columbus" a écrit dans le message de news:
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison" Dans la cellule A10, on retrouve le mot "bateau" Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre
une cellule conteant déjà de l'information.
Dans mon exemple: Copier maison de la cellule A2 à A9 Copier bateau de la cellule A11 à A22 ETC.
Merci d'avance En passant, merci à ceux qui m'ont répondu pour mes questions précédentes, ça marche tout le temps.
Columbus
lSteph
Bonjour, Si on veut vraiment une macro (sur sélection)
Sub toto() Dim c As Range For Each c In Selection.Cells If IsEmpty(c) And c.Row <> 1 Then c = c.Offset(-1, 0) Next End Sub
'lSteph
"Columbus" a écrit dans le message de news:
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison" Dans la cellule A10, on retrouve le mot "bateau" Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre une cellule conteant déjà de l'information.
Dans mon exemple: Copier maison de la cellule A2 à A9 Copier bateau de la cellule A11 à A22 ETC.
Merci d'avance En passant, merci à ceux qui m'ont répondu pour mes questions précédentes, ça marche tout le temps.
Columbus
Bonjour, Si on veut vraiment une macro (sur sélection)
Sub toto()
Dim c As Range
For Each c In Selection.Cells
If IsEmpty(c) And c.Row <> 1 Then c = c.Offset(-1, 0)
Next
End Sub
'lSteph
"Columbus" <Columbus@discussions.microsoft.com> a écrit dans le message de
news: BD06BA24-5AF3-43DF-88BB-56190ED44026@microsoft.com...
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison"
Dans la cellule A10, on retrouve le mot "bateau"
Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première
cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle
rencontre
une cellule conteant déjà de l'information.
Dans mon exemple:
Copier maison de la cellule A2 à A9
Copier bateau de la cellule A11 à A22
ETC.
Merci d'avance
En passant, merci à ceux qui m'ont répondu pour mes questions précédentes,
ça marche tout le temps.
Bonjour, Si on veut vraiment une macro (sur sélection)
Sub toto() Dim c As Range For Each c In Selection.Cells If IsEmpty(c) And c.Row <> 1 Then c = c.Offset(-1, 0) Next End Sub
'lSteph
"Columbus" a écrit dans le message de news:
Bonjour à tous,
Avant de poser ma question, voici une mise en contexte:
Dans la cellule A1, on retrouve le mot "maison" Dans la cellule A10, on retrouve le mot "bateau" Et dans la cellule A23, on retrouve le mot "camion"
Je voudrais créer une macro qui va copier l'information de la première cellule "A1" dans les cellules vident suivantes jusqu'à ce qu'elle rencontre une cellule conteant déjà de l'information.
Dans mon exemple: Copier maison de la cellule A2 à A9 Copier bateau de la cellule A11 à A22 ETC.
Merci d'avance En passant, merci à ceux qui m'ont répondu pour mes questions précédentes, ça marche tout le temps.
