Copier le contenu partiel d'une cellule dans une autre

Résolu
mikel831 Messages postés 120 Date d'inscription mardi 23 octobre 2012 Statut Membre Dernière intervention 28 avril 2024 - 8 avril 2024 à 17:02
mikel831 Messages postés 120 Date d'inscription mardi 23 octobre 2012 Statut Membre Dernière intervention 28 avril 2024 - 8 avril 2024 à 19:16

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 ? 

1 réponse

cousinhub29 Messages postés 883 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 2 mai 2024 336
8 avril 2024 à 18:38

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


1
mikel831 Messages postés 120 Date d'inscription mardi 23 octobre 2012 Statut Membre Dernière intervention 28 avril 2024 10
8 avril 2024 à 19:16

Merci pour ta réponse!
Super, ça fonctionne très bien !
Cordialement, Mikel

0