Bonjour amelof7786,

Lorsque tu enregistres le fichier assure-toi de choisir Classeur Excel (prenant en charge les macros) (*.xlsm) avec Bouton Office/Enregistrer sous....

Cordialement,

Guy

Bonjour rayms,

Il serait bien de clarifier la donnée du problème soumis.

L'événement BeforeDoubleClick() n'est pris en compte que pour la plage A6:E34, bien.
Par contre tu écris «J’ai un tableau avec des données dans les colonnes A, B, et C» or la colonne A est vide et les données sources sont en colonne B, D et E (??).

Identiquement tu écris « Par double clic je copie une donnée contenue dans la colonne A et je l’envoie vers une autre cellule.» or derechef la colonne A ne fait pas partie des colonnes sources (??).

Avant de monter du code il faudrait poser le modèle du traitement que tu souhaites et qui, pour l'instant, n'est pas clair.

Cordialement,

Guy

Bonjour beatbles,

J'ai déplacé le code de l'événement Exit vers l'événement KeyDown comme suit :

Private Sub txtSaisie_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  
  Dim nHeu As String
  Dim Rep As String
  
  If KeyCode = vbKeyReturn Then
  
    Range("B1") = txtSaisie
    TextBox3 = Range("A1")
    nHeu = Range("C1")
    Rep = Format(nHeu, "hh:mm:ss")
    TextBox2 = Rep
    txtSaisie = ""
    
    KeyCode = vbKeyHome
    
  End If
    
End Sub

À noter que j'ai renommé la zone de texte TextBox1 en txtSaisie et ajouté Option Explicit dans l'en-tête du module.

Zieute la solution et dis-nous si la chose convient.

Cordialement,

Guy

Bonjour wjmavsk,

Une remarque d'abord. Tu n'utilises pas la directive de compilation Option Explicit.

Microsoft a gardé sa manie de ne pas prémunir les codeurs contre l'imprécision (pour dire le moins) dans le montage du code.

Habitude à prendre et à garder : dans l'éditeur de code VBA menu Outils/Options.

Dans le formulaire qui apparaît onglet Éditeur, cocher la case Déclaration des variables obligatoire.

Enfin, après avoir aperçu ton classeur, je crois que tu devrais utiliser le complément de Didier comme calendrier mdf_XLCalendar.xla. Celui-ci n'utilise pas de contrôle Activex (OCX) mais des contrôles standards.

Page de téléchargement http://www.mdf-xlpages.com/modules/TD ... file.php?cid=2&lid=19

Cordialement,

Guy

Bonsoir wjmavsk,

Exceptionnellement joint ton fichier à un courriel perso au guy@2pme.ca et je zieuterai la chose. Je suis surpris que ce classeur pèse autant, il ne s'agit que de gérer la présence du contrôle MSCOMCT2.OCX après tout.

Cordialement,

Guy

Bonjour wjmavsk,

La compilation conditionnelle existe bel et bien en VBA.

À première vue je ne crois pas que la solution au problème soulevé soit de ce côté.

Pourrais-tu fournir un classeur exemple?

Cordialement,

Guy

Bonjour Iztougood et bienvenue dans ce forum,

Pourrais-tu être plus précis dans la formulation de ta question?

Donner une liste des familles dans un classeur par exemple.

Cordialement,

Guy

Bonjour JmGaly,

Pourrais-tu fournir un petit fichier exemple, quelque chose qui permettrai d'apercevoir la marche que tu sembles louper.

Cordialement,

Guy

Bonjour targa,

Je passe sur le côté approximatif du montage de l'application et la méthode choisie pour filtrer les données.

En attendant de peaufiner davantage essaie de remplacer

Private Sub Worksheet_Change(ByVal Target As Range)
 If [G1] = "MT10" Then MacroMT_10
 If [G1] = "MT31" Then MacroMT_31
 If [G1] = "MT34" Then MacroMT_34
 If [G1] = "MT36" Then MacroMT_36
 If [G1] = "MT36_pont" Then MacroMT_36_pont
 If [G1] = "MT41" Then MacroMT_41
 If [G1] = "MT42" Then MacroMT_42
 If [G1] = "MT44" Then MacroMT_44
 If [G1] = "MT45" Then MacroMT_45
 End Sub

par

Private Sub Worksheet_Change(ByVal Target As Range)
 If [G1] = "MT10" Then Call MT_10
 If [G1] = "MT31" Then Call MT_31
 If [G1] = "MT34" Then Call MT_34
 If [G1] = "MT36" Then Call MT_36
 If [G1] = "MT36_pont" Then Call MT_36_pont
 If [G1] = "MT41" Then Call MT_41
 If [G1] = "MT42" Then Call MT_42
 If [G1] = "MT44" Then Call MT_44
 If [G1] = "MT45" Then Call MT_45
 End Sub

Le mot réservé Call est indiqué mais pas obligatoire.

Aussi tu auras remarqué qu'en compilant, habitude à prendre impérativement, une erreur se produit sur l'une quelconque des lignes

If [G1] = "UneValeur" Then MacroUneValeur

Aucune procédure publique du module ne porte Macro en préfixe, d'où l'erreur de compilation. Par exemple MacroMT_45 n'existe pas alors que MT_45 est bien nommée.

Voilà, remplace ton bout de code par celui fourni et dis-moi si ça fonctionne.

Cordialement,

Guy

Bonjour Naela et bienvenu sur le forum,

Pourrais-tu fournir un classeur exemple portant le formulaire en question.

Merci,

Guy