Discussion :

[bigs3232]

bonjour
je voudrais copier et coller la formule vers le bas avec ce code vba depuis la cellule selectionnée mais ca semble coincer
Selection.PasteSpecial Paste = xlPasteFormulas ne marche pas

Code :

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

1
2
3
4
5
6
7
8
Sub aa()
  Selection.Copy
 numrows = Selection.Rows.Count
 nblig = Selection.Offset(0, -1).End(xlDown).Row - numrows
'MsgBox derlig
Selection.Offset(1, 0).Resize(nblig).Select
Selection.PasteSpecial Paste = xlPasteFormulas
End Sub

voir le fichier joint en test
si vous pouvez m'aider .je suis a court d'idée là
merci d'avance

[Marc-L]

Bonjour,

une idée :   utiliser la méthode  AutoFill  comme détaillée dans l'aide VBA interne …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bardo, Sousse, Kenya Garissa University, Liban, Mali, …

[bigs3232]

merci marc.je ne connais pas du tout auofill.je regarde comment il marche

désolé voici le bon fichier de test en fichier joint

[bigs3232]

ca ne marche pas avec autofill

Code :

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

1
2
3
4
5
Sub aa()
Range("b2").Select
'Do an autofill down to the amount of values returned by the update
Selection.AutoFill Destination:=Range("b3:b10")
End Sub

[Nicolas JACQUIN]

Bonjour,

Code :

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

1
2
Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:B11"), Type:=xlFillDefault

depuis l'enregistreur de macro ça vous donne ça

https://msdn.microsoft.com/fr-fr/lib.../ff195345.aspx

Bonne continuation.

[bigs3232]

merci nicolas ca semble marcher mais est-il possible d'utiliser la notion de cellule relative a partir d'une cellule selectionnée avec la méthode selection comme dans ma formule au début
je selectionne la cellule avec formule et ca autofill a partir de cette cellule selon le nombre de ligne non vide de la colonne précédente

[Nicolas JACQUIN]

Code :

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

1
2
3
ActiveCell.Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A10"), Type:= _
        xlFillDefault

peut-être à adapter en fonction de tes besoin, et tu pouvais le faire à partir de l'enregistreur de macro qui est là pour ça

[bigs3232]

pas mal ,j'ai un peu de mal à comprendrre cette ligne

Code :

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

ActiveCell.Range("A1:A10")

et comment remplacer 10 par le nombre de ligne non vide de la colonne précédente afin que la formule s'etend jusqu'à la derniere ligne non vide de la colonne précédente

[bigs3232]

voici mon idée pour en faire une belle fonction plus générique.merci à nicolas. mais si vous avez une autre méthode je suis preneur aussi

Code :

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

1
2
3
4
5
6
7
 
Sub copy_jusq_dernL()
    ActiveCell.Select
   nblig = Cells(Rows.Count, ActiveCell.Offset(0, -1).Column).End(xlUp).Row
    Selection.AutoFill Destination:=ActiveCell.Range("a1", "a" & nblig), Type:= _
        xlFillDefault
End Sub