[Résolu] [VBA] Erreur 91

[DonBeuBeu]

Salut tout l'monde!

Voilà un petit souci avec mon code, au début j'ai un userform qui me permet de choisir entre plusieurs machines (qui va servir sur le dernier paragraphe du code)

Private Sub OK_Click()

'Introduction
Application.StatusBar = "En cours d'optimisation"
Application.ScreenUpdating = False
Boite_de_dialogue.Hide

'Création des variables
Dim référence As String, nom As String, chemin As String
Dim compteur As Byte
Dim plage As Range

'Création de l'onglet "Récup données"
Dim Feuille As Worksheet
Set Feuille = Sheets.Add(After:=Sheets(Sheets.Count))
Feuille.Name = "Récup données"

'Variable de nom
nom = ActiveWorkbook.Name

'Définition du chemin + plage
If ABC.Value = True Then
chemin = "V:\production\Atelier_Meca\Feuille opt  ABC\"
plage = Range("D6:D14,D17:D22,D26:D28")
ElseIf C65.Value = True Then
chemin = "V:\production\Atelier_Meca\Feuille_Opt_C65\U30-mobile\"
plage = Range("D7:G18,D21:G32,D35:G46")
ElseIf C200.Value = True Then
chemin = "V:\production\Atelier_Meca\Feuille_Opt_C200\U20\"
plage = Range("E7:G20,E23:G36,E39:G52")
ElseIf G160.Value = True Then
chemin = "V:\production\Atelier_Meca\Feuille_Opt_G160\U80\"
plage = Range("E7:G18,E21:G32")
ElseIf G200.Value = True Then
chemin = "V:\production\Atelier_Meca\Feuille_Opt_G200\Feuille d'opt\"
plage = Range("E7:G20,E23:G36")
ElseIf G200WHU.Value = True Then
chemin = "V:\production\Atelier_Meca\Feuille_Opt_G200_WHU\BARRES\U20\"
plage = Range("E7:G20,E23:G36")
ElseIf G300.Value = True Then
chemin = "V:\production\Atelier_Meca\Feuille_Opt_G300\U30\"
plage = Range("D7:G18,D21:G32")
ElseIf NAKA.Value = True Then
chemin = "V:\production\Atelier_Meca\Nakamura_1\"
plage = Range("")
End If

Le plus important est le dernier paragraphe, admettons que la valeur sélectionné dans la userform soit "G200" c'est donc cette ligne qui sera prise en compte:

ElseIf G200.Value = True Then
chemin = "V:\production\Atelier_Meca\Feuille_Opt_G200\Feuille d'opt\"
plage = Range("E7:G20,E23:G36")

Et c'est arrivé sur la dernière ligne (plage =...) qu'il se met en erreur 91 "Variable objet ou variable de bloc With non défini" ....

J'ai essayer de mettre un with avant le plage et un EndWith après... Sans succès...

Je vous joint le fichier... Merci d'avance!

 

[Pierrot93]

Re : [VBA] Erreur 91

Bonjour,

pour un objet, faire précéder l'initialisation d'un "set" :

Set plage = Range("E7:G20,E23:G36")

bonne journée
@+

 

[DonBeuBeu]

Re : [VBA] Erreur 91

Impeccable merci bien

Bonne journée!