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