Discussion :

[lebowsky60]

Bonjour,
Je précise que je suis débutant
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.
voila ce que j' ai essayé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub Macro1()
'
' Macro1 Macro
'
Dim DerLig As Long
    With Worksheets("Données brutes")
        DerLig = .Range("A2").End(xlDown).Row
    Range("A11:L11").Select
    Selection.AutoFill Destination:=Range(Cells(11, 1), Cells(65536, 12).End(xlUp)).Row, Type:=xlFillDefault
    End With
 
'
 
End Sub

Merci pour votre aide.

[gFZT82]

Bonjour,

Il faut que tu précises si tu souhaites que la copie soit effectuée sur une plage qui comprend le même nombre de lignes que celle définie avec la colonne A de la feuille "données".
Exemple :
La plage en colonne A de la feuille "données" est A2:A21, soit 20 lignes.
La copie devra être réalisée sur la plage A11:L30, soit 20 lignes.

On peut interpréter ta demande différemment :
la copie doit être effectuée sur une plage qui est limitée par la dernière ligne renseignée de la colonne A de la feuille "données".
Exemple :
La plage en colonne A de la feuille "données" est A2:A21, soit 20 lignes.
La copie devra être réalisée sur la plage A11:L21, soit 11 lignes.

Cordialement.

[lebowsky60]

Bonjour gFZT82,

effectivement il faut que la copie soit effectuée sur une plage qui comprend le même nombre de lignes que celle définie avec la colonne A de la feuille "données" (sauf que le nombre de lignes ne sera jamais le même).

merci

[Invité]

Bonjour,
dans ton code, j'ai quelques incompréhension:

Code :

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

With Worksheets("Données brutes")

mai tu l'utilise que pour connaitre sa dernière ligne?

Code :

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

DerLig = .Range("A2").End(xlDown).Row

tu recherche la dernière ligne mais tu ne l'utilise pas?

Code :

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

Range("A11:L11").Select

tu sélectionne une plage mais pourquoi?
en plus évite le select

Code :

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

1
2
3
4
Range("A1").Select
Selection.Copy
Range("A2").Select
ActiveCell.PasteSpecial xlPasteAll

alors que tu peux faire ça

Code :

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

Range("A1").Copy Range("A2")

[Marc-L]

Bonjour.

Code :

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

    Feuil2.[A11:L11].AutoFill Feuil2.Range("A11:L" & Feuil1.Cells(Rows.Count, 1).End(xlUp).Row)

Si la feuille 2 est active, le code se simplifie ainsi :

Code :

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

    [A11:L11].AutoFill Range("A11:L" & Feuil1.Cells(Rows.Count, 1).End(xlUp).Row)

Enfin s'il faut conserver le même nombre de lignes, il suffit d'ajouter 9 à .Row …

Si les noms objets Feuil1 / Feuil2 (CodeName) ne correspondent pas aux feuilles,
soit les vérifier dans l'environnement VBA puis les corriger
soit les remplacer par Worksheets("nom de la feuille") …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[gFZT82]

Re,

Ou exprimé différemment

Code :

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

1
2
3
4
5
6
7
8
9
Sub Copier()
Dim NbLignes As Long
    With Worksheets("données")
        NbLignes = .Range("A2:A" & .Range("A2").End(xlDown).Row).Count
    End With
    With Worksheets("calculs")
        .Range("A11:L11").AutoFill Destination:=.Range("A11:L11").Resize(NbLignes), Type:=xlFillDefault
    End With
End Sub

Cordialement.

[Marc-L]

J'ai bien peur que la variable NbLignes calculée avec la propriété .Count représente le nombre de cellules de la plage source …

En utilisant .End(xlDown), il ne faut pas de cellule vide parmi les saisies de la colonne sinon manqueront les lignes suivantes …

[gFZT82]

Bonjour Marc-L,

J'ai bien peur que la variable NbLignes calculée avec la propriété .Count représente le nombre de cellules de la plage source …

C'était l'objet de ma première question et lebowsky60 a répondu :
il faut que la copie soit effectuée sur une plage qui comprend le même nombre de lignes que celle définie avec la colonne A de la feuille "données"

En utilisant .End(xlDown), il ne faut pas de cellule vide parmi les saisies de la colonne sinon manqueront les lignes suivantes …

lebowsky60 a dit :
je souhaite réaliser une macro permettant de recopier vers le bas une ligne de formule tant qu'il y a des valeurs dans la colonne d'une autre feuille.
Tout est question d'interprétation

Cordialement.

[lebowsky60]

Merci beaucoup pour votre aide, effectivement la solution de marc fonctionnait mais il manquait les dernières lignes. Avec votre solution gFZT82 ça fonctionne nickel
Encore merci

[Marc-L]

Non là ce n'est pas un problème d'interprétation, je suis un peu passé à côté !

J'ai mal lu la proposition de gFZT82 … car effectivement un .Count sur une colonne est égal au nombre de lignes …
Autant pour moi !

Pourtant lebowsky60 en suivant mon indication d'ajouter 9 à .Row, cela doit le faire …