OVH Cloud OVH Cloud

COPIER COLLER AVEC UNE MACRO

3 réponses
Avatar
michel craps
Bonjour
J' ai un tableau de données de plus 3000 lignes j essaye en vain de créer
une macro qui me permette de couper et coller des cellules
les cellules a couper sont toujours dans les mêmes colonnes et idem pour
celles a coller. Je dois faire cette opération sur plus de 200 lignes pour
réorganiser mon tableau
exemple:
A B C D E F G H I J K
L M N O P Q R S T U V W X Y Z AA AB

AMX R AMC R PIP S CFR S CAZ I ATM S IPM S DO R NOR R CIP R
AMX S AMC S CFR S DO S NOR S F/M S FOS S SXT R
AMX S AMC S CFR S DO S NOR S F/M S FOS S SXT S
AMX R AMC R CFR R DO S NOR S F/M S FOS S SXT S
AMX R AMC S CFR S DO S NOR S F/M R FOS S SXT S
AMX R AMC R PIP S CFR R CAZ S ATM S IPM S DO R NOR R CIP R


Sur la ligne 1 les cellules des colonnes R et S doivent aller en D et E
puis les les cellules des colonnes AA et AB en G et H sur cette même ligne
Idem pour la ligne 6 et ainsi de suite pour les 200 lignes a changer

Lorsque j 'ai crée ma macro elle refait a chaque fois l'opération sur la
ligne ou était situé le curseur

Si pas possible avec une macro existe t 'il un autre moyen pour éviter des
copier coller sur chaque ligne

Merci d' avance

3 réponses

Avatar
Pierre Fauconnier
Peux-tu donner le code de ta macro?

"michel craps" a écrit dans le message de
news:414d576e$0$22082$
Bonjour
J' ai un tableau de données de plus 3000 lignes j essaye en vain de créer
une macro qui me permette de couper et coller des cellules
les cellules a couper sont toujours dans les mêmes colonnes et idem pour
celles a coller. Je dois faire cette opération sur plus de 200 lignes pour
réorganiser mon tableau
exemple:
A B C D E F G H I J K
L M N O P Q R S T U V W X Y Z AA AB

AMX R AMC R PIP S CFR S CAZ I ATM S IPM S DO R NOR R CIP
R

AMX S AMC S CFR S DO S NOR S F/M S FOS S SXT R
AMX S AMC S CFR S DO S NOR S F/M S FOS S SXT S
AMX R AMC R CFR R DO S NOR S F/M S FOS S SXT S
AMX R AMC S CFR S DO S NOR S F/M R FOS S SXT S
AMX R AMC R PIP S CFR R CAZ S ATM S IPM S DO R NOR R CIP
R



Sur la ligne 1 les cellules des colonnes R et S doivent aller en D et E
puis les les cellules des colonnes AA et AB en G et H sur cette même
ligne

Idem pour la ligne 6 et ainsi de suite pour les 200 lignes a changer

Lorsque j 'ai crée ma macro elle refait a chaque fois l'opération sur la
ligne ou était situé le curseur

Si pas possible avec une macro existe t 'il un autre moyen pour éviter
des

copier coller sur chaque ligne

Merci d' avance




Avatar
EMiLe
Si j'ai bien compris, tu dois déplacer toutes les 6 lignes le contenu de
la cellule
R en D
S en E
AA en G
AB en H??

jusquà la ligne 3000??

Si oui, voilà la macro

Sub CouperColler()
Dim ligne, compteur As Integer
Dim StartCel As String
ligne = 0
Do
Range("d1").Offset(ligne, 0).Formula =
Range("r1").Offset(ligne, 0).Text
Range("e1").Offset(ligne, 0).Formula =
Range("s1").Offset(ligne, 0).Text
Range("g1").Offset(ligne, 0).Formula =
Range("aa1").Offset(ligne, 0).Text
Range("h1").Offset(ligne, 0).Formula =
Range("ab1").Offset(ligne, 0).Text
Range("r1").Offset(ligne, 0).Formula = ""
Range("s1").Offset(ligne, 0).Formula = ""
Range("aa1").Offset(ligne, 0).Formula = ""
Range("ab1").Offset(ligne, 0).Formula = ""
If ligne >= 3000 Then Exit Do
ligne = ligne + 6

Loop



End Sub


si c'est toutes les lignes que tu dois déplacer, remplace ligne = ligne
+6 par ligne = ligne +1

EMiLe

bien à vous ;)

Bonjour
J' ai un tableau de données de plus 3000 lignes j essaye en vain de créer
une macro qui me permette de couper et coller des cellules
les cellules a couper sont toujours dans les mêmes colonnes et idem pour
celles a coller. Je dois faire cette opération sur plus de 200 lignes pour
réorganiser mon tableau
exemple:
A B C D E F G H I J K
L M N O P Q R S T U V W X Y Z AA AB

AMX R AMC R PIP S CFR S CAZ I ATM S IPM S DO R NOR R CIP R
AMX S AMC S CFR S DO S NOR S F/M S FOS S SXT R
AMX S AMC S CFR S DO S NOR S F/M S FOS S SXT S
AMX R AMC R CFR R DO S NOR S F/M S FOS S SXT S
AMX R AMC S CFR S DO S NOR S F/M R FOS S SXT S
AMX R AMC R PIP S CFR R CAZ S ATM S IPM S DO R NOR R CIP R


Sur la ligne 1 les cellules des colonnes R et S doivent aller en D et E
puis les les cellules des colonnes AA et AB en G et H sur cette même ligne
Idem pour la ligne 6 et ainsi de suite pour les 200 lignes a changer

Lorsque j 'ai crée ma macro elle refait a chaque fois l'opération sur la
ligne ou était situé le curseur

Si pas possible avec une macro existe t 'il un autre moyen pour éviter des
copier coller sur chaque ligne

Merci d' avance




Avatar
EMiLe
zut, je croyais que c'était couper coller

supprime

Range("r1").Offset(ligne, 0).Formula = ""
Range("s1").Offset(ligne, 0).Formula = ""
Range("aa1").Offset(ligne, 0).Formula = ""
Range("ab1").Offset(ligne, 0).Formula = ""

dans le code

dis-nous si ça marche ;)


Bonjour
J' ai un tableau de données de plus 3000 lignes j essaye en vain de créer
une macro qui me permette de couper et coller des cellules
les cellules a couper sont toujours dans les mêmes colonnes et idem pour
celles a coller. Je dois faire cette opération sur plus de 200 lignes pour
réorganiser mon tableau
exemple:
A B C D E F G H I J K
L M N O P Q R S T U V W X Y Z AA AB

AMX R AMC R PIP S CFR S CAZ I ATM S IPM S DO R NOR R CIP R
AMX S AMC S CFR S DO S NOR S F/M S FOS S SXT R
AMX S AMC S CFR S DO S NOR S F/M S FOS S SXT S
AMX R AMC R CFR R DO S NOR S F/M S FOS S SXT S
AMX R AMC S CFR S DO S NOR S F/M R FOS S SXT S
AMX R AMC R PIP S CFR R CAZ S ATM S IPM S DO R NOR R CIP R


Sur la ligne 1 les cellules des colonnes R et S doivent aller en D et E
puis les les cellules des colonnes AA et AB en G et H sur cette même ligne
Idem pour la ligne 6 et ainsi de suite pour les 200 lignes a changer

Lorsque j 'ai crée ma macro elle refait a chaque fois l'opération sur la
ligne ou était situé le curseur

Si pas possible avec une macro existe t 'il un autre moyen pour éviter des
copier coller sur chaque ligne

Merci d' avance