COmment je pourrai faire avec une macro pour supprimer des=20
caract=E8res tel que " ,;:. ect... qui se serait gliss=E9 dans=20
des n=E9m=E9ro de t=E9l=E9phone lors l'importation via internet=20
dans une colonne
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
Himselff
la fonction instr(tacellule,"ton caractere") te donne la position de ton caractere dans la cellule, si toutefois il n'en trouve pas il te retourne 0
donc tu peux avec la fonction replace changer les ";" en "" ce qui devrait faire le travail !
Bonne chance !
Fred "manu" wrote in message news:6c2f01c42eed$ba7c9470$ Bonjour
COmment je pourrai faire avec une macro pour supprimer des caractères tel que " ,;:. ect... qui se serait glissé dans des néméro de téléphone lors l'importation via internet dans une colonne
Merci Bonne soirée
Manu
la fonction instr(tacellule,"ton caractere") te donne la position de ton
caractere dans la cellule, si toutefois il n'en trouve pas il te retourne 0
donc tu peux avec la fonction replace changer les ";" en "" ce qui devrait
faire le travail !
Bonne chance !
Fred
"manu" <anonymous@discussions.microsoft.com> wrote in message
news:6c2f01c42eed$ba7c9470$a501280a@phx.gbl...
Bonjour
COmment je pourrai faire avec une macro pour supprimer des
caractères tel que " ,;:. ect... qui se serait glissé dans
des néméro de téléphone lors l'importation via internet
dans une colonne
la fonction instr(tacellule,"ton caractere") te donne la position de ton caractere dans la cellule, si toutefois il n'en trouve pas il te retourne 0
donc tu peux avec la fonction replace changer les ";" en "" ce qui devrait faire le travail !
Bonne chance !
Fred "manu" wrote in message news:6c2f01c42eed$ba7c9470$ Bonjour
COmment je pourrai faire avec une macro pour supprimer des caractères tel que " ,;:. ect... qui se serait glissé dans des néméro de téléphone lors l'importation via internet dans une colonne
Merci Bonne soirée
Manu
sabatier
alors esaie cela, manu, sorti tout droit (ou presque) de l'enregistreur de macros et à modifier selon le signe à changer...
COmment je pourrai faire avec une macro pour supprimer des caractères tel que " ,;:. ect... qui se serait glissé dans des néméro de téléphone lors l'importation via internet dans une colonne
Merci Bonne soirée
Manu
alors esaie cela, manu, sorti tout droit (ou presque) de l'enregistreur
de macros et à modifier selon le signe à changer...
COmment je pourrai faire avec une macro pour supprimer des
caractères tel que " ,;:. ect... qui se serait glissé dans
des néméro de téléphone lors l'importation via internet
dans une colonne
COmment je pourrai faire avec une macro pour supprimer des caractères tel que " ,;:. ect... qui se serait glissé dans des néméro de téléphone lors l'importation via internet dans une colonne
Merci Bonne soirée
Manu
michdenis
Bonjour Manu,
'------------------------------ Sub Remplacer()
Dim Chaine(), Rempl As String
'inscrit tous les caractères à remplacer Chaine = Array(";", ":")
Rempl = "" ' Remplacer par rien
' Adapte nom de la feuille With Worksheets("Feuil1") With .Range("A1:G25") 'Plage à définir For a = 0 To UBound(Chaine) .Replace Chaine(a), Rempl Next End With End With
End Sub '------------------------------
Salutations!
"manu" a écrit dans le message de news:6c2f01c42eed$ba7c9470$ Bonjour
COmment je pourrai faire avec une macro pour supprimer des caractères tel que " ,;:. ect... qui se serait glissé dans des néméro de téléphone lors l'importation via internet dans une colonne
Merci Bonne soirée
Manu
Bonjour Manu,
'------------------------------
Sub Remplacer()
Dim Chaine(), Rempl As String
'inscrit tous les caractères à remplacer
Chaine = Array(";", ":")
Rempl = "" ' Remplacer par rien
' Adapte nom de la feuille
With Worksheets("Feuil1")
With .Range("A1:G25") 'Plage à définir
For a = 0 To UBound(Chaine)
.Replace Chaine(a), Rempl
Next
End With
End With
End Sub
'------------------------------
Salutations!
"manu" <anonymous@discussions.microsoft.com> a écrit dans le message de news:6c2f01c42eed$ba7c9470$a501280a@phx.gbl...
Bonjour
COmment je pourrai faire avec une macro pour supprimer des
caractères tel que " ,;:. ect... qui se serait glissé dans
des néméro de téléphone lors l'importation via internet
dans une colonne
'inscrit tous les caractères à remplacer Chaine = Array(";", ":")
Rempl = "" ' Remplacer par rien
' Adapte nom de la feuille With Worksheets("Feuil1") With .Range("A1:G25") 'Plage à définir For a = 0 To UBound(Chaine) .Replace Chaine(a), Rempl Next End With End With
End Sub '------------------------------
Salutations!
"manu" a écrit dans le message de news:6c2f01c42eed$ba7c9470$ Bonjour
COmment je pourrai faire avec une macro pour supprimer des caractères tel que " ,;:. ect... qui se serait glissé dans des néméro de téléphone lors l'importation via internet dans une colonne