VBA : copie cellules suite import txt

[poupoune49]

Je suis nouveau sur le forum et ai qlq connaissances de VBA

J’importe dans 1 tableau Excel 2003 via VBA des données d’un fichier txt (lignes ayant la même structure) .

Après mon code de formatage et de mise en forme je nomme mes colonnes.

Range (« B1 »).Select

ActiveCell.FormulaR1C1= “Parts”



Dans ma colonne B j’importe une valeur numérique que je souhaite diviser par 10 (exemple : 020 doit donner 2,0)

J’arrive à faire ce calcul pour 1 ligne avec le code suivant :

Selection.NumberFormat = "0.0"

'Range("B2").Value = Range("B2").Value / 10

Comment répéter le code sur l’ensemble de la colonne B sans pour autant réécrire le code puisque le nombre de lignes est variable.

Merci de votre aide.
Poupoune49

 

[pierrejean]

Re : VBA : copie cellules suite import txt

bonsoir poupoune49

teste

range("B:B").Numberformat="0.0"
for n=2 to range("B65536").End(xlup).row
 range("B" & n)=Range("B & n)/10
next n

 

[patte d'ours]

Re : VBA : copie cellules suite import txt

Bonsoir

Tu dois faire une boucle, et là tu as plusieurs choix

par exemple

range("B2").select 'Sélectionne la 1ere cellule
While activecell<>"" 'boucle tant que la cellule n'est pas vide
Activecell=activecell/10
activecell.offset(1,0).range("A1").select 'sélectionne la ligne suivante
wend

 

[patte d'ours]

Re : VBA : copie cellules suite import txt

Bonsoir Pierre-Jean

Nos réponses se sont un peu télescopées. Bon appétit

 

[poupoune49]

Re : VBA : copie cellules suite import txt

Merci pour les conseils
J'ai aménagé le code et ça fonctionne.
poupoune49