Fonction Left, Right

Version imprimable

31/07/2016, 22h44
Skeels

Fonction Left, Right

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:

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

Merci d'avance :)

Bonjour,

Pas testé

Code:

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

01/08/2016, 09h55
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:

ÀGauche = Left(UnTexte, longueur)

Mon essai :
Code:

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
01/08/2016, 10h19
Philippe Tulliez

Bonjour,

Citation:

J'ai essayé plus au moins votre programme

C'est le "plus ou moins" qui pose problème.
01/08/2016, 10h29
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 ?
01/08/2016, 10h40
Philippe Tulliez
Bonjour,

Citation:

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:

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
02/08/2016, 23h20
Skeels

Merci beaucoup cela fonctionne.

Pour appliquer cette fonction à toute mes feuilles sauf une comment puis-je m'y prendre ?

Bonjour,

Tu peux essayer ceci:

Code:

1
2
3
4
5
6
7
dim sh as sheet
for each sh in thisworkbook.sheets
'ici la condition sauf une sheet, par exemple
if not(sh.name = "lenomdelafeuillequetuveuxpas") then
'ton code avec sh. devant le range
end if
next sh

Bonjour,

Citation:

Pour appliquer cette fonction à toute mes feuilles sauf une comment puis-je m'y prendre ?

La boucle qui parcourt les feuilles d'un classeur (ici le classeur où se trouve le code VBA)
Code:

1 2 For Each sht In ThisWorkbook.Worksheets Next
La structure conditionnelle IF permet de ne procéder à la découpe du contenu des cellules que si le nom de la feuille est différente de MENU.
J'utilise la fonction LCase pour ne pas avoir de problème de casse et la fonction Trim pour éviter les problèmes de caractères espacés

Code complet
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub T() Dim Cel As Range, sht As Worksheet For Each sht In ThisWorkbook.Worksheets With sht If Trim(LCase(sht.Name)) <> "menu" Then For Each Cel In .Range("A2:A500") With Cel If Len(.Value) > 3 Then .Value = Left(.Value, Len(.Value) - 3) End With Next Cel End If End With Next sht End Sub
S'il y a plusieurs feuilles à vérifier, je te conseille l'utilisation de la structure conditionnelle Select Case

Re,

La boucle fonctionne, mais la condition sur le titre de la feuille non. Pourtant j'utilise la procédure Wb.name dans ma feuille qui me permet de définir le titre en haut de page ce qui me permet de vérifier le contenue de Wb.name. Ici il s'agit bien de "Accueil"avec ou sans LCase et Trim cela ne fonctionne pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
For Each Wb In ThisWorkbook.Worksheets
 
        With Wb
 
        If Wb.Name <> "Accueil" Then
            Wb.Range("B1:B500").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
            Wb.Range("A1").EntireRow.Insert
            Wb.Range("A1").EntireRow.Insert
            Wb.Range("H1").Value = Wb.Name
            Wb.Cells(1, 8).Font.Bold = True
            Wb.Cells(1, 8).HorizontalAlignment = xlCenter
            Wb.Range("A3:I3").Font.Bold = True
            Wb.Range("A3:I3").HorizontalAlignment = xlCenter
         End If
         End With
     Next Wb

Bonjour
tout d'abords j'utiliserais une variable moins trompeuse en effet le plus souvent Wb représente le workbook

ensuite le lcase sur le name devrait résoudre ton soucis ,si ce n'est pas le cas alors il n'y a pas de sheets "Acceuil" ou "acceuil"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dim sh as worksheet
For Each sh In ThisWorkbook.Worksheets
 
        With sh 
 
        If lcase(sh.Name) <> "accueil" Then
            sh.Range("B1:B500").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
            sh.Range("A1").EntireRow.Insert
            sh.Range("A1").EntireRow.Insert
            sh.Range("H1").Value = Wb.Name
            sh.Cells(1, 8).Font.Bold = True
            sh.Cells(1, 8).HorizontalAlignment = xlCenter
            sh.Range("A3:I3").Font.Bold = True
            sh.Range("A3:I3").HorizontalAlignment = xlCenter
         End If
         End With
     Next sh

03/08/2016, 17h44
Skeels
Le problème est résolu il s'agissait bien d'un problème de majuscules ! :)

La méthode Select case est pratique si on a plus de 2/3 feuilles différentes or là j'aimerai juste le faire pour deux feuilles :
Code:

1 2 If Ws.Name <> "Accueil" And "Annexes" Then
Mais j'ai une incompatibilité de types.

Bonjour,

Citation:

Le problème est résolu il s'agissait bien d'un problème de majuscules !

C'est pourtant ce que j'ai expliqué dans une partie de ma dernière réponse.

Citation:

J'utilise la fonction LCase pour ne pas avoir de problème de casse et la fonction Trim pour éviter les problèmes de caractères espacés

Trim et LCase sont des fonctions très utiles à utiliser lorsque l'on teste des chaînes de caractères

Citation:

La méthode Select case est pratique si on a plus de 2/3 feuilles différentes or là j'aimerai juste le faire pour deux feuilles :

Aussi signalé dans ma dernière réponse

Citation:

S'il y a plusieurs feuilles à vérifier, je te conseille l'utilisation de la structure conditionnelle Select Case

Exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub T() Dim Cel As Range, sht As Worksheet For Each sht In ThisWorkbook.Worksheets With sht Select Case Trim(LCase(.Name)) Case "menu", "param" ' On ne fait rien Case Else For Each Cel In .Range("A2:A500") With Cel If Len(.Value) > 3 Then .Value = Left(.Value, Len(.Value) - 3) End With Next Cel End Select End With Next sht End Sub

03/08/2016, 19h59
Skeels

Bonsoir,

C'était une erreur de ma part et non une erreur liée au LCase au Trim. Oui tout avait été dit mais n'est il pas possible de passer par un If + un Or ou AND ?

C'était de la simple curiosité :)

Merci beaucoup en tout cas tous mes problèmes ont été réglé.
04/08/2016, 07h54
Philippe Tulliez

Bonjour,

Citation:

C'était une erreur de ma part et non une erreur liée au LCase au Trim

Mais c'est exactement ce que j'ai indiqué et je reprécise "Pour éviter les problèmes de casse, j'utilise LCase".

Citation:

mais n'est il pas possible de passer par un If + un Or ou AND ?

Bien évidemment

Code:

If LCase(.Name) <> "menu" And LCase(.Name) <> "param" Then
04/08/2016, 09h14
EoWinn

Pourquoi macroter ce qui existe deja en fonction dans Excel ?????

Code:

=GAUCHE(C10;NBCAR(C10)-3)