Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour
Quelle est la meilleure méthode pour retrouver la bonne combinaison selon des critères (ou cases à cocher) ?
La fonction RECHERCHEV a ses limites dans ce cas. Mais je ne vois pas trop quelle formule utiliser dans ce cas ?
Je n'avais plus le temps ce matin, voici le fichier avec la date de mise à jour.
Elle esr affichée en bas de l'USF dans un Label, et stockée par le nom défini MAJ qui est masqué.
Un complément d'explication important : vous remarquerez que les macros ne font référence qu'à des plages nommées.
Ces plages sont dynamiques, voir au menu Insertion-Nom-Définir. Aucune adaptation des codes n'est nécessaire, et l'on peut nommer les feuilles comme on veut.
2/ pouvez vous regarder, svp, comment avoir un module de recherche sur les différents champs stockés ?
Exemple :
a) Quelles sont les voitures équipées au minimum d'une DA et d'une FC
b) Quelles sont les voitures équipées strictement d'une DA et d'une FC
Juste un code à paufiner, dans la macro Recherche de l'UserForm2, remplacer :
Code:
If ComboBox1 = "" Then ComboBox1.SetFocus: Exit Sub
If ComboBox2 = "" Then ComboBox2.SetFocus: Exit Sub
If Len(ComboBox1) = 1 Then ComboBox1 = "": Exit Sub
If Len(ComboBox2) = 1 Then ComboBox2 = "": Exit Sub
par
Code:
If Len(ComboBox1) = 1 Then ComboBox1 = ""
If Len(ComboBox2) = 1 Then ComboBox2 = ""
If ComboBox1 = "" Or ComboBox2 = "" Then Exit Sub
Je reviens en arrière, il y avait une imprécision pour la date de mise à jour.
J'ajoute la macro DateMAJ sur les 3 derniers fichiers déposés (dans le code de UserForm1) :
Code:
Private Sub DateMAJ()
ThisWorkbook.Names.Add "MAJ", "Mise à jour : " & Format(Now, "dd/mm/yy hh:mm")
ThisWorkbook.Names("MAJ").Visible = False
Label3 = [MAJ]
End Sub
Bonjour,
très bien pour ce bouton de recherche
mais serait il possible d'avoir les 10 options mais également un critère avec la marque :
exemple :
quelles sont les WV avec DA+VE+FC+PMI ....
merci et bonne journée
Si le fichier est destiné à être utilisé par plusieurs utilisateurs, se posera le problème de la protection de la feuille.
Dans toutes les versions précédentes, il y aura en effet des bugs (c'est normal) si la feuille "BASE" est protégée.
Dans le fichier ci-joint cette feuille est protégée par le mot de passe alb05 et voici ce qu'il faut faire.
1) sur la feuille non protégée, menu Insertion-Nom et définir le nom MDP par ="alb05"
2) Dans le code de la feuille introduire la macro :
Code:
Sub OterProtection()
Dim v
On Error Resume Next
v = Range("Base").Parent.Unprotect
If v = "" Then MsgBox "Mot de passe incorrect !", 48: End
If v = False Then End
End Sub
Cette macro est appelée par chacun des 2 boutons.
3) Dans la macro de fermeture de l'UserForm :
Code:
Private Sub UserForm_QueryClose(cancel As Integer, closemode As Integer)
flag = True
Range("Base").EntireRow.Hidden = False
[COLOR="Red"]On Error Resume Next 'si le nom MDP n'existe pas
Range("Base").Parent.Protect [MDP][/COLOR]
End Sub
EDITION : on peut bien sûr ne pas demander le mot de passe pour les utilisateurs autorisés. Il faudra une liste de leurs noms dans le fichier.
De toute façon vous pouvez utiliser cette version en supprimant le nom MDP.
De plus j'ai simplifié la macro Recherche (supprimé la variable plage0 inutile en fait).
Le masquage du nom MAJ a été mis en commentaire (macro DateMAJ).
3/ Pour tracer qui a fait la maj d'un enregistrement, l'idéal serait d'enregistrer dans chaque ligne de la base le nom du dernier utilisateur à avoir mis à jour le modèle, ainsi que la date et heure à laquelle cette maj s'est faite.
=> cela revient à ajouter 2 colonnes dans la base (à insérer entre B "modèle" et C "Finition")
col A MARQUE
col B MODELE
col C Last_User
col D Last_UpDATE
col E FINITION
... / ...
RQ : Après avoir saisie le mot de passe pour accéder aux UF, l'accès à la feuille est libre, ce qui peut paraitre normal dans un sens mais qui du coup fait fit de tous les contrôles éventuels gérés par programme dans les UF.
Mais bon, cela ne me pose pas plus de problème que ça, donc laissez tomber.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.