Bonsoir,
Sur un autre PC( vieux) ,j'ai splité avec Total Commander; je ne parviens
pas à recombiner sur le mien Millenium.
Cela arrive parfois.
Mon Total Commander ne sais pas lire le split.
Auriez-vous une solution ?
Grand merci apr avance
Guy
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour guy,
il y a cette macro personnalisé qui peut remplacer la fonction Split pour les versions antérieur,
Function MotCentre(ByVal Chaine$, _ Optional SeparateurX$ = " ", Optional SeparateurY$ = " ") Dim posX, posY, nbcarT, nbcarX, MotIntérieurDélimité_X nbcarT = Len(Chaine) nbcarX = Len(SeparateurX) posX = Application.Search(SeparateurX, Chaine) posY = Application.Search(SeparateurY, Chaine, posX) MotIntérieurDélimité_X = Right(Chaine, nbcarT - posX - nbcarX + 1) On Error GoTo fin MotCentre = Left(MotIntérieurDélimité_X, posY - posX - nbcarX) Exit Function fin: MotCentre = MotIntérieurDélimité_X End Function
isabelle
Bonsoir, Sur un autre PC( vieux) ,j'ai splité avec Total Commander; je ne parviens pas à recombiner sur le mien Millenium. Cela arrive parfois. Mon Total Commander ne sais pas lire le split. Auriez-vous une solution ? Grand merci apr avance Guy
bonjour guy,
il y a cette macro personnalisé qui peut remplacer la fonction Split pour les versions antérieur,
Function MotCentre(ByVal Chaine$, _
Optional SeparateurX$ = " ", Optional SeparateurY$ = " ")
Dim posX, posY, nbcarT, nbcarX, MotIntérieurDélimité_X
nbcarT = Len(Chaine)
nbcarX = Len(SeparateurX)
posX = Application.Search(SeparateurX, Chaine)
posY = Application.Search(SeparateurY, Chaine, posX)
MotIntérieurDélimité_X = Right(Chaine, nbcarT - posX - nbcarX + 1)
On Error GoTo fin
MotCentre = Left(MotIntérieurDélimité_X, posY - posX - nbcarX)
Exit Function
fin:
MotCentre = MotIntérieurDélimité_X
End Function
isabelle
Bonsoir,
Sur un autre PC( vieux) ,j'ai splité avec Total Commander; je ne parviens
pas à recombiner sur le mien Millenium.
Cela arrive parfois.
Mon Total Commander ne sais pas lire le split.
Auriez-vous une solution ?
Grand merci apr avance
Guy
il y a cette macro personnalisé qui peut remplacer la fonction Split pour les versions antérieur,
Function MotCentre(ByVal Chaine$, _ Optional SeparateurX$ = " ", Optional SeparateurY$ = " ") Dim posX, posY, nbcarT, nbcarX, MotIntérieurDélimité_X nbcarT = Len(Chaine) nbcarX = Len(SeparateurX) posX = Application.Search(SeparateurX, Chaine) posY = Application.Search(SeparateurY, Chaine, posX) MotIntérieurDélimité_X = Right(Chaine, nbcarT - posX - nbcarX + 1) On Error GoTo fin MotCentre = Left(MotIntérieurDélimité_X, posY - posX - nbcarX) Exit Function fin: MotCentre = MotIntérieurDélimité_X End Function
isabelle
Bonsoir, Sur un autre PC( vieux) ,j'ai splité avec Total Commander; je ne parviens pas à recombiner sur le mien Millenium. Cela arrive parfois. Mon Total Commander ne sais pas lire le split. Auriez-vous une solution ? Grand merci apr avance Guy
