Probleme avec bloc with...Résolu

Question

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

Renfield · Accepted Answer

tu exploites "rngtrouve.Column"

sans même tester si tu as trouvé un résultat...
du coup, rngtrouve est peut etre non utilisable, car ne referencant aucune vraie plage.

Renfield · Answer

tu demande a utiliser rngtrouve, alors que tu ne l'a pas créée ni référencée.

rngtrouve ne 'pointe' nulle part...

surtout que ton With, ici est inutile.

faire, donc:
Set rngtrouve = ActiveSheet.Rows(2).Cells.Find(what:=semaine) 
colonne = rngtrouve.Column

Jesusdenazarrete · Answer

Merci pour la rapidité de réponse...

Que veux tu dire pas ne point nulle part?

J'ai essayé en supprimant le bloc with et, toujours la même erreur 91 du bloc with... Comment ca se fait?

Le pire c'est que taxto le même code fonctionnait avant...

Jesusdenazarrete · Answer

C'est bon, probleme réglé, tu avais raison, j'avais pas activé la bonne feuille et du coup, il ne trouvait pas la valeur et partait en erreur 91...

Probleme avec bloc with...

4 réponses

Votre réponse