Copier le contenu partiel d'une cellule dans une autre
Résolu
mikel831
Messages postés
200
Date d'inscription
mardi 23 octobre 2012
Statut
Membre
Dernière intervention
14 février 2025
-
8 avril 2024 à 17:02
mikel831 Messages postés 200 Date d'inscription mardi 23 octobre 2012 Statut Membre Dernière intervention 14 février 2025 - 8 avril 2024 à 19:16
mikel831 Messages postés 200 Date d'inscription mardi 23 octobre 2012 Statut Membre Dernière intervention 14 février 2025 - 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 ?
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
- Excel cellule couleur si condition texte - Guide
- Verrouiller une cellule excel - Guide
- Le fichier à télécharger correspond au contenu brut d’un courrier électronique. de quel pays a été envoyé ce message ? - Guide
1 réponse
cousinhub29
Messages postés
1011
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
18 février 2025
355
8 avril 2024 à 18:38
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
8 avril 2024 à 19:16
Merci pour ta réponse!
Super, ça fonctionne très bien !
Cordialement, Mikel