Discussion :

[stueur666]

Bonjour à tous,

Je cherche à faire une macro (très simple) qui me recopie les formules d'une colonne dans la colonne d'à côté afin d'incrémenter pour chaque jour (un jour par colonne) mes résultats.

J'ai réalisé une macro par enregistrement qui fonctionne correctement à un bémol près, la macro copie systématiquement les formules de la même colonne vers la colonne de droite alors que je voudrais que la macro copie la colonne la plus à droite qui contient une formule/valeur afin de recopier les formules dans la colonne suivante.

J'espère avoir été suffisamment clair.

Merci d'avance pour vos contributions.

Cordialement

Stueur666

[aereno]

Bonjour,

Le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a1").End(xlToRight).Column

te retournera le numéro de colonne de la dernière cellule non vide en partant de A1 vers la droite.

Ca te permettra d'adapter ton code avec des :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1,Range("a1").End(xlToRight).Column +1)

par exemple

[Daniel.C]

Bonjour,

Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test2()
    Dim Col As Integer
    Col = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    Columns(Col).Copy
    Columns(Col + 1).PasteSpecial xlPasteFormulas
End Sub

[stueur666]

Bonjour et merci,

J'avoue ne pas très bien comprendre vos explication...

voici ma macro actuelle (produite par enregistrelment) :

Sub Macro1()
'
' Macro1 Macro

Range("C4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+1"
Range("B5:B18").Select
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("B4:B18").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Et le fichier que je veux modifier est en fichier joint.

Merci d'avance pour votre aide

[Daniel.C]

Ou je me trompe, ou tu recopies les valeurs, pas les formules :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test2()
    Dim Col As Integer
    Col = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    Range(Cells(5, Col), Cells(5, Col).End(xlDown)).Copy
    Cells(5, Col + 1).PasteSpecial xlPasteValues
    Cells(4, Col + 1) = Cells(4, Col) + 1
End Sub

[stueur666]

Merci beaucoup Daniel.C

Cela fonctionne parfaitement!

Je clos le sujet

Cordialement

Stueur

[stueur666]

Bonjour à tous,

Après de multiples vérification il s'avère que la macro ne fonctionne pas comme je le souhaite.

En effet, je souhaite copier la première colonne (celle contenant les formules) puis faire une copier coller(formules) sur la colonne la plus à droite, puis copier/coller(valeur) ma colonne la plus à droite.

Merci d'avance pour l'aide que vous pourrez m'apporter.

Cordialement

Stueur

[Daniel.C]

Bonjour,

Après de multiples vérification il s'avère que ton énoncé ne correspond pas à l'énoncé initial.

puis faire une copier coller(formules) sur la colonne la plus à droite, puis copier/coller(valeur)

Pourquoi ne pas faire directement et collage spécial Valeurs ? Qu'appelles-tu "première colonne" la colonne A ? Peux-tu donner un exemple ?

[stueur666]

Bonjour Daniel.C, bonjour aux autres aussi,

Désolé de ne pas avoir été suffisamment clair dans mon énoncé.
J'ai remis le fichier avec des explications plus détailler de ce que je souhaite.

Merci d'avance pour l'aide que vous pourrez m'apporter

Cordialement

Stueur

[Daniel.C]

Attache la macro suivante à ton bouton, sachant que les lignes 15-19 ne sont pas traitées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test2()
    Dim Col As Integer
    Application.ScreenUpdating = False
    Col = Cells.Find("*", , , , xlByColumns, xlPrevious).Column + 1
    Range(Cells(5, 2), Cells(13, 2)).Copy
    Cells(5, Col).PasteSpecial xlPasteFormulas
    Range(Cells(5, Col), Cells(13, Col)).Copy
    Cells(5, Col).PasteSpecial xlPasteValues
    Cells(4, Col) = Cells(4, Col - 1) + 1
    Application.ScreenUpdating = False
End Sub

[stueur666]

Merci Daniel.C!

Ca a l'air de fonctionner correctement!

Je clos le sujet.

Merci encore!

Cordialement

Stueur