Discussion :

[Claude_B]

Bonjour, je voudrais que sur la présence du chiffre 1 dans la cellule A16, additionner le contenu de la cellule K16 dans ma variable F0600 et afficher ma variable F0600 dans ma cellule J7. J'ai écrit le code suivant, mais il n'y a rien qui se passe dans mon fichier. J'aurais besoin d'un peu d'aide.

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim F0600 As Long
 
Range("J7:J10").ClearContents
 
'PROJET B12F0600
If Target.Address = "$A$16" And Target.Count = 1 Then
 
Select Case Target.Value
        Case "1"
        F0600 = Range("K16").Value
        Range("J7") = F0600
End Select
 
End If
 
End Sub

[mercatog]

D'abord, la cellule A16 est elle modifiée par l'utilisateur (directement ou par macro) ou bien elle contient une formule?

[Claude_B]

la cellule A16 est modifiÉE manuellement

[mercatog]

A mettre dans le module de ta feuille.
Si l'utilisateur écrit 1 en A16, la valeur contenue de K16 est copiée en J7

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$A$16" Then
    Application.EnableEvents = False
    Range("J7:J10").ClearContents
    If Target.Value = 1 Then Range("J7").Value = Range("K16").Value
    Application.EnableEvents = True
End If
End Sub

[Claude_B]

Daccord, mais je voudrais que la valeur contenu dans K16 soit ajoutée dans la variable F0600. Je voudrais pouvoir incrémenter la variable F0600. Mon but est de faire une feuille de temps qui comporterait plusieurs projets dont F0600. Le chiffre 1 représente le code du projet.
Ex. 1 = projet F0600
2 = projet F0601 etc.
Donc à chaque fois qu'il y a le chiffre 1 dans une des cellules de la colonne A j'additionne le contenue des cellules K dans J7. Ce qui me donne le nombre d'heure total de chaque projet. Donc ily aura plusieurs vaiables dans mon programme. Une variable pour chaque projet et chaque variable sera aditionner dans une case différente.

Ce que je veux c'est incrémenter ma variable s'il y a le chiffre 1 dans une des cellules de la colonne A

Merci pour ton aide

[SfJ5Rpw8]

Il vas falloir que tu repose plus clairement ton problème actuellement ce que tu avais commencé à écrire c'est si la cellule A16 est modifié par l'utilisateur et la valeur saisie est 1 , tu place le contenu de la cellule K16 dans J7 ... il n'est pas question d'incrémentation ou d'addition dans ton code ...

ton histoire de variable n'est pas claire non plus... sachant que tel que tu la déclare ta variable est initialisé à 0 par VB à chaque appel de ta fonction et donc ne tiens pas compte des valeurs précédente ce celle-ci..
voir : http://mhubiche.developpez.com/Access/variables/#LIII