Compatible ou pas ?

[WDAndCo]

Bonsoir le Forum

Comment savoir si une clé est compatible ou pas avec une serrure a l'aide de 3 tables ?

Exemple : Soit une clé 4C4 est compatible avec des serrures 4C3, 4C4, 4E3, 4E4, 4G3, 4G4, 4H3, 4H4, 4K3, 4K4, 4L3 et 4L4 (Voir les tables du haut dans le fichier)
ou
Exemple : Soit une Serrure 4C4 est compatible avec des clés 4A4, 4C4, 5A4 et 5C4 (Voir les tables du bas dans le fichier)

Comment rendre cela automatique ?
Le fait de taper 3G7 cela me donne :
Cette clé 3G7 est compatible avec les serrures ...........
Cette Serrure 3G7 est compatible avec les clés ...........
Et le fait de donner 2 Réf
Par Exemple : 1A3 et 3G6
La clé 1A3 est (ou n'est pas) compatible avec la serrure 3G6
La serrure 1A3 est (ou n'est pas) compatible avec la clé 3G6

D'avance merci, et je me tiens a votre disposition pour toutes information complémentaire !

Dominique

 

[WDAndCo]

Re : Compatible ou pas ?

Bonsoir le Forum et Le pierre

Je pense qu'il vaut mieux ne pas regrouper les Tests

1) Lieux ou Secours

If Lieu = Cells(LigB, 3).Value or LieuSecours = Cells(LigB, 4).Value Then

2) Si il a pas d'incompatibilités sur le Lieux alors un test sur le Secours

If rien trouvé en Lieux then Call TestSecours
ELSE End Sub

3) Si Lieux ou Secours = ""

If Lieu = "" or LieuSecours = "" Then Ligne = Ligne + 1

Bien sur ces codes ne marche pas ! !

Votre Avis ?

Dominique

 

[Le Pierre]

Re : Compatible ou pas ?

Bonjour

Que penses-tu de la solution d'ajouter 2 ou 3 colonnes supplémentaires pour inscrire les compatibilités pour les clefs de secours ?
A mon avis ce sera plus simple à réaliser.

à plus.

 

[WDAndCo]

Re : Compatible ou pas ?

Bonsoir le Forum et Le Pierre

Bonne idée d'ajouter de colonnes pour les tests Lieux et Secours. Je reprends ma feuille pour y faire le nouvel agencement des colonnes et reprise des Macros si problème je reviens !

Encore merci a tous !

Amicalement
Dominique

 

[WDAndCo]

Re : Compatible ou pas ?

Bonjour le Forum

Comment faire pour qu'un message ne bloque pas la macro en cours d'exécution ?

Private Sub CommandButton2_Click()
MsgBox "Calculs en cours"
Call RechercheCompatibilitéL
UserForm1.Hide
End Sub

Private Sub CommandButton3_Click()
MsgBox "Calculs en cours"
UserForm1.Hide
Call RechercheCompatibilitéS
End Sub

Le message "Calculs en cours" bloque la Macro, tant qu'il n'y a pas eu d'action sur la X ou "OK" comment éviter cela ?

D'avance merci
Dominique

 

[JCGL]

Re : Compatible ou pas ?

Bonjour à tous,

Peut-être en supprimant la MsgBox ou avec Application.DisplayAlerts = False et son pendant le plus tôt possible Application.DisplayAlerts = True

A+ à tous

 

[WDAndCo]

Re : Compatible ou pas ?

Re Bonjour

Private Sub CommandButton2_Click()
UserForm1.Hide
MsgBox "Calcul en cours"
Application.DisplayAlerts = False
Call RechercheCompatibilitéL
Application.DisplayAlerts = True
End Sub

Le message toujours bloquant ! (Les calculs étant relativement longs 'selon la machine' je préfère laisser le message place pour rassurer l'utilisateur, pendant la durée de calculs

Call RechercheCompatibilitéL

dans notre Exemple !)

Dominique