Sub test() Dim baliseDebut As String Dim baliseFin As String Dim countBD As Integer Dim countBF As Integer Dim Resultat As String Dim strVariable As String 'Texte à traiter strVariable = Range("A1").Value 'Parametres baliseDebut = "<div" countBD = Len(baliseDebut) baliseFin = "</div>" countBF = Len(baliseFin) 'On cherche la position de début et de fin de la chaine Debut = InStr(1, strVariable, baliseDebut) ' Position du <div Fin = InStr(1, strVariable, baliseFin) ' Position du </div> Resultat = Mid$(strVariable, Debut + countBD, (Fin - countBF) - Debut) End Sub
la fermeture du vba (exe))
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionExcel--->VBA NON je veux pas utiliser le vba dans le développeur de Excel
Vba --->Exel Oui
durant la fonction macroUne Macro est ce qu'on pourrait apparenter à un SUB.
des que la macro se "termine" tous les balise se restaure sur internetBalise est un mot féminin et tu utilise du pluriel ..donc : TOUTES les baliseS se restaurENT..
Sub CeciEstUneMACRO() Dim ValCELLULE As String Dim ContenuBalise As String ValCELLULE = Range("A1").Value ContenuBalise = ExtraitContenuBalise(ValCELLULE, "<div", "</div>") 'Suppression de la balise Range("A1").Value = ContenuBalise 'remise de la balise Range("A1").Value = ValCELLULE End Sub Function ExtraitContenuBalise(strVariable As String, baliseDebut As String, baliseFin As String) As String Dim Debut As Integer Dim Fin As Integer Dim countBD As Integer Dim countBF As Integer countBD = Len(baliseDebut) countBF = Len(baliseFin) 'On cherche la position de début et de fin de la chaine Debut = InStr(1, strVariable, baliseDebut) Fin = InStr(1, strVariable, baliseFin) ExtraitContenuBalise = Mid$(strVariable, Debut + countBD, (Fin - countBF) - Debut) End Function