Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

andreaugusta

comment utiliser 2 fois OnEntry

Messages recommandés

Bonjour,

 

Je vous mets ce que j'ai écrit.

Mon but est lorsque je suis sur la feuiile Recettes de faire afficher un message dans certaines colonnes.

Lorsque je suis sur la feuille Dépenses de rentrer mes données.

 

Si je mets OnEntry pour SaisieDépenses seulement pas de problème. Idem pour SaisieRecettes.

 

L'écriture actuelle dans Sub Définir ne fonctionne pas.

Comment écrire pour que je puisse faire ce que je vous indique au début.

 

Je suis sous xp édition familialle et j'ai écrit en VBA2000.

 

Merci pour votre aide.

 

 

Sub Auto_Open()

 

Application.ScreenUpdating = False

 

With Application

.ShowToolTips = True

.LargeButtons = False

.ColorButtons = True

End With

 

Application.DisplayStatusBar = True

Application.StatusBar = Space(30) & "COMPTA ART BASES " & Date

 

Application.CommandBars("Standard").Visible = False

 

Application.CommandBars("SYSTRAN Premium 5.0").Visible = False

 

Application.WindowState = xlNormal

Application.DisplayFullScreen = True

Application.DisplayFormulaBar = False

 

Call CreerBarre

Call PositionBarre

Call Définir

End Sub

Sub Définir()

Worksheets("Dépenses"). _

Application.OnEntry = "SaisieDépense"

Worksheets("Recettes"). _

Application.OnEntry = "SaisieRecettes"

 

Application.ScreenUpdating = True

 

End Sub

Partager ce message


Lien à poster
Partager sur d’autres sites

Votre contenu devra être approuvé par un modérateur

Invité
Vous postez un commentaire en tant qu’invité. Si vous avez un compte, merci de vous connecter.
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.


  • En ligne récemment   0 membre est en ligne

    Aucun utilisateur enregistré regarde cette page.

×