Discussion :

[DiploLM]

Bonjour,

Je rencontre quelques problèmes avec un fichier en création. Une base de donnée avec un formulaire pour entrer simplement les données et un autre "Maj/recherche" permettant de trouver les données et de les modifier. Aucun problème pour le premier, en revanche le deuxième dépasse mes connaissances en vba.
Même en glanant des codes sur internet ou d'autres fichiers, impossible d'aller plus loin que l'affichage.

Erreur: impossible de définir la propriété value. le type ne correspond pas.

Si quelqu'un pouvait m'aider ça serait super !!

Fichier en question BDD SEVESO 3 v9 incorporation ancienne BDD - Copie.xlsm

[joe.levrai]

Bonjour,

voici ta caisse à outil : http://www.developpez.net/forums/d14...-d-formulaire/



et pour qu'on puisse t'aider, il faut montrer ta procédure complète et indiquer la ligne qui bloque

[DiploLM]

Intéressant cette boite à outils, je regarde ça merci !

En faite je cherche simplement à l'aide du formulaire Maj à lire les données de la feuille "Récapitulatif" pour éventuellement les modifier.
Mes données sont trouvées mais au click sur le combobox j'ai ce message d'erreur pour la ligne 6:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub ComboBox1_Click()
  Set f = Sheets("Récapitulatif")
  ligneEnreg = Me.ComboBox1.Column(1)
  For Z = 1 To nbCol
    Me("textbox" & Z) = f.Cells(ligneEnreg, Z)
  Next Z
  listeExistants
End Sub

[Philippe Tulliez]

Bonjour,

Mes données sont trouvées mais au click sur le combobox j'ai ce message d'erreur pour la ligne 6:

C'est normal. Il y a deux erreurs dans ta ligne 6
Extrait de l'aide

Le mot clé Me se comporte comme une variable déclarée de façon implicite. Il est automatiquement disponible pour toutes les procédures d'un module de classe. Lorsqu'une classe peut comporter plusieurs instances, le mot clé Me offre la possibilité de faire référence à l'instance de la classe dans laquelle le code est exécuté.

ME dans ton cas, représente le UserForm et ne peut être indicé
Si tu boucles sur des contrôles (ici TextBox), il faut utiliser la collection Controls
Donc la ligne
Me("textbox" & Z) = f.Cells(ligneEnreg, Z)
doit être remplacée par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Controls("TextBox" & Z) = f.Cells(ligneEnreg, c)

[Invité]

Bonjour,
Si ça peut te donner des idées!
http://www.developpez.net/forums/d14...e/#post7819625

[DiploLM]

Merci pour vos retours, en prenant le fichier de ce lien http://www.developpez.net/forums/d14...e/#post7819625 j'ai pu reprendre les codes et l'inclure dans mon fichier.
Et ça marche merci !