Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Baser macro sur contenu d'une cellule

Baser macro sur contenu d'une cellule

3 réponses
Avatar
Nangoustine
Bonsoir à tous,

Je souhaiterais modifier la macro suivante afin que la valeur 5000 y soit
remplacé par le contenu de la cellule A1 de la feuille Datas (A1 donnera le
numéro de la dernière ligne jusqu'à laquelle doit être effectué le filldown).
Auriez vu une idée?
Merci d'avance.
Aymeric

Private Sub CommandButton1_Click()
With Sheets("Datas")
.Range("U10:U5000").FillDown
.Range("V10:V5000").FillDown
.Range("W10:W5000").FillDown
.Range("X10:X5000").FillDown
End With
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonsoir.
Pour la première ligne :
.Range("U10:U" & [A1]).FillDown
Cordialement.
Daniel

Bonsoir à tous,

Je souhaiterais modifier la macro suivante afin que la valeur 5000 y soit
remplacé par le contenu de la cellule A1 de la feuille Datas (A1 donnera le
numéro de la dernière ligne jusqu'à laquelle doit être effectué le filldown).
Auriez vu une idée?
Merci d'avance.
Aymeric

Private Sub CommandButton1_Click()
With Sheets("Datas")
.Range("U10:U5000").FillDown
.Range("V10:V5000").FillDown
.Range("W10:W5000").FillDown
.Range("X10:X5000").FillDown
End With
End Sub


Avatar
StDonat
Bonsoir,
Si j'ai bien compris ton probléme:
cela devrait marcher:

Private Sub CommandButton1_Click()
With Sheets("Datas")
.Range("U10:X" & Cells(1, 1)).FillDown
End With
End Sub

"Nangoustine" wrote:

Bonsoir à tous,

Je souhaiterais modifier la macro suivante afin que la valeur 5000 y soit
remplacé par le contenu de la cellule A1 de la feuille Datas (A1 donnera le
numéro de la dernière ligne jusqu'à laquelle doit être effectué le filldown).
Auriez vu une idée?
Merci d'avance.
Aymeric

Private Sub CommandButton1_Click()
With Sheets("Datas")
.Range("U10:U5000").FillDown
.Range("V10:V5000").FillDown
.Range("W10:W5000").FillDown
.Range("X10:X5000").FillDown
End With
End Sub


Avatar
Nangoustine
Merci pour ta réponse rapide. Super ça marche parfaitement.
Merci
Aymeric
--
Nangoustine


"StDonat" a écrit :

Bonsoir,
Si j'ai bien compris ton probléme:
cela devrait marcher:

Private Sub CommandButton1_Click()
With Sheets("Datas")
.Range("U10:X" & Cells(1, 1)).FillDown
End With
End Sub

"Nangoustine" wrote:

> Bonsoir à tous,
>
> Je souhaiterais modifier la macro suivante afin que la valeur 5000 y soit
> remplacé par le contenu de la cellule A1 de la feuille Datas (A1 donnera le
> numéro de la dernière ligne jusqu'à laquelle doit être effectué le filldown).
> Auriez vu une idée?
> Merci d'avance.
> Aymeric
>
> Private Sub CommandButton1_Click()
> With Sheets("Datas")
> .Range("U10:U5000").FillDown
> .Range("V10:V5000").FillDown
> .Range("W10:W5000").FillDown
> .Range("X10:X5000").FillDown
> End With
> End Sub