TELECHARGEMENTS Plus de 250 applications Excel sont disponibles gratuitement en téléchargement! Budget, gestion de comptes Gestion commerciale, personnel Plannings, calendriers Etc.
Bonjour, J'ai un code, cependant j'ai un message d'erreur me disant "Variable objet ou variable de bloc With non définie" Comment cela se fait-il? Voici le code: Public Sub Delete_Worksheets() Dim ws As Worksheet With Application. DisplayAlerts = False. ScreenUpdating = False End With Select Case Case "Accueil", "Données" ' ne rien faire Case Else ' supprime la feuille End Select End Sub Merci d'avance Personne pour résoudre mon petit problème. eriiic Fanatique d'Excel Messages 11'682 Votes 1'647 Excel 2019fr Bonjour, déjà tu indenterais ton code et tu utiliserais les balises Code du site pour un affichage propre tu aurais sans doute plus de lecteurs... avec ws=nothing qu'espères-tu avoir d'autre qu'une erreur? Tu crois qu'excel voit le nom de la feuille que tu regardes? eric En essayant continuellement, on finit par réussir.
- Variable objet ou variable de bloc with non définir o
- Variable objet ou variable de bloc with non définir -
- Réparer l'erreur 91 Variable non définie
- Positive
Variable objet ou variable de bloc with non définir o
- Variable objet ou variable de bloc with non définir les
- Lave vaisselle vente privée
- Réparer l'erreur 91 Variable non définie
- Variable objet ou variable de bloc with non définie ou définit
- Variable objet ou variable de bloc with non définie par
- Variable objet ou variable de bloc With non définie
- Variable objet ou variable de bloc with non définir c
Variable objet ou variable de bloc with non définir -
Si vous ne souhaitez pas activer Option Strict, recherchez dans votre code toutes les variables qui ont été spécifiées sans type ( Dim x au lieu de Dim x As String) et ajoutez le type prévu à la déclaration. Assurez-vous que vous ne faites pas référence à une variable objet qui a été définie sur Nothing. Recherchez le mot clé Nothing dans votre code et modifiez votre code afin que l'objet ne soit pas défini sur Nothing jusqu'à ce que vous l'ayez référencé. Assurez-vous que toutes les variables de tableau sont dimensionnées avant d'y accéder. Vous pouvez affecter une dimension lors de la création initiale du tableau ( Dim x(5) As String au lieu de), ou utiliser le ReDim mot clé pour définir les dimensions du tableau avant d' Dim x() As String y accéder. Assurez-vous que votre With bloc est initialisé en exécutant le point d'entrée de l' With instruction. Voir aussi
Déclaration des variables objets
ReDim (instruction)
With (instruction)
La forme complète de ce message d'erreur Excel est ""Erreur d'exécution 91: Variable d'objet ou variable de bloc non définie". L'une des raisons de la génération de ce message d'erreur est la corruption du fichier intitulé "". La corruption de ce dossier peut résulter de différents facteurs. Il pourrait y avoir un problème avec le système d'exploitation. Le logiciel MS Excel a quelques problèmes, ce qui le fait planter et corrompre ce fichier. Un virus ou un bogue peut être présent sur le PC qui corrompt ce fichier. Une panne de courant soudaine a provoqué la fermeture inattendue de ce dossier et a fini par le corrompre. Partie 1: Télécharger gratuitement le meilleur outil de réparation d'Excel
Les erreurs d'exécution de tout type sont assez frustrantes à gérer. L'erreur d'exécution 91 d'un fichier Excel n'est pas différente. Néanmoins, vous pouvez réparer l'erreur 91 de variable non définie. Le seul problème est de trouver un excellent outil de réparation suffisamment performant pour accomplir cette tâche efficacement.
Réparer l'erreur 91 Variable non définie
Il pourrait ne pas être un ActiveWorkbook si votre add-in est le seul classeur chargé... Original L'auteur Santhi Kabir | 2013-07-17
Positive
ListIndex = -1 Then
'fin de la procédure
Exit Sub
Else
'récupère la ligne dans la feuille qui correspond
'à la sélection dans le listboxArtDes
Ligne =. ListIndex
End If
'Récupération des valeurs à modifier
With ComboBoxArticle
If. ListIndex <> -1 Then
Set Plg_A_Copier1 = RgComboBoxArticle1(. ListIndex + 1) 'code article
Set Plg_A_Copier2 = RgComboBoxArticle2(. ListIndex + 1) 'désignation
'Remplacement dans la ListBoxProdCde
(Ligne, 1) = 'code article
(Ligne, 2) = 'désignation
End Sub
j'ai toujours l'erreur 91 qui revient alors que pour moi j'ai bien tout déclaré
où est l'erreur? merci pour votre aide
FiDSDF
Réponses
j'ai enfin compris!!!! les reférences des articles de la
ComboBoxArticle doivent commencer par du Texte, or les 5 premières valeurs de mon
stock réel étaient des nombres:
22050
22051
etc puis A00025 par exemple
donc j'ai traité toutes les refs sous forme de texte et là tout marche à merveille! ouf...
merci pour ton aide dans ces recherches
Marqué comme réponse
mardi 8 novembre 2016 23:34