Discussion :

[vba11]

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 :

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

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

....ci joint le fichier en question

Code :

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

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

[Philippe Tulliez]

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 :

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

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.

[Theze]

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 :

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

1
2
 
firstaddress = c.Address

de cette manière par exemple :

Code :

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

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é.

[Philippe Tulliez]

Bonjour Hervé

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.

[vba11]

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