valeur droite d'une cellule

Question

bonjour à tous,

petite question sous VBA sous Excel 2007 , windows XP

j'ai dans une cellule avec ce genre d'infos

N° Sérialisation : 00000M61

comment faire pour récupérer uniquement ce qui se trouve après les ":"
je dois récup l'info pour faire un copier/coller dans un autre fichier
les infos après les ":" peuvent changées, soit des 000 au début, soit des lettres.


merci à tous

Utilisateur anonyme · Answer

Bonjour,

Exemple type :


Sub Capture()

    Dim Valeur As String
    Dim Droite As String
    Dim Position As String
    
    Valeur = "No Serialisation : 00000M61"
    ' ou encore
    Valeur = Activecell.Value
    Position = InStr(1, Valeur, ":", vbTextCompare)
    Droite = Right$(Valeur, (Len(Valeur) - Position))
    
    MsgBox Droite

End Sub
'


Cdt

Lupin

Valeur droite d'une cellule

1 réponse

Discussions similaires

Newsletters