Copier le contenu partiel d'une cellule dans une autre Résolu

Question

Bonjour!
Dans une feuille Excel, j'ai une cellule qui contient un texte de la forme "xyz.. R1 -abcdef ..." où les sous-chaîne xyz... et abcdef... sont de longueur variable..
Dans une macro Test, je localise cette cellule:
Dim MaPlage As Range
Set MaPlage = Sheets("Feuil2").UsedRange.Find("R1 -")
Je souhaite ensuite extraire tous les caractères situés après R1- et les coller dans une autre cellule. Comment procéder ?

cousinhub29 · Answer

Bonjour,

Avec ce code, peut-être?

Sub TrouveLeMot()
Dim MaPlage As Range
Dim Pos As Byte
Dim ChaineATrouvrer As String
Set MaPlage = Sheets("Feuil1").UsedRange.Find("R1 -")
Pos = InStrRev(MaPlage, "R1 -") 'Recherche de la position de "R1 -" à partir de la fin
ChaineATrouvrer = Mid(MaPlage, Pos + 4, Len(MaPlage) - Pos) 'ou + 5, s'il y a un espace après le tiret
End Sub

Bonne fin d'apm

Copier le contenu partiel d'une cellule dans une autre

1 réponse

Discussions similaires

Newsletters