probleme de la fonction Left

HaiseRom

XLDnaute Nouveau
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

XLDnaute Barbatruc
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 :
Code:
if vba.Left(Sheets("Données").Range("L1").value,3)= "LUP"

bon après midi
@+
 

Discussions similaires

Réponses
4
Affichages
165

Statistiques des forums

Discussions
311 720
Messages
2 081 904
Membres
101 834
dernier inscrit
Jeremy06510