Problemes avec 2 userforms

[azerty67]

🙂Bonjour le forum,

Je rencontre deux problèmes avec des usf.

J"ai posté le zip sur "cijoint" car trop volumineux pour le site.

Toute l'explication se trouve dans le fichier avec photos.


lien du zip:

Cijoint.fr - Service gratuit de dépôt de fichiers

Je vous remercie pour votre aide précieuse🙂
Jm

 

[BERRACHED said]

Re : Problemes avec 2 userforms

Salut,azerty67,le Forum

moi je te suggéré a la place des deux combox tu met un textbox de recherche
avec le code suivant :

Private Sub TextBox1_Change()
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim N As Integer
Dim c As Range
N = 0

Recherche = TextBox1.Value
 'Range("A1").Select
DerLigne = Sheets("Produits_ référencés").Range("B" & "65536").End(xlUp).Row
Set Plage = Sheets("Produits_ référencés").Range("B" & "2:" & "B" & DerLigne)

With Plage
Set c = .Find(Recherche, lookat:=xlPart)
If Not c Is Nothing Then
Adresse = c.Address
Do
    If UCase(Recherche) = UCase(Left(c, Len(Recherche))) Then
        'alimentation listBox
        ListBox1.AddItem c.Offset(0, -1), N
        ListBox1.List(N, 1) = c
        ListBox1.List(N, 2) = c.Offset(0, 1)
        ListBox1.List(N, 3) = c.Offset(0, 2)
        ListBox1.List(N, 4) = c.Offset(0, 3)
 'ICI tu doit ajouter les autres lignes jusqu'a "U"
        N = N + 1
    End If
    Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> Adresse
    End If
End With
End Sub

Seulement dans l'initialise tu doit neutraliser le code existant et tu ajoute un bouton dans la feuille "Saisie" pour appeler Usf "Recherche"

Cordialement

 

[azerty67]

Re : Problemes avec 2 userforms

Salut,azerty67,le Forum

moi je te suggéré a la place des deux combox tu met un textbox de recherche
avec le code suivant :

Private Sub TextBox1_Change()
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim N As Integer
Dim c As Range
N = 0

Recherche = TextBox1.Value
 'Range("A1").Select
DerLigne = Sheets("Produits_ référencés").Range("B" & "65536").End(xlUp).Row
Set Plage = Sheets("Produits_ référencés").Range("B" & "2:" & "B" & DerLigne)

With Plage
Set c = .Find(Recherche, lookat:=xlPart)
If Not c Is Nothing Then
Adresse = c.Address
Do
    If UCase(Recherche) = UCase(Left(c, Len(Recherche))) Then
        'alimentation listBox
        ListBox1.AddItem c.Offset(0, -1), N
        ListBox1.List(N, 1) = c
        ListBox1.List(N, 2) = c.Offset(0, 1)
        ListBox1.List(N, 3) = c.Offset(0, 2)
        ListBox1.List(N, 4) = c.Offset(0, 3)
 'ICI tu doit ajouter les autres lignes jusqu'a "U"
        N = N + 1
    End If
    Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> Adresse
    End If
End With
End Sub

Seulement dans l'initialise tu doit neutraliser le code existant et tu ajoute un bouton dans la feuille "Saisie" pour appeler Usf "Recherche"

Cordialement

🙂Bonsoir Said, le forum,

Merci pour ta réponse mais entre temps j'ai pu régler le problème au niveau de l'usf "Recherche".
Par contre pour l'usf "Saisie je sèche encore, donc une idée est la bien venue

Jmarc

 

[azerty67]

Re : Problemes avec 2 userforms

🙂Bonsoir Said, le forum,

Merci pour ta réponse mais entre temps j'ai pu régler le problème au niveau de l'usf "Recherche".
Par contre pour l'usf "Saisie je sèche encore, donc une idée est la bien venue

Jmarc

🙂 Bonsoir le forum,

Une idée pour m'aiguiller s'il vous plaît ?
Merci

jmarc

 

[azerty67]

Re : Problemes avec 2 userforms

🙂 Bonsoir le forum,

Une idée pour m'aiguiller s'il vous plaît ?
Merci

jmarc

😕Bonjour le forum,

Je désespère que personne ne jette un coup d'oeil

Cordialement,
Jm