complèter le code

Bonjour

En doubleclic car en sélection change il ajoute a chaque changement de cell

Donc met ceci dans le code de la feuil

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Range('a1').Value = Date Then
Range('B10').Value = Range('B10').Value + 365
End If
End Sub

Si c'est une simple vérification à l'ouverture:

Dans le workbook aulieu de la feuil...

Private Sub Workbook_Open()
If Range('a1').Value = Date Then
Range('B10').Value = Range('B10').Value + 365
End If
End Sub

Le hic en open est qu'il ajoute a chaque ouverture!! si condition remplie
A+

Temjeh

Message édité par: Temjeh, à: 30/04/2006 13:11

Re bonjour Temjeh
J’ai essayé le code ,rien n’est changer
Dans votre code vous dite before doubleclic, (doubleclic sur quoi ?)
Merci d’avance

Salut Kam, Temjeh,

Temjeh parle d'un double click sur n'importe quelle cellule de la feuille. Juste une simple question, as-tu placé le code dans le module de la feuille adéquate, j'entends par la que les macro évenementielle (dont tu peux trouver la liste dans un module de feuille, tu as 2 listes de choix, dans celle de gauche tu choisis Worksheet et dans celle de droite tu as tout les choix possible) doivent etre placée dans les modules de feuilles et non dans les modules standards.

@+

Re bonjour
Merci Porcinet,Temjeh, j’ai bien comprit
Est il possible de changer le double clic sur n’importe quelle cellule par une fonction
Merci d'avance

Salut Kam, bonjour a tous,

Qu'entends-tu par remplacer le double click par une fonction, je ne vois pas trop ce que tu entends par fonction, est-ce que tu pourrais développer un peu STP.

@+