copier vers le bas une ligne de formule tant que valeur

Question

Bonjour, 
je souhaite réaliser une macro permettant de recopier vers le bas une ligne de formule tant qu'il ya des valeurs dans la colonne d'une autre feuille.
par exemple : feuille1 "données" début des valeurs en A2 jusque indéfini
                    feuille 2 "calculs" première ligne de calcul de A11 à L11
il faut donc que ligne de calcul de A11 à L11 de la feuille "calculs" soit recopier vers le bas tant qu'il ya des valeurs dans la colonne A de la feuille "données"
j'espère avoir été clair.
Merci pour votre aide.

jordane45 · Answer

Bonjour.
Et qu'avez vous essayé comme code ?

Cordialement,
Jordane

lebowsky · Answer

bonjour jordane,

je débute et même en parcourant différent forum je n'est rien trouvé correspondant à mon problème.
merci si vous pouvez me mettre sur le bon chemin.

jordane45 · Answer

Bonjour.
Vous pouvez déjà commencer par utiliser l'enregistreur de macro pour voir le code a utiliser pour recopier une cellule vers le bas.
Ensuite, penchez vous sur les boucles et les tests conditionnels.

lebowsky · Answer

merci mais j'ai pas vraiment le temps d'étudier tout ça, si vous aviez un exemple se serais plus simple pour moi.
Merci

jordane45 · Answer

Bonsoir,

Dans un élan de générosité, voici le code que vous pourriez utiliser pour réaliser ce que vous souhaitez...

Sub copieFormule()
'-----------------------------------------------------------------------------------------
'   expression.AutoFill(Destination, Type)
'       expression   Variable qui représente un objet Range.
'       Destination : Les cellules à remplir. La destination doit inclure la plage source.
'       Type (faculatif) : Indique le type de recopie.
'-----------------------------------------------------------------------------------------
Dim PlageOuCopier As Range
Dim PlageFeuille2 As Range
    Set PlageFeuille2 = Sheets(2).Range("C1:C11")
Dim MaCelluleAcopier As String
    MaCelluleAcopier = "A1"

'Boucle pour déterminer le nombre de ligne à copier
    For Each Cellule In PlageFeuille2
        If Cellule.Value <> "" Then
            CellMax = Cellule.Row
        Else
        Exit For
        End If
    Next
    
'Reopie de la cellule contenant la formule
Sheets(1).Select
Set PlageOuCopier = Range(MaCelluleAcopier & ":A" & CellMax)
Range(MaCelluleAcopier).Select
Selection.AutoFill Destination:=PlageOuCopier, Type:=xlFillDefault
 
End Sub

Bien sur, a vous de l'adapter pour coller à VOTRE besoin.



Sachant que : 

 expression.AutoFill -> Information récupérée avec l'enregistreur de macro (30 secondes)

La boucle ForEach, une petite recherche sur le net pour obtenir l'info vous aurait pris 5 minutes..

Le tout ensemble : 10 minutes. (même avec peu de connaissance sur le VBA )

Pour vos prochaines questions, merci de lire avant la page suivante :
http://codes-sources.commentcamarche.net/contents/11-charte-de-commentcamarche-net-conseils-d-ecriture




Cordialement,
Jordane

ucfoutu · Answer

s'intéresser à l'utilisation de  FormulaR1C1

Copier vers le bas une ligne de formule tant que valeur

6 réponses

Votre réponse

Discussions similaires