Modifier événement sur click

Le 08/01/2014 à 03:57

Bonjour,

Dans mon fichier de compta ecxcel je me retrouve avec un petit problème dont je n'arrive pas a trouver la solution qui certainement doit être très simple.... Mais je creuse sans résultat. En meme temps je suis un reel debutant.

Dans une des feuilles "Factures" lorsque je clic sur une cellule de la colonne A, celle ci doit m'ouvrir un calendrier. Cela fonctionne très bien mais lorsque je clic sur la cellule A1 ou se trouve seulement le titre de cette colonne cela m'ouvre egalement le calendrier, ce que je voudrais éviter.

Comment faire pour supprimer l'ouverture du calendrier lors d'un clic sur cette cellule A1 ?

Voici une copie écran. Merci de votre aide.

Tiri

edit dan : modifié titre du sujet (supprimé "demande d'Aide")

Le 08/01/2014 à 08:29

Bonjour,

merci pour la vue que tu as placée mais c'est plutot le fichier ou la macro qui permet de montrer le calendrier que je devrais voir pour t'aider

A te relire

Le 08/01/2014 à 10:04

Bonjour, merci de ton retour.

Voici le code de la feuille "Facture". Est ce suffisant ?

Encore merci

Tiri

Option Explicit

Dim EnCours As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Line1

Dim Ligne, LigneAjout As Long

Dim Reponse As Integer

Dim Question, NouvelleEntree As String

If EnCours = True Then Exit Sub

Ligne = ActiveCell.Row

If Target.Column = 2 And Target.Value2 = "Nouveau" Then

EnCours = True

AjoutReference

EnCours = False

End If

If Target.Column = 3 And Target.Value2 = "Nouveau" Then

EnCours = True

LigneAjout = Range("AB2:AB1000").Find("").Row

NouvelleEntree = InputBox("Saisir le nouveau produit :", "Ajout d'un produit")

If NouvelleEntree = "" Then

Exit Sub

Else

Reponse = MsgBox("Ok pour créer la nouvelle référence : " & NouvelleEntree & " ?", vbYesNo, "Contrôle")

If Reponse = 6 Then

Range("AB" & LigneAjout) = NouvelleEntree

EnCours = False

End If

MajValidation

End If

If Target.Column = 6 Then

EnCours = True

Range("G" & Ligne) = Range("E" & Ligne) / (1 + (Range("F" & Ligne) / 100))

Range("H" & Ligne) = Range("G" & Ligne) * (Range("F" & Ligne) / 100)

Range("J" & Ligne) = Range("E" & Ligne) / Range("D" & Ligne)

EnCours = False

End If

If Target.Column = 9 And Target.Value2 = "Nouveau" Then

EnCours = True

LigneAjout = Range("Z2:Z10000").Find("").Row

NouvelleEntree = InputBox("Saisir le nouveau Type de frais :", "Ajout d'un type de frais")

If NouvelleEntree = "" Then

Exit Sub

Else

Reponse = MsgBox("Ok pour créer le nouveau type de frais : " & NouvelleEntree & " ?", vbYesNo, "Contrôle")

If Reponse = 6 Then

Range("Z" & LigneAjout) = NouvelleEntree

EnCours = False

End If

MajValidation

End If

If Target.Column = 9 And Target.Value2 = "Investissement" Then

Question = InputBox("Saisir la durée de l'investissement en années", "Contrôle")

If Question = "" Then

Else

Range("K" & Ligne) = Question

Range("L" & Ligne) = Range("E" & Ligne) / Range("K" & Ligne)

End If

Line1:

EnCours = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address Like ("*:*") Then Exit Sub

If Target.Column = 1 Then

Calendrier.Show

End If

End Sub

Le 08/01/2014 à 10:19

Bonjour,

Une proposition à tester.

Cdlt

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
        If Target.Count > 1 Or Target.Address = "$A$1" Then Exit Sub
        Calendrier.Show
    End If
End Sub

Le 08/01/2014 à 10:38

Bonjour,

Merci je vais tester ceci, juste une question (bête de debutant) ou dois je rajouter ceci dans le code ?

Encore désolé mais je suis réellement debutant...

Tiri

Le 08/01/2014 à 12:31