Discussion :

[Viper7]

Bonjour,

Ma mission touche à sa fin, je voulais remercier tous ceux qui m'ont consacré un peu de leur temps, m'ont aidé et m'ont permi de me perfectionner dans le VBA :
Blunet, Commodore_Psykopate, Ania, illight, ouskel'n'or, Elstak, bbil, SilkyRoad, Theocourant, Phenx, zazaraignée, AlainTech. Merci !

Voici la dernière étape :
J'ai un Userform qui gère une base de donnée importante de références(nouvelle référence, modifier référence et suopprimer référence).
Pour faciliter la modification des références, je souhaiterai inclure dans mon UF une textbox "recherche" dans laquelle on entrerait le numéro de référence, puis en cliquant sur ok, cela afficherai directement dans l'UF les informations de la référence en question. J'ai essayé mais je ne trouve pas le type de macro à utiliser.

D'avance merci

[illight]

Ah bon je t'ai aidé ? me souviens plus



Il faudrait, je pense, quand tu clique sur OK, qu'un filtre puisse se mettre en place sur la référence qui t'intéresse
Pour la macro par contre, vu que je n'ai pas de fichier sous les yeux..quoique atta..
En faisant l'enregistreur de macro j'obtiens ça (en prenant comme référence une référence bidon hein) :

Code :

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

1
2
3
 
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:=TextBox1.value

Selection étant par exemple la première cellule ou tu as les titres de tes colonnes

Par contre j'ai un doute subitemment su rl'écriture d'une valeur de la textbox mais ça doit y ressembler grandement

[Viper7]

Merci pour ta réponse, je ne cherche pas à mettre des filtres sur le tableau, juste voir les infos de la référence dans l'Userform

Voici à quoi il ressemble :



Je souhaite aussi faire un message d'erreur si la référence entrée est vide ou inexistante

Voici le code que j'ai commencé :

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
'Recherche rapide d'une référence pour la modifier
Private Sub bnOkRecherche_Click()
Dim NomRéférence2 As String
Dim AfficherRéférence As Variant
 
NomRéférence2 = txRecherche.Value
 
AfficherRéférence = True
 
If AfficherRéférence Then
  Sheets.Add after:=Sheets(Worksheets.Count)
  Sheets(Worksheets.Count).Name = txRecherche.Value
  Else
  MsgBox ("La référence " & txNuméro.Value & " est inexistante ou vide")
End If
 
End Sub

Où ais-je faux et que me manque-t-il selon vous ?

[AlainTech]

Je sais que ce n'est pas vraiment une réponse à la question mais je voulais exprimer mon impression par rapport à la "lourdeur" d'une telle fiche.

Pour ma part, pour un UF "fiche", afin d'éviter 36 boutons, je travaille toujours de la manière suivante.

Au départ, je n'ai que le TextBox "référence" qui est actif.

Si l'utilisateur tape une référence existante, je l'affiche.
S'il tape une nouvelle référence, je propose de créer la fiche et, si oui, j'affiche le UF "création".

Edit --> De plus, quand une fiche est affichée, je n'ai que les boutons utilisables qui sont visibles.

Tout ceci pour aider au maximum l'utilisateur à ne pas se perdre dans une feuille trop encombrée.

[Viper7]

C'est une très bonne idée et une bonne conception, mais pour cela il faut les compétences ! Ce que je n'ai pas...

De plus, l'outil que je développe sera à la disposition de personnes qui n'y connaissent rien et font déjà peu confiance aux macro donc j'essaye de faire quelquechose de "simple" afin qu'ils comprennent et aient confiance en mon outil pour l'utiliser

Cela dit, à te lire tu as réponse à ma question car tu as dit "Si l'utilisateur tape une référence existante, je l'affiche"

Comment fais-tu ?

[AlainTech]

Ben, je dirais, de la même manière que tu affiches tes champs quand tu cliques sur "Référence suivante" ou "précédente".

Je suis désolé, n'étant pas dans ton code et ne sachant comment tu gères ton accès à la BD, je n'ai pas de réponse toute faite.