Copier une donnée sur l'ensemble d'une colonne

europe2508

XLDnaute Junior
Bonjour,
Est t'il possible de copier un champ identique (en fait une formule à l'ensemble des champs de la colonne N)
formule =A4*3,14 pour la ligne 4
Ensuite =A5*3,14 pour la ligne 5
etc
et ce sur l'ensemble du champ N sauf les ligne 1 et 2 si c'est possible
Merci
 

europe2508

XLDnaute Junior
Re : Copier une donnée sur l'ensemble d'une colonne

En capture de macro et en enlever le superflu cela donne

Range("N1").Select
ActiveCell.FormulaR1C1 = "=IF(R[3]C[-13]="""","""",R[3]C[-13])"
Range("N1").Select
Selection.AutoFill Destination:=Range("N1:N20000"), Type:=xlFillDefault

Si quelqu'un pourrait me dire s'il y a mieu, je suis preneur
Merci
 

jpmasclet

XLDnaute Occasionnel
Re : Copier une donnée sur l'ensemble d'une colonne

Bonjour,

Plutot que d'aller jusqu'a N20000, sauf si tu en as vraiment besoin , tu peux faire.
ajouter en debut de code :

DerniereLigne = Range("A65536").End(xlUp).Row

et mettre Selection.AutoFill Destination:=Range("N1:N" & derniereligne), Type:=xlFillDefault


Bonne journée !
 

europe2508

XLDnaute Junior
Re : Copier une donnée sur l'ensemble d'une colonne

Bonjour,
merci mais cela me donne une erreur de référence #ref
en fait je veut partir de la deuxième ligne mais pas forcement jusqu'a 20000 ligne mais jusqu'a ce qu'il y a plus de donnée en collone a et c
sinon c vrai que la formule au bout de 80 lignes me sert plus à rien (normalement)
 

Discussions similaires

Réponses
0
Affichages
259

Statistiques des forums

Discussions
312 763
Messages
2 091 815
Membres
105 075
dernier inscrit
sdalmas