Discussion :

[Grosnain]

Bonjour à tous,

j'ai besoin d'une âme charitable pour m'aider à finaliser mon fichier...

Je suis en train de concevoir un fichier avec 2 userforms (ajout et modification) qui semblent fonctionner pour le moment.

Je rajoute une troisième userform qui me servirait uniquement pour les recherches en affichant dans une liste le résultat attendu
en regardant les tutos sur internet, j'ai créé sur un nouvel onglet une copie filtrée de ma base mais cette dernière ne se recopie pas dans la liste de la userform...

Ce sont les lignes 14-17 qui me posent souci

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
Option Compare Text
Dim bddfeuil1, plagefeuil5, critere
 
Private Sub TextBox1_Change()
 
Feuil5.Cells.Clear
Feuil5.[AA1] = bddfeuil1.Cells(1, critere)
Feuil5.[AA2] = Me.TextBox1.Value
 
Feuil1.[A1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
criteriarange:=Feuil5.[AA1:AA2], _
copytorange:=Feuil5.[A1], Unique:=False
 
If Feuil5.[A1].CurrentRegion.Row.Count > 1 Then
    Set plagefeuil5 = Feuil5.[A1].curentregion.Offset(1).Resize(Feuil5.[A1].CurrentRegion.Rows.Count - 1)
    Me.ListBox1.RowSource = plagefeuil5.adress(external:=True)
End If
 
End Sub
 
 
Private Sub userform_initialize()
 
ComboBox1.List = WorksheetFunction.Transpose(Feuil1.Range("A1:T1"))
 
End Sub
 
Private Sub CommandButton3_Click()
Unload Me
End Sub
 
Private Sub ComboBox1_Change()
 
For col = 1 To 20
 
    If Feuil1.Cells(1, col).Value = Me.ComboBox1.Value Then
        critere = col
    End If
Next
Set bddfeuil1 = Feuil1.[A1].CurrentRegion
Me.ListBox1.ColumnCount = Feuil1.[A1].CurrentRegion.Columns.Count
Me.ListBox1.ColumnWidths = "5;5;5;5;5;5;5;5;5;5;5;5;5;5;5;5;5;5;5;5"
Me.ListBox1.ColumnHeads = True
Me.TextBox1.Text = ""
Me.TextBox1.SetFocus
 
End Sub

[Philippe Tulliez]

Bonjour,
Je repère deux erreurs dans les lignes 14 et 15.
Ligne 14, c'est Rows.Count et pas Row.Count
Ligne 15, il faut deux "r" à CurrentRegion
Il y en a peut-être d'autres mais je n'ai pas été plus loin

Evitez les annotations comme Feuil5.[A1] et préférez Feuil5.Range("A1"), je sais que sur certains sites, c'est monnaie courante mais c'est une mauvaise pratique.
Si vous avez l'occasion, je vous invite à consulter sur ce sujet, le billet de Pierre Fauconnier titré VBA-Excel: Notation raccourcie d'une plage, une fausse bonne idée!

Petite suggestion, renommez le CodeName de vos feuilles par un nom explicite car Feuil5, cela n'est pas très "parlant"
A lire éventuellement mon billet titré VBA Excel - Comment s’affranchir de la modification du nom de la feuille en utilisant son CodeName

[Grosnain]

Merci beaucoup pour votre oeil d'expert...
Serait-ce abusé de vous demander de regarder la ligne juste en dessous?

"err 438 propriété ou méthode non gérée par cet objet"

Avec mes plus sincères remerciements

[Philippe Tulliez]

Bonjour,

Serait-ce abusé de vous demander de regarder la ligne juste en dessous?

Address prend deux d

Ce genre d'erreur ne devrait pas arriver parce-qu'en insérant le "." vous avez une liste déroulante (ce que l'on appelle l'intellisense) qui vous propose la liste des propriétés et méthodes liés à l'objet que vous utilisez.
Il suffit alors de faire un double clic sur l'objet ou propriété à insérer ou encore appuyer sur la touche Tabulation si celui-ci est en sélection pour l'insérer sans faute d'orthographe.

Illustration

[Grosnain]

Un grand merci grâce à vous je touche le bout ENFIN!!!!

il me reste une dernière chose à régler si vous permettez...

Lorsque je lance la procédure de mon userform via le visual basic (flèche verte) l'alimentation de la feuille Excel (bdd) fonctionne ; mais qd je lance via un bouton inséré sur une feuille Excel j'ai juste l'affichage du userform et si je fais une saisie elle ne s'enregistre pas.

un bouton appelle une macro du genre

Code :

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

1
2
3
sub appeluserform1
userform1.show
end sub

et ainsi de suite

Manque t-il un élément ici encore?

[Philippe Tulliez]

Bonjour,
Normalement, il n'y a aucune raison que cela fonctionne dans un cas et pas dans l'autre mais sans doute ne donnez vous pas toutes les explications car ce que vous écrivez

un bouton appelle une macro du genre
sub appeluserform1
userform1.show
end sub

et ainsi de suite

Le "du genre" et "et ainsi de suite" sont pour le moins imprécis.

Avez-vous placé le code qui invoque le UserForm dans un module Standard ?

Une republication du code corrigé, placé entre les balises prévues à cet effet. Ainsi que le code qui invoque le UserForm en séparant bien avec un titre indiquant Code dans le module UserForm nommé, par exemple, "UserForm1" et Code dans le module standard serait très apprécié.

Plus vous serez précis plus les réponses que l'on vous apportera seront pertinentes