XL 2016 copier valeur actuel

[richardlion]

Bonjour a tous,
je débute dans la macro
ci dessous j'ai une macro qui me recopie les valeurs d'une colonne, la macro se déclenche avec un bouton
mais quand je change les valeurs de cette colonne la macro recopie les valeurs de départ et pas celle avec les nouvelles valeurs
comment dois-je écrire ma macro pour quelle recopie les valeurs de la colonne c
merci a vous

Private Sub worksheet_()
'
' colonne Macro
'

'
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B2").Select
ActiveCell.FormulaR1C1 = "data"
Range("C3:C17").Value
Selection.Copy
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "2000"
End Sub

 

[richardlion]

Je ne sais pas. D'une part je n'ai pas cette fonction qui apparait chez moi comme : _xlfn.XLOOKUP
D'autre part, la macro est en "worksheet_activate" comme dans votre fichier.
Donc le mieux, dans votre fichier réel vous installez cette macro qui n'est plus événementielle :

Sub RecopieValeurs()
    Dim DL%
    DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row                             ' Dernière ligne occupée
    Columns("I:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove ' Création colonne
    Range("I1:I" & DL) = Range("H1:H" & DL).Value                               ' Copie des valeurs de B vers C
End Sub

Vous mettez un bouton sur la feuille Synthèse, et vous l'accrochez à cette macro. Et vous appuyez sur ce bouton. Que ce passe t-il ?

Bonjour sylvanu, j'avais encore une question.
Dans la macro ci dessus qui fait de la copie de colonne je souhaiterais que certaine cellule de cette colonne qui ont une formule soit elle aussi copiée comment dois je faire?

 

[sylvanu]

Bonsoir,
Dans l'état la macro fait un copie colle valeurs.
Vous voulez copier aussi les formules ?
Mais dans ce cas les valeurs changeront avec les données donc ne seront plus un archivage.

 

[richardlion]

oui je veux copier des formules toutes simples, dans certaines cellules de la colonne j'ai le mois qui s'affiche j'ai pour toutes les cellules concernés par le meme mois fais un "= la cellule avec le mois de départ" pour éviter de la saisir sur toutes les cellules fichier en PJ
est t'il possible que cette = cellule soit recopie dans la colonne?

 

[sylvanu]

Re,
J'ai mis colonne H recopiée sur colonne I, et non pas C comme ds votre PJ.
Essayez :

Sub RecopieValeurs()
    Dim DL%, Lignes, L
    DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row                             ' Dernière ligne occupée
    Columns("I:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove ' Création colonne
    Range("I1:I" & DL) = Range("H1:H" & DL).Value                               ' Copie des valeurs de B vers C
    Lignes = Array(22, 33, 51, 62, 81, 99)                                      ' Lignes où doit être mise la formule
    For L = 0 To UBound(Lignes)                                                 ' Pour toutes ces lignes
        Cells(Lignes(L), "I").Formula = "=I5"                                   ' Mettre la formule
    Next L
End Sub