complèter le code

[Kam]

Bonjour à tous
Bonjour le Forum
Est-il possible S.V.P de compléter le code suivant:

Private Sub worksheet_?????(?????????)
If Range('a1').Value=Date de l’ordinateur Then
augmenter automatiquement la date de la Cellule'B10' de 12 mois plus
End If
End Sub
Merci d’avance à toutes et à tous

 

[Temjeh]

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

 

[Kam]

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

 

[porcinet82]

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.

@+

 

[Kam]

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

 

[porcinet82]

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.

@+