Discussion :

[sebastientabanon]

Bonjour,

J'ai un soucis sur mon USF
J'ai un USF dans lesquel j'ai des données
Je voudrais dans les meme classeur sur une autre feuille de calcul insérer un bouton qui aficherais ce meme USF avec ces données .
Le probléme est que l'usf s'affiche mais pas les données .

Une idées ?

[Docmarti]

Bonjour sebastientabanon;

Tu vas trouver de nombreux exemples sur cette page du site de jacques boisgontier

http://boisgontierjacques.free.fr/pa...reerFormulaire

[sebastientabanon]

Bonjour

Merci pour ce lien très pratique pour avoir les exemple et autre .

Le problème c'est que je n'ai pas la réponse à ma question

en fait pour donner plus de détail :

J'ai crée un USF de recherche .

Quand je fait une recherche dans ma liste modifiable des données s'incrémente dans les zone de texte .

Au niveau de la feuille de calcul ou se trouve les données j'ai un bouton ou j'ai affecté la macro pour afficher l'usf

Je voulais pour faire un dossier propre crée une autre feuille genre page d'acceuil et insérer un boutons qui afficherais cet USF .

La macro fonctionne mais mon usf ne fonctionne plus les donnée ne saffiche plus dedans .

Je vous copie mon code .

Je précise que ce code est rentrée directement dans la feuille de mon usf

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Private Sub Choixcommune_Change()
 
Dim I As Integer, Col As Long, Lig As Long
  ' Numéro de ligne = Entête tableau 1 + Choix dans la liste + 1 car commence à 0
  Lig = 1 + Me.Choixcommune.ListIndex + 2
  ' Avec la feuille commune Poste
  With Sheets("commune")
    ' Récupérer la valeurs code insee pour l'USF
     Me.insee2.Value = .Range("A" & Lig)
     ' Récupérer la valeurs détection de cable pour l'USF
     Me.cable.Value = .Range("N" & Lig)
     ' Récupérer la valeurs Marquage et piquetage pour l'USF
    Me.piquetage.Value = .Range("O" & Lig)
    ' Récupérer la valeurs Essai de compactage pour l'USF
    Me.compactage.Value = .Range("P" & Lig)
    ' Récupérer la valeurs code postal pour l'USF
    Me.postal.Value = .Range("B" & Lig)
    ' Récupérer la valeurs extension pour l'USF
    Me.extension.Value = .Range("H" & Lig)
    ' Récupérer la valeurs LA + LB pour l'USF
    Me.branchement.Value = .Range("I" & Lig)
    ' Récupérer la valeurs LB pour l'USF
    Me.liaisonb.Value = .Range("J" & Lig)
    ' Récupérer la valeurs Détection de cable en souterrain pour l'USF
    Me.cablesout.Value = .Range("Q" & Lig)
    ' Récupérer la valeurs piquetage et marquage en souterrain pour l'USF
    Me.piquetagesout.Value = .Range("R" & Lig)
    ' Récupérer la valeurs compactage en souterrain pour l'USF
    Me.compactagesout.Value = .Range("S" & Lig)
    ' Récupérer la centre pour l'USF
    Me.centre.Value = .Range("C" & Lig)
    ' Récupérer le mail pour l'USF
    Me.mail.Value = .Range("U" & Lig)
    ' Récupérer le mail pour l'USF
    Me.moad.Value = .Range("V" & Lig)
     ' Récupérer la valeurs code postal pour l'USF
    Me.comm.Value = .Range("D" & Lig)
    End With
End Sub
 
Private Sub insee1_Change()
Dim I As Integer, Col As Long, Lig As Long
  ' Numéro de ligne = Entête tableau 1 + Choix dans la liste + 1 car commence à 0
  Lig = 1 + Me.insee1.ListIndex + 2
  ' Avec la feuille commune Poste
  With Sheets("commune")
  ' Récupérer la valeurs code postal pour l'USF
    Me.postal.Value = .Range("B" & Lig)
  ' Récupérer la valeurs détection de cable pour l'USF
     Me.cable.Value = .Range("N" & Lig)
     ' Récupérer la valeurs Marquage et piquetage pour l'USF
    Me.piquetage.Value = .Range("O" & Lig)
    ' Récupérer la valeurs Essai de compactage pour l'USF
    Me.compactage.Value = .Range("P" & Lig)
    ' Récupérer la valeurs extension pour l'USF
    Me.extension.Value = .Range("H" & Lig)
    ' Récupérer la valeurs LA + LB pour l'USF
    Me.branchement.Value = .Range("I" & Lig)
    ' Récupérer la valeurs LB pour l'USF
    Me.liaisonb.Value = .Range("J" & Lig)
    ' Récupérer la valeurs Détection de cable en souterrain pour l'USF
    Me.cablesout.Value = .Range("Q" & Lig)
    ' Récupérer la valeurs piquetage et marquage en souterrain pour l'USF
    Me.piquetagesout.Value = .Range("R" & Lig)
    ' Récupérer la valeurs compactage en souterrain pour l'USF
    Me.compactagesout.Value = .Range("S" & Lig)
    ' Récupérer la centre pour l'USF
    Me.centre.Value = .Range("C" & Lig)
    ' Récupérer le mail pour l'USF
    Me.mail.Value = .Range("U" & Lig)
    ' Récupérer le mail pour l'USF
    Me.moad.Value = .Range("V" & Lig)
    ' Récupérer la valeurs code postal pour l'USF
    Me.comm.Value = .Range("D" & Lig)
    End With
 
End Sub

Merci d'avance

[parmi]

Bonjour,

À première vue, ce code devrait fonctionner en autant que les listes soient sélectionnées. Il faudrait voir comment tu obtiens une sélection sur les listes du UserForm... Est-ce que tu les charges et sélectionnes avant d'afficher le UserForm ?
Est-ce que tu as du code dans la portion Initialise() du code de l'UserForm ?

[sebastientabanon]

Une fois ma nouvelle feuille de calcul ouverte je crée un module dans lequel je retape ce code ce devrais le chargé non ?
Mon soucis et que j'ai commencé le vba il n'y a pas longtemps et que j'apprend au fur et a mesure j'ai pas mal de procédure j'ai compris beaucoup de chose je pense mais la je bloque

[parmi]

De quelle façon sont chargés les listes du USF ?
Par code ou à l'aide des propriétés ?