XL 2019 Copie colonnes + incrémentation

Arnaud59000

XLDnaute Nouveau
Hello Excel Downloads,

J'ai besoin de vous encore une fois !

Cette fois-ci, j'aimerai sélectionner 4 colonnes, faire un espace de 1 colonne et insérer mes colonnes copiées.

Pas moyen de bidouiller quelque chose. J'y suis arrivé pour des lignes mais pas pour des colonnes.

Si vous avez des idées sur comment faire


-----

(Je vous mets le code que j'ai fait pour insérer une ligne, ca vous donnera peut être une idée de mon niveau en VBA)
Sub InsereLigne()

Sheets("Synthèse Financière").Select

Range("A1").Select

Dim C As Range

Set C = Range("A65536").End(xlUp).Offset(1, 0)

C.EntireRow.Insert (xlShiftDown)

C.Offset(1).EntireRow = C.EntireRow.Value

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub
 
Solution
Re

Après avoir relu 20 fois les demandes des post # 1 ,4 , 5et 6 et essayer de comprendre ce que tu veux faire .... je te propose ceci :
En fait le plus dur n'est pas de faire la/les macros mais de déchiffrer la question. 😄
Champollion sort de ce corps :oops: .....
Que de temps perdu faute de fichier mis à la disposition....
*Merci de ton retour

@Phil69970

Arnaud59000

XLDnaute Nouveau
Hello merci pour vos propositions, cependant, je vois que dans mon message je n'ai pas été assez clair.

Ce que je souhaite c'est faire en sorte que la prochaine fois que je lance ma macro cela resélectionne les 4 dernières colonnes etc ...

J'ai fait une macro mais qui ne fonctionne pas

Sub gfugs()
'
' gfugs Macro
'
Dim col As Integer
Dim ColABouger As Integer
col = 26
Dim MaSelection As Range

Do While col < 1000
If ActiveWorkbook.Worksheets("Hypothèses Technique").Cells(3, col) <> "" Then
col = col + 5
Else
ColABouger = col - 5
GoTo tartanpion
End If
Loop
tartanpion:
MaSelection = ActiveWorkbook.Worksheets("Hypothèses Technique").Range("A1:E5000")
MaSelection.Offset(0, ColABouger + 5) = MaSelection.Offset(0, ColABouger)





End Sub
 

Arnaud59000

XLDnaute Nouveau
Edit :

Evolution de ma macro :


Sub gfugs()
'
' gfugs Macro
'
Dim col As Integer
Dim ColABouger As Integer
col = 26

Do While col < 1000
If ActiveWorkbook.Worksheets("Hypothèses Technique").Cells(3, col) <> "" Then
col = col + 5
Else
ColABouger = col - 5
GoTo tartanpion
End If
Loop
tartanpion:

ActiveWorkbook.Worksheets("Hypothèses Technique").Range("A1:E5000").Offset(0, ColABouger - 1).Cells.Copy
ActiveWorkbook.Worksheets("Hypothèses Technique").Range("A1:E5000").Offset(0, ColABouger + 4).Cells.PasteSpecial Paste:=xlPasteFormats

End Sub
 

Arnaud59000

XLDnaute Nouveau
Edit 2 :

Solution :



Sub gfugs()
'
' gfugs Macro
'
Dim col As Integer
Dim ColABouger As Integer
col = 26

Do While col < 1000
If ActiveWorkbook.Worksheets("Hypothèses Technique").Cells(3, col) <> "" Then
col = col + 5
Else
ColABouger = col - 5
GoTo tartanpion
End If
Loop
tartanpion:

ActiveWorkbook.Worksheets("Hypothèses Technique").Range("A1:E5000").Offset(0, ColABouger - 1).Cells.Copy
ActiveWorkbook.Worksheets("Hypothèses Technique").Range("A1:E5000").Offset(0, ColABouger + 4).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _

End Sub
 

Phil69970

XLDnaute Barbatruc
Re

Es tu sur que la macro telle que tu l'as écrit au post #6 fonctionne comme tu veux ?
L'as tu essayer ?
J'en doute très fortement. o_O 🤔
==> Copier 5000 lignes ce n'est pas une colonne !
==> Copier 4 colonnes vides je n'en vois pas trop l’intérêt !
En tout cas ta macro ne correspond en rien avec l'énoncé que tu as fait au post # 1

j'aimerai sélectionner 4 colonnes, faire un espace de 1 colonne et insérer mes colonnes copiées.
Et ta macro du post # 6 copie les 5000 premières lignes de la dernière colonnes + les 4 colonnes suivantes (qui sont vides) avec un décalage de 4 colonne après la dernière 🙃

Donc que veux tu faire exactement ?
Un exemple concret serait le bienvenu avec un fichier ou tu indiques clairement ce que tu veux copier ET ou tu veux les copier......
Tu prends ton fichier (une copie) avec même disposition de titre/cellule/colonne/nom de feuille etc ... avec 10 à 20 lignes et tu indiques ce que tu veux.....

@Phil69970
 

Phil69970

XLDnaute Barbatruc
Re

Après avoir relu 20 fois les demandes des post # 1 ,4 , 5et 6 et essayer de comprendre ce que tu veux faire .... je te propose ceci :
En fait le plus dur n'est pas de faire la/les macros mais de déchiffrer la question. 😄
Champollion sort de ce corps :oops: .....
Que de temps perdu faute de fichier mis à la disposition....
*Merci de ton retour

@Phil69970
 

Pièces jointes

  • Copie 5 colonnes V1.xlsm
    21.2 KB · Affichages: 5

Discussions similaires

Réponses
28
Affichages
925

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T