Probléme initialisation userform

GUYANAIS · 23 Août 2017

Bonjour,
Je n'arrive pas à charger mon "userform1" avec les informations souhaitées dans les "textbox" correspondantes. Dans mon formulaire je dois rapporter des valeurs qui proviennent de différentes feuilles Factures et Result. Pour ouvrir le formulaire je clique sur la cellule A9 de la feuille Result.
Je dois avoir un problème dans le code ci-dessous. Je vous joins le fichier en pièce jointe. Merci d'avance de votre aide.

Code:

Private Sub UserForm1_Initialize()

    TextBox1 = Date
    TextBox2 = Sheets(8).Range("G2").Text 'Sheets (8) feuille dans l'ordre de mon classeur
    TextBox3.Value = Sheets(2).Range("S6").Value 'Sheets (2) feuille dans l'ordre de mon classeur
    TextBox4.Value = Sheets(2).Range("S7").Value
    Label18.Caption = ListView1.ListItems.Count 'On affiche le Nb enregistrement
With ListView1
        .Gridlines = True 'affiche les lignes
        .View = lvwReport 'style de rapport
        .FullRowSelect = True 'permet de selectionner une ligne dans la liste
       
        'Nomme lmes entêtes et défini les largeurs
        .ColumnHeaders.Add Text:="Noms", Width:=80
        .ColumnHeaders.Add Text:="Prénom", Width:=80
        .ColumnHeaders.Add Text:="Grade", Width:=50
        .ColumnHeaders.Add Text:="Libellé unité", Width:=100
        .ColumnHeaders.Add Text:="PCE", Width:=70
        .ColumnHeaders.Add Text:="Libellé rubrique", Width:=100
        .ColumnHeaders.Add Text:="Montant", Width:=70
        '************
End With

Call Actualisation 'on appelle la procédure de remplissage du listview
End Sub

Private Sub Actualisation()
' déclaration des variables
Dim Item As ListItem
Dim DerniereLigne As Integer
Dim i As Integer
Dim Ws As Worksheet

Set Ws = ThisWorkbook.Sheets("Result")
DerniereLigne = Ws.Cells(Rows.Count, 2).End(xlUp).Row 'On cherche la derniére ligne du tableau de la feuil19 de la colonne 2

With Me.ListView1
    .ListItems.Clear 'on vide à chaque rechargement
    'on boucle toutes les lignes et on charge les informations
    For i = 9 To DerniereLigne
        'On affiche dans la ListView le contenu des données
        .ListItems.Add , , Feuil19.Cells(i, 3)
        .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil19.Cells(i, 4)
        .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil19.Cells(i, 5)
        .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil19.Cells(i, 9)
        .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil19.Cells(i, 11)
        .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil19.Cells(i, 13)
        .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Feuil19.Cells(i, 15), "# ##0 €")
       
    Next i
    Me.Label18.Caption = .ListItems.Count 'On affiche le Nb enregistrement
End With
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub


Private Sub CommandButton2_Click()

Dim Tbl() As Variant
Dim Derlig As Long, Derlig2 As Long
Dim Ws As Worksheet, Ws1 As Worksheet

Application.ScreenUpdating = False
'Control de saisie
If Me.TextBox6 = "" Then MsgBox "Veuillez renseigner ce champ !", vbCritical: Me.TextBox6.SetFocus: Exit Sub
If Me.TextBox2 = "" Then MsgBox "Veuillez renseigner le type d'enregistrement !", vbCritical: Me.TextBox2.SetFocus: Exit Sub
If Me.TextBox5 = "" Then MsgBox "Veuillez saisir un Numero d'enregsitrement !", vbCritical: Me.TextBox5.SetFocus: Exit Sub
If Not IsDate(Me.TextBox1) Then MsgBox "Veuillez saisir une date d'enregistrement !", vbCritical: Me.TextBox1.SetFocus: Exit Sub
If Me.TextBox3 = "" Then MsgBox "Veuillez saisir une date de début !", vbCritical: Me.TextBox3.SetFocus: Exit Sub
If Me.TextBox4 = "" Then MsgBox "Veuillez saisir une date de fin !", vbCritical: Me.TextBox4.SetFocus: Exit Sub
'************
Set Ws = ThisWorkbook.Sheets("Result")
Set Ws1 = ThisWorkbook.Sheets("BDD")
Derlig = Ws.Range("B65536").End(xlUp).Row
Derlig2 = Ws1.Range("E65536").End(xlUp).Row + 1
Tbl = Ws.Range("B9:O" & Derlig).Value
With Ws1
    .Range("G" & Derlig2).Resize(UBound(Tbl, 1), UBound(Tbl, 2)).FormulaLocal = Tbl
    .Range("A" & Derlig2 & ":A" & Derlig2 + UBound(Tbl, 1) - 1) = Me.TextBox1
    .Range("B" & Derlig2 & ":B" & Derlig2 + UBound(Tbl, 1) - 1) = Me.TextBox5
    .Range("C" & Derlig2 & ":C" & Derlig2 + UBound(Tbl, 1) - 1) = Me.TextBox6
    .Range("D" & Derlig2 & ":D" & Derlig2 + UBound(Tbl, 1) - 1) = Me.TextBox2
    .Range("E" & Derlig2 & ":E" & Derlig2 + UBound(Tbl, 1) - 1) = Me.TextBox3
    .Range("F" & Derlig2 & ":F" & Derlig2 + UBound(Tbl, 1) - 1) = Me.TextBox4
End With

Set Ws = Nothing
Set Ws1 = Nothing
Application.ScreenUpdating = True

MsgBox "L'enregistrement s'est bien déroulé !", vbInformation
Unload Me
Sheets("Fac_ETAT").Select
    Range("B3").Select
