COPIER COLLER AVEC UNE MACRO
Le
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
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
Poser une question
"michel craps" news:414d576e$0$22082$
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 ;)
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 ;)