Comment faire agir cette macro sur un groupe de cellules

Le
f4crw
j'ai une macro (ChangeCaract) pour les formats téléphone et qui me débarasse
des caractères inutiles,
cette procedure fonctionne très bien quand je sélectionne une cellule.
Mais et c'est là mon problème, je voudrais la faire agir sur un groupe de
cellules que je sélectionne dans un tableau.
Merci à ceux qui peuvent m'aider à créer une boucle ou autre.

Sub ChangeCaract()
ActiveCell.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
Saisie = ActiveCell.Value
ActiveCell.Name = "Appele"
'changer ou supprimer les caractères interdits dans les Numéros
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "")
Num = Application.WorksheetFunction.Substitute(Num, ",", "")
Num = Application.WorksheetFunction.Substitute(Num, ".", "")
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
ActiveCell.Value = Num
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #21330221
Bonjour.
Tu peux utilliser :

Sub ChangeCaract()
Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
For Each c In Selection
Saisie = c.Value
'c.Name = "Appele"
'changer ou supprimer les caractères interdits dans les Numéros
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "")
Num = Application.WorksheetFunction.Substitute(Num, ",", "")
Num = Application.WorksheetFunction.Substitute(Num, ".", "")
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
c.Value = Num
Next c
End Sub

sauf que dans ta procédure initiale tu nommes la cellule "Appele" alors
que je ne sais pas quoi faire quand on traite un lot de cellules. A
tout hasard, j'ai commenté la lilgne.

Daniel


j'ai une macro (ChangeCaract) pour les formats téléphone et qui me débarasse
des caractères inutiles,
cette procedure fonctionne très bien quand je sélectionne une cellule.
Mais et c'est là mon problème, je voudrais la faire agir sur un groupe de
cellules que je sélectionne dans un tableau.
Merci à ceux qui peuvent m'aider à créer une boucle ou autre.

Sub ChangeCaract()
ActiveCell.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
Saisie = ActiveCell.Value
ActiveCell.Name = "Appele"
'changer ou supprimer les caractères interdits dans les Numéros
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "")
Num = Application.WorksheetFunction.Substitute(Num, ",", "")
Num = Application.WorksheetFunction.Substitute(Num, ".", "")
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
ActiveCell.Value = Num
End Sub
f4crw
Le #21330441
Merci Daniel c'est bon ça marche, la cellule "Appele" était utilisée dans
une autre procédure.
Je te remercie encore une fois, mais je suis perdu quand il est question de
boucles
Régis

"Daniel.C"a écrit dans le message de news:
Bonjour.
Tu peux utilliser :

Sub ChangeCaract()
Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
For Each c In Selection
Saisie = c.Value
'c.Name = "Appele"
'changer ou supprimer les caractères interdits dans les Numéros
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "")
Num = Application.WorksheetFunction.Substitute(Num, ",", "")
Num = Application.WorksheetFunction.Substitute(Num, ".", "")
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
c.Value = Num
Next c
End Sub

sauf que dans ta procédure initiale tu nommes la cellule "Appele" alors
que je ne sais pas quoi faire quand on traite un lot de cellules. A tout
hasard, j'ai commenté la lilgne.

Daniel


j'ai une macro (ChangeCaract) pour les formats téléphone et qui me
débarasse
des caractères inutiles,
cette procedure fonctionne très bien quand je sélectionne une cellule.
Mais et c'est là mon problème, je voudrais la faire agir sur un groupe de
cellules que je sélectionne dans un tableau.
Merci à ceux qui peuvent m'aider à créer une boucle ou autre.

Sub ChangeCaract()
ActiveCell.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
Saisie = ActiveCell.Value
ActiveCell.Name = "Appele"
'changer ou supprimer les caractères interdits dans les Numéros
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "")
Num = Application.WorksheetFunction.Substitute(Num, ",", "")
Num = Application.WorksheetFunction.Substitute(Num, ".", "")
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
ActiveCell.Value = Num
End Sub




Publicité
Poster une réponse
Anonyme