probleme de la fonction Left

[HaiseRom]

Bonjour,

J'ai deux pc avec Excel 2003 mais ils ont quelques différences.
Dans le premier tout marche bien dans le second il y a un pb avec la fonction Left :

si je laisse :
Application.Left(Sheets("Données").Range("L1").Value, 3) = "LUP"
il me dit erreur trop d'argument

si je remplace par :
Left(Sheets("Données").Range("L1").Value, 3) = "LUP"
il me dit qu'il faut un tableau

Pouvez-vous me dire ce qui ne vas pas.
Merci
ps: je mets ma macro du fichier Excel ici bas .


Sub FormulaireClick()

With ActiveWindow
.ScrollRow = Cells(1, 1).Row
.ScrollColumn = Cells(1, 1).Column
End With

Sheets("Documentation_essais").Unprotect Password:="Jenny"
Sheets("Documentation_essais").Activate
Range("A1").EntireRow.Select

If ActiveSheet.AutoFilterMode = True Then
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
Else
Selection.AutoFilter
End If

Columns("A:W").Select
Range("W1").Activate
Selection.Sort Key1:=Range("W2"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Documentation_essais").Protect Password:="Jenny", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True

With ActiveWindow
.ScrollRow = Cells(1, 1).Row
.ScrollColumn = Cells(1, 1).Column
End With

Range("A1").Select
Application.ScreenUpdating = False

If Sheets("Données").Visible = True Then Sheets("Données").Visible = xlVeryHidden
If Sheets("Données").Range("CA1").Value = "OUVERTURE" Then Accueil.Show

If Sheets("Données").Range("CA1").Value = "CREATION" Then
If Application.Left(Sheets("Données").Range("L1").Value, 3) = "LUP" Then 'ici est mon probleme
With NouvelEssai
.LUP.Visible = True
End With
Else
With NouvelEssai
.LUP.Visible = False
End With
End If
NouvelEssai.Show
End If


If Sheets("Données").Range("CA1").Value = "MODIFICATION" Then
If Left(Sheets("Données").Range("L1").Value, 3) = "LUP" Then
With EssaisExistants
.LUP.Visible = True
End With
Else
With EssaisExistants
.LUP.Visible = False
End With
End If
EssaisExistants.Show
End If
End Sub

 

[Pierrot93]

Re : probleme de la fonction Left

Bonjour,

regarde dans l'éditeur vba si dans les références, tu n'en aurais pas une de manquante... editeur vba => barre de menu => outils => références. si 'est le cas décoche la... sinon tu peux essayer ceci :

if vba.Left(Sheets("Données").Range("L1").value,3)= "LUP"

bon après midi
@+

 

[HaiseRom]

Re : probleme de la fonction Left

Merci pierrot tu as été d'une grande d'aide ça marche je te remercie encore.