suprimer les ","

[Sobas]

Bonjour a tous,

Je voudrais une commande pour:

Dans la feuil3 colonne A toute les cellule qui contiennes uniquement "," suprimer.
je crois que sa donne quelque chose comme ça:

For i=Sheets(3).columns("A") as string
if cell.valeur = "," then cell.clearcontents
next i

Merci a vous.

 

[Staple1600]

Re : suprimer les ","

Bonsoir

je crois que sa donne quelque chose comme ça:

Je crois le contraire

Sub Macro1()
'Macro1 Macro
' Macro enregistrée le 18/12/2011 par l'agrafe
On Error Resume Next
   Selection.AutoFilter Field:=1, Criteria1:="=*,*", Operator:=xlAnd
    [_FilterDatabase].Offset(1).SpecialCells(12) = Empty
    ActiveSheet.AutoFilterMode = False
End Sub

Le code ci-dessus efface les cellules contenant une ,
(mais elle efface aussi cela par exemple: abc,123)

Pour tester , sélectionnes la colonne à traiter puis lance la macro.

 

[Sobas]

Re : suprimer les ","

Salut, c'est gentil, mais il faut que soit les cellules uniquement avec ","
Désolé.

 

[Staple1600]

Re : suprimer les ","

Re

Il suffit d'adapter la macro précédente...avec ceci

Criteria1:="=,"

PS: Tu n'y avais pas pensé ?

 

[Sobas]

Re : suprimer les ","

ok, c'est nikel, merci a toi désolé j'y avais pas pensé, je ne mis connais pas trop en programmation VBA.

En tout cas merci a toi sa a était efficace