Macro

Sha0lin · 15 Novembre 2005

Bonjour à tous,

Voilà, j'ai ce code qui me permet de ne conserver que les 5 premiers chiffres d'une référence saisie dans la cellule B3.

Moi je voudrais que ce code s'applique à toute la colonne B.

Comment dois-je le modifier svp ?

Merci d'avance c'est très pressé :S

Sha0lin

Sha0lin · 15 Novembre 2005

Oups mille excuses j'ai oublié le code :

Range('b3').Value = Left(Range('b3').Value, 5)

Merci

Sha0lin

PascalXLD · 15 Novembre 2005

Bonjour

en passant par un tableau de variables au cas où tu es beaucoup de données

Sub toto()

Dim montableausource
Dim x As Integer

montableausource = Range('B2:B' & Range('B65536').End(xlUp).Row)

For x = 1 To UBound(montableausource)
    montableausource(x, 1) = Left(montableausource(x, 1), 5)
Next
Range('B2:B' & Range('B65536').End(xlUp).Row) = montableausource

End Sub

Bon courage

Sha0lin · 15 Novembre 2005

Bonjour Pascal et merci !

Mais c'est un peu trop évolué pour mon niveau actuel alors pourrais tu m'indiquer où insérer mon code d'origine Range('b3').Value = Left(Range('b3').Value, 5) par rapport à ton code ?

Merci

:S

Sha0lin

Sha0lin · 15 Novembre 2005

Oups pardon excuse moi je viens de relire avec les yeux ouvert et ça va mieux !

Dsl

:unsure:

Sha0lin · 15 Novembre 2005

M E R C I

Macro

Sha0lin

Guest

Sha0lin

Guest

PascalXLD

XLDnaute Barbatruc

Sha0lin

Guest

Sha0lin

Guest

Sha0lin

Guest

Discussions similaires