Erreur multiple en vba dont erreur '1004'
mat_h
Messages postés
1
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je travaille actuellement sur un outil d'industrialisation et je rencontre une difficulté dans le développement de mon programme.
Le projet consiste à développer une petite IHM en VBA permettant de donner les caractéristiques d'appareils en fonction d'un code entré par l'utilisateur.
J'essais de réaliser une condition me permettant de comparer d'un côté une plage de donnée qui représente la liste des appareils et de l'autre un caractère provenant d'un textBox. Ceci me permettant de vérifier l'existance de l'appareil dans la base de donnée.
Le code est le suivant:
Plusieurs erreurs apparaissent et je ne sais pas comment les résoudre.
La première est "Erreur 1004: erreur défini par l'application ou par l'objet." -> sur ma plage de donnée.
Après une erreur de type dans ma condition.
Si vous avez un début de solution, merci d'avance pour vos réponses.
Cordialement
Mat_h
Je travaille actuellement sur un outil d'industrialisation et je rencontre une difficulté dans le développement de mon programme.
Le projet consiste à développer une petite IHM en VBA permettant de donner les caractéristiques d'appareils en fonction d'un code entré par l'utilisateur.
J'essais de réaliser une condition me permettant de comparer d'un côté une plage de donnée qui représente la liste des appareils et de l'autre un caractère provenant d'un textBox. Ceci me permettant de vérifier l'existance de l'appareil dans la base de donnée.
Le code est le suivant:
' Procédure d'initialisation de Userform2
Private Sub UserForm_Initialize()
' Décomposition en caractère du code de la TextBox rentré par l'utilisateur
Dim code(4)
code(0) = Left(TextBox4.Value, 1)
...
' Définition des plages de données associés
Dim tab_code(4)
tab_code(0) = Sheets("GammeConfig").Range("tab_1[Code X1]"
...
Dim rg As Range
Set rg = tab_code(0).Find(What:=code(0))
If code(0) = rg Then
....
End If
Plusieurs erreurs apparaissent et je ne sais pas comment les résoudre.
La première est "Erreur 1004: erreur défini par l'application ou par l'objet." -> sur ma plage de donnée.
Après une erreur de type dans ma condition.
Si vous avez un début de solution, merci d'avance pour vos réponses.
Cordialement
Mat_h
A voir également:
- Erreur multiple en vba dont erreur '1004'
- Erreur t32 ✓ - Forum Livebox
- Erreur 0x80070643 - Accueil - Windows
- Erreur upes 1025 - Forum Téléviseurs
- Erreur de lecture reconnecté en 3s - Forum TV & Vidéo
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues