Copier le contenu partiel d'une cellule dans une autre
Résolu
mikel831
Messages postés
220
Date d'inscription
Statut
Membre
Dernière intervention
-
mikel831 Messages postés 220 Date d'inscription Statut Membre Dernière intervention -
mikel831 Messages postés 220 Date d'inscription Statut Membre Dernière intervention -
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 ?
A voir également:
- Copier le contenu partiel d'une cellule dans une autre
- Comment copier une vidéo youtube - Guide
- Aller à la ligne dans une cellule excel - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
- Bloquer une cellule excel - Guide
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Excel
1 réponse
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
Merci pour ta réponse!
Super, ça fonctionne très bien !
Cordialement, Mikel