XL 2016 Macro pour réduire le nombre de caracteres via input box

davidoffkrk · 25 Mai 2020

Bonjour

Je souhaiterais créer une macro VBA qui permettrait de sélectionner plusieurs cellules sur excel (via l’input box) et réduirait automatiquement les cellules qui font plus de 10 caractères via la fonction LEFT ( pour les cellules de moins de 10 caractères aucune action de la macro)

J’ai testé la macro ci dessous mais cela fonctionne uniquement quand je sélectionne une cellule seulement.

Si une ame genereuse serait en mesure de m’aider ca serait super

Merci !

Ma macro :

Sub cut()
DIm rng as range

Set rng=Application.inputbox("Choisir cellules", type=8)
If not rng is nothing then
MyArray=rng

End if
If len(rng.value) > 10 Then
rng.value = VBA.left (rng,10)
End if
End sub

jmfmarques · 25 Mai 2020

Bonjour
Prends s'il te plait la bonne habitude de mettre ici un copié/collé exact du code écrit (ce n'est pas le cas).

VB:

For Each toto In rng.Cells
  If Len(toto.Value) > 10 Then
    toto.Value = Left(toto.Value, 10)
  End If
Next

jmfmarques · 25 Mai 2020

Bonjour
Prends s'il te plait la bonne habitude de mettre ici un copié/collé exact du code écrit (ce n'est pas le cas).

VB:

For Each toto In rng.Cells
  If Len(toto.Value) > 10 Then
    toto.Value = Left(toto.Value, 10)
  End If
Next

davidoffkrk · 25 Mai 2020

jmfmarques à dit:
Bonjour
Prends s'il te plait la bonne habitude de mettre ici un copié/collé exact du code écrit (ce n'est pas le cas).

VB:

For Each toto In rng.Cells If Len(toto.Value) > 10 Then toto.Value = Left(toto.Value, 10) End If Next

Bonjour jmfmarques

Merci a toi ca fonctionne au top !

PS: je ferais attention de bien copié/collé le code pour la prochaine !

David

XL 2016 Macro pour réduire le nombre de caracteres via input box

davidoffkrk

XLDnaute Nouveau

jmfmarques

jmfmarques

XLDnaute Accro

davidoffkrk

XLDnaute Nouveau

Discussions similaires