Bonjour
J'ai ce code qui fonctionne sur d'autres classeurs sans aucun problème, mais qui ne fonctionne pas sur ce classeur, j'ai passé 4 heures à tout essayer, mais rien n'y fait, j'ai toujours Erreur d'exécution 6 Dépassement de capacité...ce code fait suite à d'autres lignes de code par :
Call Module2SupprimeMotAdroitePour1ColonneAvecBoucle

Je procède ainsi: j'ai mon module principal qui Appelle par Call les modules au fur et à mesure de l'avancement de leurs bon fonctionnement, et là quand j'appel ce lui ci, j'ai ce beug dont je ne comprends pas...

Je ne sais plus quoi faire...

Ce code supprime le mot de droite d'une chaine.

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Module2SupprimeMotAdroitePour1ColonneAvecBoucle()
 
Dim derlig As Integer, i As Integer
  derlig = Range("B:B").SpecialCells(xlCellTypeLastCell).Row
  For i = 1 To derlig
    Range("B" & i).Value = Mid(Trim(Range("B" & i).Value), 1, InStrRev(" " & Trim(Range("B" & i).Value), " ") - 1)
  Next
End Sub