Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Comment trouver le nombre de caractères remplacés ?

Comment trouver le nombre de caractères remplacés ?

11 réponses
Avatar
Gouap
Bonjour à tous,

Juste une petite question :

Existe-il un moyen de savoir le nombre de caractère que cette ligne à
remplacés ?

Cells.Replace What:="#", Replacement:=" "

Bonne fin de semaine à vous !
@+
Philippe
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
1 2
Avatar
Gouap
Salut FFO !

J'ai testé ton code ... mais j'obtients le message d'erreur suivant :

"Dépassement de capacité" à la ligne Cells.Count

@+


"FFO" a écrit dans le message de news:

Rebonjour à toi

Une adaptation de ma proposition aux nombres de modifications et non de
cellules modifiées :

Paramètre1 = InputBox("Veuillez saisir le paramètre à modifier",
"Paramètre
à modifier")
Paramètre2 = InputBox("Veuillez saisir le paramètre de remplacement",
"Paramètre de remplacement")
Données = 0
For i = 1 To Cells.Count
On Error Resume Next
Données = Cells.Find(What:=Paramètre1, After:=Range("A1"),
LookIn:=xlValues, Lookat:=xlPart).Address
If Données <> 0 Then
n = n + UBound(Split(Range(Données), Paramètre1))
Range(Données) = Replace(Range(Données), Paramètre1, Paramètre2)
Données = 0
Else
Exit For
End If
Next
If n <> 0 Then
MsgBox (n & " Modification(s)")
Else
MsgBox ("Aucune cellule trouvée avec le Paramètre " & Paramètre1)
End If


Peut être mieux pour toi

Dis moi !!!!!



1 2