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

[davidoffkrk]

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]

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).

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

 

[davidoffkrk]

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).

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