USERFORM EXCEL 2013

Bonjour tout le monde

Je suis débutant en vba et je m'arrache les cheveux avec une base de données..mon probleme est le suivant:
Dans une feuille nommée "Formulaire de saisie" j'ai crée un Userform avec un certain nombre de textbox pour faciliter la saisie...jusqu'au la tout va bien.
La complexité apparaisse quand j'ai essayé d’utiliser le meme userform pour alimenter une autre feuille nommée "Sous produit".
En effet, dans la feuille "Sous produit", il ya deux variable "le mois" et le nom de "Famille produit"
c est qu'une fois appuyer sur le bouton "transférer"de l'Userform, le nom de sous produit (ex: Produit A) doit apparaître DEUX FOIS consécutifs dans la feuille "SOUS PRODUIT" sous le mois et le produit qui lui corresponds(Cellule D5 et H5 de la feuille Formulaire de saisie)..la selection d un nouveau sous produits vient s'ajouter au dessous des deux lignes du sous produit selectionné avant

VOILA le code qui bloque dans cette ligne

Code:

---

Lgn = .Range(SecondAdress).End(xlDown).Row + 1

---

....ci joint le fichier en question

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub CommandButton1_Click() Dim Sous_produit As Long   Sous_produit = Worksheets("Sous_produit").Select x = Range("C1") m = Range("B1") With Worksheets("Sous_produit").Range("A:A") Set c = .Find(m, LookIn:=xlValues, Lookat:=xlWhole) If Not c Is Nothing Then firstaddress = c.Address End If Set c = .Find(x, after:=Range(firstaddress), LookIn:=xlValues, Lookat _ :=xlPart) SecondAddress = c.Address   Lgn = .Range(SecondAdress).End(xlDown).Row + 1 .Cells(Lgn, 1) = Controls("Textbox1") .Cells(Lgn + 1, 1) = Controls("Textbox1") End With Unload Me   End Sub

---

Merci beaucoup

Bonjour,
Il y a plusieurs problèmes dans ton code et je m'étonne que tu n'aies pas eu de message d'erreur à la ligne 4

Code:

---

Sous_produit = Worksheets("Sous_produit").Select

---

Select est une méthode et la ligne dont il fait partie n'est pas une fonction donc tu aurais dû avoir comme message d'erreur "Erreur de compilation Variable ou Fonction attendue"
Quant à la ligne 16, il faut vérifier la valeur de la variable SecondAddress mais peut-être que l'erreur est-elle survenue à la ligne 14 parce-que la variable objet c est Nothing ?

La première chose à faire serait de placer la ligne Option Explicit en tête de module pour t'obliger à déclarer tes variables et ensuite cocher l'option Déclaration de variables obligatoire que tu trouves dans le menu Outils/Options... [Editeur] ainsi cette ligne serait automatiquement insérée dans les modules qui serait créé ultérieurement.

Bonjour,

La méthode Select retourne malgré tout un booléen et dans ce cas, toujours à "True" car la sélection est effectuée avant de d'indiquer la valeur.

La ligne de code suivante est nécessaire que si l'on utilise une boucle Do Loop pour une recherche de plusieurs occurrences avec "FindNext"

Code:

---

1 2	firstaddress = c.Address

---

de cette manière par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

If Not c Is Nothing Then   firstaddress = c.Address   Do 'ici le code dans le cas d'une ou plusieurs recherches fructueuse... '...   Set c = .FindNext(c)   Loop While c.Address <> firstaddress   End If

---

Et bien sûr, comme le dit Philippe, déclaration des variables obligatoire, ce qui évitera déjà un arrachage partiel des cheveux !

Hervé.

Bonjour Hervé

Citation:

---

La méthode Select retourne malgré tout un booléen et dans ce cas, toujours à "True" car la sélection est effectuée avant de d'indiquer la valeur.

---

Tu as raison et je ne sais plus quel test j'ai utilisé ce matin avant de répondre car j'avais obtenu un message d'erreur.
Cependant, outre le fait qu'il vaut mieux ne pas utiliser cete méthode, je reste perplexe quant à la raison de l'utilisation de cette ligne de code car si la feuille n'existe pas une erreur sera déclenchée.

Merci pour les reponses

J'ai declaré mes variables en haut mais rien n'a changé
pouvez vous me dire ou je dois changer ce code et par quoi exactement etant donné que je suis debutant en vba

Merci