VBA Droite

[Arpette]

Bonjour à toutes et tous.

J'extrais en J par cette formule les 7 caractères droits de la colonne D.

 Set Zone = .Range("D2:D" & .Range("D65536").End(xlUp).Row)
        Zone.Offset(0, 6).FormulaR1C1 = "=RIGHT(RC4,7)" 'Droite de colonne D
        Zone.Offset(0, 6) = Zone.Offset(0, 6).Value 'On n'en garde que les valeurs

Le problème est que les deux premiers caractères commencent par 00 et je les perds.

J'ai bien essayé

Zone.Offset(0, 6) = Zone.Offset(0, 6).Text

mais cela ne fonctionne pas.
Merci de votre aide,
@+

 

[gilbert_RGI]

Re : VBA Droite

Bonjour

peut-être comme ceci

Sub test()
With ActiveSheet
Set Zone = .Range("D2" & .Range("D65536").End(xlUp).Row)
Zone.Offset(0, 6).Formula = "=RIGHT(RC4,7)" 'Droite de colonne D
Zone.Offset(0, 6).NumberFormat = "@" 'format texte
Zone.Offset(0, 6) = Zone.Offset(0, 6).Value 'On n'en garde que les valeurs
End With
End Sub

 

[Arpette]

Re : VBA Droite

Bonjour Gilbert, merci c'est nickel.
@+