Discussion :

[Skeels]

Bonsoir,

Je n'arrive pas à trouver la solution dans ma situation pour supprimer les trois derniers caractères de toutes les cellules de ma colonne allant de Range("A3:A500")

J'ai réussi dans un de mes programmes à utiliser cette fonction mais en passant par des selects. Ce coup-ci je souhaite l'appliquer a toute ma plage d'un coup.

Code de la dernière fois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Right(ActiveCell, Len(ActiveCell) - InStr(ActiveCell, "") - 3)

Merci d'avance

[clementmarcotte]

Bonjour,

Pas testé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
sub MoinsLong
     dim longueur as integer
     dim  as String
     for each cellule in range("a3:a500")
        UnTexte = cellule.text
        longueur = len(UnTexte)-3
        ÀGauche = Left(UnTexte,longueur)
        cellule.value = ÀGauche
     next
end sub

[Skeels]

J'ai essayé plus au moins votre programme en remplaçant le texte par la valeur de la cellule active mais cela ne fonctionne pas. Lorsque j'essaye avec vos instructions j'obtiens la même erreur qui est "Argument ou appel de procédure incorrect.
Sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ÀGauche = Left(UnTexte, longueur)

Mon essai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each Cellule In Range("A3:A500")
   longueur = Len(ActiveCell.Value) - 3
   Agauche = Left(ActiveCell.Value, longueur)
   ActiveCell.Value = Agauche
Next

Merci

[Philippe Tulliez]

Bonjour,

J'ai essayé plus au moins votre programme

C'est le "plus ou moins" qui pose problème.

[Skeels]

J'ai réalisé les deux essais avec le code fournie à l'identique et un code modifié qui répondait à mon besoin mais j'obtiens la même erreur sur les deux qui est : "Argument ou appel de procédure incorrect." Pour vous Philippe le programme fonctionne ?

[Philippe Tulliez]

Bonjour,

Pour vous Philippe le programme fonctionne ?

Je n'ai pas testé le programme de Clément mais il est évident que votre programme ne peut pas fonctionner avec une boucle For Each qui parcourt toutes les cellules de la plage A3:A500 alors que la modification se fait sur la cellule active.
Voici un programme qui enlève les trois caractères de droite des cellules de la plage A2:A500.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub T()
  Dim Cel as Range
  For Each Cel in Range("A2:A500")
   With Cel
     If Len(.Value) > 3 Then .Value = Left(.Value, Len(.Value) - 3)
   End With
  next
End Sub