Soit le texte de code suivant (Excel VBA) :
Option Explicit
Dim semaine As String
Dim rngtrouve As range
Dim colonne As Integer
Dim i As String
Sub graissage()
'Automatisation du graissage
Worksheets(3).Select
ActiveSheet.Name = "S00"
semaine = InputBox("Quelle semaine?")
Sheets("S00").Select
Sheets("S00").Name = ("S" & semaine)
Cells(4, 2).Value = semaine
With rngtrouve
Set rngtrouve = ActiveSheet.Rows(2).Cells.Find(what:=semaine)
colonne = rngtrouve.Column
End With
Worksheets("données").range("a1:DR500").Select
Selection.AutoFilter
Selection.AutoFilter , field:=[colonne], Criteria1:="<>"
Worksheets("données").Select
Worksheets("données").range(Cells(3, colonne), Cells(500, colonne)).Select
Selection.Copy
Worksheets("S" & semaine).Cells(3, colonne).Activate
With Selection
.PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False
End With
Worksheets("données").Cells("F3").EntireColumn.Select
Selection.Copy
Worksheets("S" & semaine).Cells("E8").Select
Selection.Paste
Worksheets("données").Cells("D3").EntireColumn.Select
Selection.Copy
Worksheets("S" & semaine).Cells("D8").Select
Selection.Paste
Worksheets("données").Cells("A3").EntireColumn.Select
Selection.Copy
Worksheets("S" & semaine).Cells("A8").Select
Selection.Paste
End Sub
Je cherche a comprendre pourquoi j'ai une +*$%"& erreur 91 avec mon bloc with surligné en rouge... Qqun peut m'aider svp?
Merci d'avance pour vos réponses...