Macro

[Sha0lin]

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]

Oups mille excuses j'ai oublié le code :

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

Merci

Sha0lin

 

[PascalXLD]

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]

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]

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

Dsl

:unsure:

 

[Sha0lin]

M E R C I