OVH Cloud OVH Cloud

Besoin d'aide sur macro

3 réponses
Avatar
Christophe
Bonjour =E0 tous

J'ai besoin d'aide pour =E9crire une macro. Je souhaite=20
dupliquer une formule de calcul sur toutes les lignes=20
actives d'une feuille, en sachant que le nombre de lignes=20
actives est totalement al=E9atoire d'une feuille =E0 l'autre.

Exemple : Donn=E9e =E0 convertir se trouve en A1. Conversion=20
effectu=E9e via formule en B1,C1,D1,E1.

Je souhaite dupliquer B1:E1 en B2:E2 si A2 est actif, et=20
ainsi de suite jusqu'=E0 la derni=E8re cellule active dans ma=20
colonne A.

J'esp=E8re que je suis compr=E9hensible...

Merci pour votre aide.

3 réponses

Avatar
ru-th
Salut

Si j'ai bien compris :
Range("B1:E1").AutoFill Range("b1:e" & [a1].End(xlDown).Row)

a+
rural thierry
"Christophe" a écrit dans le message
de news: 1710901c44884$e07c6c30$
Bonjour à tous

J'ai besoin d'aide pour écrire une macro. Je souhaite
dupliquer une formule de calcul sur toutes les lignes
actives d'une feuille, en sachant que le nombre de lignes
actives est totalement aléatoire d'une feuille à l'autre.

Exemple : Donnée à convertir se trouve en A1. Conversion
effectuée via formule en B1,C1,D1,E1.

Je souhaite dupliquer B1:E1 en B2:E2 si A2 est actif, et
ainsi de suite jusqu'à la dernière cellule active dans ma
colonne A.

J'espère que je suis compréhensible...

Merci pour votre aide.
Avatar
Salut Thierry,

Merci pour ton aide, j'ai fait un grand pas. Le soucis,
c'est qu'il duplique jusqu'en ligne sur 283 lignes
systématiquement, même s'il n'y a plus rien en face ?
Comment Je peux faire pour le bloquer avant si ma cellule
contrôlée est vide ?


-----Message d'origine-----
Salut

Si j'ai bien compris :
Range("B1:E1").AutoFill Range("b1:e" & [a1].End
(xlDown).Row)


a+
rural thierry


Avatar
ru-th
Salut

curieux
en principe, la macro doit s'arrêter à la 1ere ligne vide de la colonne A en
dessous de A1
c'est le principe du [a1].End(xlDown).Row

peux-tu mettre le code complet utilisé
a+
rural thierry

a écrit dans le message de news:
171a601c4488f$0e4d59d0$
Salut Thierry,

Merci pour ton aide, j'ai fait un grand pas. Le soucis,
c'est qu'il duplique jusqu'en ligne sur 283 lignes
systématiquement, même s'il n'y a plus rien en face ?
Comment Je peux faire pour le bloquer avant si ma cellule
contrôlée est vide ?


-----Message d'origine-----
Salut

Si j'ai bien compris :
Range("B1:E1").AutoFill Range("b1:e" & [a1].End
(xlDown).Row)


a+
rural thierry