Bonjour,
Je souhaite créer une macro permettant de recopier une cellule de n'importe quel endroit de la feuille, dans une autre cellule placée 2 colonnes après celle-ci (même niveau : Exemple : B3 dans D3, A6 dans C6). Macro lancée par une séquence de touche type CTRL-D.
Merci à tous pour votre aide.
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
MichD
Le 09/01/20 à 08:29, martosch a écrit :
Bonjour, Je souhaite créer une macro permettant de recopier une cellule de n'importe quel endroit de la feuille, dans une autre cellule placée 2 colonnes après celle-ci (même niveau : Exemple : B3 dans D3, A6 dans C6). Macro lancée par une séquence de touche type CTRL-D. Merci à tous pour votre aide.
Bonjour, NomFeuilleSource = Nom de l'onglet de la cellule à copier Destination : Nom de l'onglet où tu veux copier la feuille Dans le code suivant, remplace ces expressions par les vrais noms de ton application. Dim Adr as string with Worksheets("NomFeuilleSource") Adr = .activecell.address .activecell.copy Worksheets("Destination").range(Adr).offset(,2) end with MichD
Le 09/01/20 à 08:29, martosch a écrit :
Bonjour,
Je souhaite créer une macro permettant de recopier une cellule de n'importe quel
endroit de la feuille, dans une autre cellule placée 2 colonnes après celle-ci
(même niveau : Exemple : B3 dans D3, A6 dans C6). Macro lancée par une séquence
de touche type CTRL-D.
Merci à tous pour votre aide.
Bonjour,
NomFeuilleSource = Nom de l'onglet de la cellule à copier
Destination : Nom de l'onglet où tu veux copier la feuille
Dans le code suivant, remplace ces expressions par les vrais noms de ton
application.
Dim Adr as string
with Worksheets("NomFeuilleSource")
Adr = .activecell.address
.activecell.copy Worksheets("Destination").range(Adr).offset(,2)
end with
Bonjour, Je souhaite créer une macro permettant de recopier une cellule de n'importe quel endroit de la feuille, dans une autre cellule placée 2 colonnes après celle-ci (même niveau : Exemple : B3 dans D3, A6 dans C6). Macro lancée par une séquence de touche type CTRL-D. Merci à tous pour votre aide.
Bonjour, NomFeuilleSource = Nom de l'onglet de la cellule à copier Destination : Nom de l'onglet où tu veux copier la feuille Dans le code suivant, remplace ces expressions par les vrais noms de ton application. Dim Adr as string with Worksheets("NomFeuilleSource") Adr = .activecell.address .activecell.copy Worksheets("Destination").range(Adr).offset(,2) end with MichD