End Sub

eriiic · 23 Août 2017

Bonjour,

Je n'arrive pas à charger mon "userform1" avec les informations souhaitées dans les "textbox" correspondantes.

Et si tu disais lesquelles sont les bonnes ?

VB:

TextBox2 = Sheets(8).Range("G2").Text 'Sheets (8) feuille dans l'ordre de mon classeur

pourquoi utiliser l'index (position) de la feuille et pas son nom ou son codename ?
Au moins tu seras sûr de la feuille utilisée.
eric

Lolote83 · 23 Août 2017

Salut,
en remplacant Private Sub UserForm1_Initialize() par Private Sub UserForm_Initialize(), il me semble que je récupère bien les données souhaitées.
Ce n'est pas UserForm1 mais UserForm
@+ Lolote83

eriiic · 23 Août 2017

oui, aussi...

GUYANAIS · 23 Août 2017

Merci lolote83 et eriiic,
Effectivement c'est beaucoup mieux, par contre comment déclencher un "userform" dans une feuille et le rattacher à des données d'une autre feuille. Dans mon document j'ai un userform2 qui fait une recherche sur un des champ du tableau de la feuille "BDD". Quand j'appelle le "userform2" avec le bouton de la feuille "Factures_rappr" Le combobox Champ valeur ne se remplit pas de la donnée correspondante. il ne se remplit que si je place le bouton sur la feuille BDD
Je sais je suis pas trés doué cela doit avoir un rapport avec se que disait eriiic l'index (position).
merci

Code:

Private Sub UserForm2_Initialize()
'permet de selectionner un entete de colonne de la BDD pour faire une recherche ici de 1 à 8eme colonne
    For i = 1 To 8 '=> pour lister les entetes de colonne de la BDD
      ComboBox_Champ_valeur.AddItem Cells(1, i) 'Ajoute les valeurs
    Next

'Affiche les valeurs trouvés dans le resultat de la selection:
With ListView1
        .Gridlines = True 'affiche les lignes
        .View = Lvw.Report 'style de rapport
        .FullRowSelect = True 'Permet de seletionner une ligne dans la liste
      
        'nomme les entêtes et défini les largeurs
        ColumnHeaders.Add Text:="Date enregistrment ", Whidth:=40
        ColumnHeaders.Add Text:="Numéro facture ", Whidth:=40
        ColumnHeaders.Add Text:="Appelation facture ", Whidth:=40
        ColumnHeaders.Add Text:="Noms ", Whidth:=40
        ColumnHeaders.Add Text:="Code unité ", Whidth:=40
      
   Call Actualisation_usf2 'on apelle le remplissage
 
End With

End Sub

eriiic · 23 Août 2017

C'est un gag UserForm2 ?

Sheets(8) est la 8ème feuille. Il suffit que qq'un la déplace ou en insère ou supprime une et tu t'adresseras à une autre feuille.
Si c'est la feuille machin et utilise sheets("machin")

Et mieux encore, utilise des variables objets comme tu as fait plus bas :
Set Ws1 = ThisWorkbook.Sheets("BDD")
a=Ws1.[A1].value
eric

GUYANAIS · 24 Août 2017

Merci eriiiic,
Je découvre le code j'avance doucement mais surement.
Dans mon outil, sur le formulaire je veux apparaître dans le listview1 que les valeurs qui sont sélectionnées dans le ListBox_valeur_champ et sans doublons.
Aprés en cliquant sur la ligne correspondante je renvoie les informations vers un autre formulaire userform3 et j'y ajoute 5 informations avant de l'enregistrer en lieu et place des informations précédentes. Je viens d'ajouter le fichier avec les avancés du jour.

ChTi160 · 24 Août 2017

bonjour GUYANAIS
Bonjour le fil,le forum
jamais tu reponds au fil ？
bonne fin de journee
amicalement
jean marie

GUYANAIS · 24 Août 2017

ChTi160 à dit:
bonjour GUYANAIS
Bonjour le fil,le forum
jamais tu reponds au fil ？
bonne fin de journee
amicalement
jean marie

Jean marie,
je t'ai répondu dans un autre forum me semble t-il, désolé je ne retrouve pas ton post dans ce forum.
Le sujet est le même.
Cordialement

ChTi160 · 24 Août 2017

Dommage que tu ne suives pas tes messages sur ce Forum Lol
https://www.excel-downloads.com/threads/resolu-probleme-valeurs-dans-combobox-de-userform.20019356/
j'abandonne !

eriiic · 24 Août 2017

Ok, tu te moques du monde quoi...
Tu démarres ici, 5h plus tard tu démarres un autre topic. Ca n'allait pas assez vite ? On n'était pas assez disponible pour toi ?
Et bien on est jamais aussi bien servi que par soi même, continue tout seul.
eric

GUYANAIS · 25 Août 2017

Eriiic, Jean-Marie,

Je suis désolé j'avais un autre topic d'ouvert que j'avais oublié. Je suis confus et je vous prie de bien vouloir accepter mes excuses.
J'ai eu du mal à comprendre tout le code mais je progresse doucement. Merci encore de votre aide qui m'a permis d'avancer.
Ci-joint l'état d'avancement de mon outil.
Christophe

Effectuez une recherche sur Excel Downloads...

Probléme initialisation userform

GUYANAIS

XLDnaute Occasionnel

Pièces jointes

eriiic

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

GUYANAIS

XLDnaute Occasionnel

eriiic

XLDnaute Barbatruc

GUYANAIS

XLDnaute Occasionnel

Pièces jointes

ChTi160

XLDnaute Barbatruc

GUYANAIS

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

GUYANAIS

XLDnaute Occasionnel

Pièces jointes

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums