XL 2010 macro pour fonction gauche

[matoupitou]

Bonjour
Par avance merci pour votre aide

j'aimerai crée une commande (avec macro) qui me permettrait, en sélectionnant les cellules concernées, de passer d'un code de 13 caractères en 12
(j'ai pensé à fonction Gauche) mais je ne sais pas l'écrire en VBA
j'ajoute une PJ pour exemple
(en colonne A le type de ref13, en colonne B le résultat attendu mais attention j'en ai besoin A LA PLACE de ceux en A)
(précision : les codes ne se trouvent pas toujours en colonne A)

j'espère que je m'exprime bien....

 

[vgendron]

Bonjour

VBA est bien souvent une simple traduction en anglais..
ainsi; la fonction gauche en vba devient Left

 

[matoupitou]

Bonjour vgendron
merci pour ça Gauche c'est left 🙂 mais comment j'écris tout le reste SVP !
je souhaite cliquer sur un raccourci qui - quand je sélectionne les cellules de codes 13 caractères - elles se transforment en 12.
je suis nulle en fait

 

[vgendron]

Sub tronquer()
Dim tablo() As Variant

With ActiveSheet
    tablo = .Range("A1:A18").Value
    For i = LBound(tablo, 1) To UBound(tablo, 1)
        tablo(i, 1) = Left(tablo(i, 1), Len(tablo(i, 1)) - 1)
    Next i
    .Range("A1:A18") = tablo
    .Range("A1:A18").NumberFormat = "0000000000000"
End With
End Sub

 

[matoupitou]

Sub tronquer()
Dim tablo() As Variant

With ActiveSheet
    tablo = .Range("A1:A18").Value
    For i = LBound(tablo, 1) To UBound(tablo, 1)
        tablo(i, 1) = Left(tablo(i, 1), Len(tablo(i, 1)) - 1)
    Next i
    .Range("A1:A18") = tablo
    .Range("A1:A18").NumberFormat = "0000000000000"
End With
End Sub

RECOUCOU
désolée mais ça marche po 🙁
je joins le fichier sur lequel je suis... les codes 13 sont en colonne I et du coup bah...
est-il possible de faire une macro qui fonctionne une fois les cellules sélectionnées ?
merci merci merci

 

[vgendron]

bah si ca marche.. faut juste réfléchir un peu...et essayer de comprendre un minimum...

Sub tronquer()
Dim tablo() As Variant

With ActiveSheet
    'tablo = .Range("A1:A18").Value
    tablo = Selection.Value
    For i = LBound(tablo, 1) To UBound(tablo, 1)
        tablo(i, 1) = Left(tablo(i, 1), Len(tablo(i, 1)) - 1)
    Next i
    '.Range("A1:A18") = tablo
    '.Range("A1:A18").NumberFormat = "0000000000000"
    Selection = tablo
    Selection.NumberFormat = "0000000000000"
End With
End Sub

 

[mapomme]

Bonjour @matoupitou, @vgendron 😉,

Un autre macro:

• sélectionner la ou les plages
• appuyer sur Ctrl+G (g doit être en majuscule)

Sub Tronque12()
Dim xcell
Application.ScreenUpdating = False
For Each xcell In Selection
   xcell.NumberFormat = "@"
   xcell.Value = Left(xcell.Value, 12)
Next xcell
End Sub

 

[matoupitou]

merci bcp bcp
je n'ai pas besoin du CTRL+G (c bizarre ?)
j'ai attaché la macro à une commande ds ma barre perso d'excel : un clic et YOUPI!

 

[mapomme]

je n'ai pas besoin du CTRL+G (c bizarre ?)

Non, c'est juste une autre manière de lancer la macro

j'ai attaché la macro à une commande ds ma barre perso d'excel : un clic et YOUPI!

C'est une méthode pratique qui permet de se passer du raccourci clavier (et donc de devoir le mémoriser)