En vba comment remplacer dans ma colonne A le caractère "*"
2 réponses
fred33
Bonjour,
En vba comment remplacer dans ma colonne A le caractère "*" qui apparait
dans les cellules comme A3= *1324*
avec ce code :
Columns("A:A").Select
Selection.Replace What:="*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Mais tout est effacé...
Merci pour votre aide!
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
MichD
Bonjour,
Tu adaptes le nom de la feuille :
'--------------------------------- Sub test() With Worksheets("Feuil1") .Range("A:A").Replace "~*", "" End With End Sub '---------------------------------
MichD ------------------------------------------ "fred33" a écrit dans le message de groupe de discussion : 4eb68f90$0$8168$
Bonjour, En vba comment remplacer dans ma colonne A le caractère "*" qui apparait dans les cellules comme A3= *1324* avec ce code : Columns("A:A").Select Selection.Replace What:="*", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:úlse, SearchFormat:úlse, _ ReplaceFormat:úlse Mais tout est effacé... Merci pour votre aide!
Bonjour,
Tu adaptes le nom de la feuille :
'---------------------------------
Sub test()
With Worksheets("Feuil1")
.Range("A:A").Replace "~*", ""
End With
End Sub
'---------------------------------
MichD
------------------------------------------
"fred33" a écrit dans le message de groupe de discussion : 4eb68f90$0$8168$426a74cc@news.free.fr...
Bonjour,
En vba comment remplacer dans ma colonne A le caractère "*" qui apparait
dans les cellules comme A3= *1324*
avec ce code :
Columns("A:A").Select
Selection.Replace What:="*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse
Mais tout est effacé...
Merci pour votre aide!
'--------------------------------- Sub test() With Worksheets("Feuil1") .Range("A:A").Replace "~*", "" End With End Sub '---------------------------------
MichD ------------------------------------------ "fred33" a écrit dans le message de groupe de discussion : 4eb68f90$0$8168$
Bonjour, En vba comment remplacer dans ma colonne A le caractère "*" qui apparait dans les cellules comme A3= *1324* avec ce code : Columns("A:A").Select Selection.Replace What:="*", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:úlse, SearchFormat:úlse, _ ReplaceFormat:úlse Mais tout est effacé... Merci pour votre aide!
fred33
Merci bcp MichD...le tilde * je ne connaissais pas ;)
fred
"MichD" a écrit dans le message de news:j96407$o6q$
Bonjour,
Tu adaptes le nom de la feuille :
'--------------------------------- Sub test() With Worksheets("Feuil1") .Range("A:A").Replace "~*", "" End With End Sub '---------------------------------
MichD ------------------------------------------ "fred33" a écrit dans le message de groupe de discussion : 4eb68f90$0$8168$
Bonjour, En vba comment remplacer dans ma colonne A le caractère "*" qui apparait dans les cellules comme A3= *1324* avec ce code : Columns("A:A").Select Selection.Replace What:="*", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:úlse, SearchFormat:úlse, _ ReplaceFormat:úlse Mais tout est effacé... Merci pour votre aide!
Merci bcp MichD...le tilde * je ne connaissais pas ;)
fred
"MichD" <michdenis@hotmail.com> a écrit dans le message de
news:j96407$o6q$1@speranza.aioe.org...
Bonjour,
Tu adaptes le nom de la feuille :
'---------------------------------
Sub test()
With Worksheets("Feuil1")
.Range("A:A").Replace "~*", ""
End With
End Sub
'---------------------------------
MichD
------------------------------------------
"fred33" a écrit dans le message de groupe de discussion :
4eb68f90$0$8168$426a74cc@news.free.fr...
Bonjour,
En vba comment remplacer dans ma colonne A le caractère "*" qui apparait
dans les cellules comme A3= *1324*
avec ce code :
Columns("A:A").Select
Selection.Replace What:="*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse
Mais tout est effacé...
Merci pour votre aide!
Merci bcp MichD...le tilde * je ne connaissais pas ;)
fred
"MichD" a écrit dans le message de news:j96407$o6q$
Bonjour,
Tu adaptes le nom de la feuille :
'--------------------------------- Sub test() With Worksheets("Feuil1") .Range("A:A").Replace "~*", "" End With End Sub '---------------------------------
MichD ------------------------------------------ "fred33" a écrit dans le message de groupe de discussion : 4eb68f90$0$8168$
Bonjour, En vba comment remplacer dans ma colonne A le caractère "*" qui apparait dans les cellules comme A3= *1324* avec ce code : Columns("A:A").Select Selection.Replace What:="*", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:úlse, SearchFormat:úlse, _ ReplaceFormat:úlse Mais tout est effacé... Merci pour votre aide!
