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
Partager