Discussion :

[Did458]

Bonjour,

Quelqu'un pourrait-il m'aider à réaliser la macro suivante?

Je clique sur une cellule de la feuille 1 (par exemple E8) où il y a du texte (par exemple LION).

Je souhaiterais que le nombre de la feuille 2 (à l'intersection de la ligne où est écrit LION et de la colonne où figure la date du jour) soit augmenté de 1.

Merci par avance pour votre aide.

Didier

[casefayere]

Bonsoir,
tu te répètes dans tes fils, j'ai repris ton fichier et ne réponds qu'à ce fil, un exemple parmi d'autres, dans le code de la feuille "emplacements"

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
19
20
21
Option Explicit
Dim derlg_points As Long, Je_clique As Range, maDate As Date, colDate, x As Long, y As Long
 
Private Sub Worksheet_Activate()
Range("a1").Select 'pour revenir à A1 afin de rendre efficace le "SelectionChange"
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 2 Then
  With Sheets("points")
    derlg_points = .Range("A" & .Rows.Count).End(xlUp).Row
    Set Je_clique = .Range("a3:a" & derlg_points).Find(Target)
    If Not Je_clique Is Nothing Then
      maDate = Date
    End If
    colDate = .Range("C2:PC2").Find(maDate, LookIn:=xlValues).Column
    .Cells(Je_clique.Row, colDate) = .Cells(Je_clique.Row, colDate) + 1
    Range("a1").Select
  End With
End If
End Sub

Maintenant, si je reprends l'énoncé de ton autre fil, ci-dessous une idée qui reprend les 2 premières questions :

1°) A chaque fois que je clique sur une cellule de la feuille « emplacements » (par exemple E8 : BOLIX, exemple avec lequel je vais décrire ce que je veux), le nombre inscrit dans la feuille « points » à l’intersection de BOLIX et de la date du jour (aujourdhui le 24/06/2013) (cellule GS10 pour l’exemple) augmente de 1.
J’ai déjà rentré les formules pour les colonnes TOTAL (total des points de l’année) pour les feuilles « points » et « actions ».

2°) Si le total pour BOLIX est 1, 4, 7, 10, 13, etc, (reste de la division du total par 3 est 1), la cellule E8 de la feuille « emplacements » devient jaune.
Si le total pour BOLIX est 2, 5, 8, 11, 14, etc, (reste de la division du total par 3 est 2), la cellule E8 de la feuille « emplacements » devient orange.
Si le total pour BOLIX est 3, 6, 9, 12, 15, etc, (reste de la division du total par 3 est 0 sauf pour un total de 0), la cellule E8 de la feuille « emplacements » devient rouge.

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
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
Dim derlg_points As Long, Je_clique As Range, maDate As Date, colDate
 
Private Sub Worksheet_Activate()
Range("a1").Select 'pour revenir à A1 afin de rendre efficace le "SelectionChange"
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 2 Then
  With Sheets("points")
    derlg_points = .Range("A" & .Rows.Count).End(xlUp).Row
    Set Je_clique = .Range("a3:a" & derlg_points).Find(Target)
    If Not Je_clique Is Nothing Then
      maDate = Date
    End If
    colDate = .Range("C2:PC2").Find(maDate, LookIn:=xlValues).Column
    .Cells(Je_clique.Row, colDate) = .Cells(Je_clique.Row, colDate) + 1
    If .Range("B" & Je_clique.Row) Mod 3 = 1 Then
      Target.Interior.ColorIndex = 6
    ElseIf .Range("B" & Je_clique.Row) Mod 3 = 2 Then
      Target.Interior.ColorIndex = 45
    Else
      Target.Interior.ColorIndex = 3
    End If
    MsgBox .Range("B" & Je_clique.Row) & " " & .Range("B" & Je_clique.Row) Mod 3
    Range("a1").Select
  End With
End If
End Sub

[Did458]

Merci casefayere,

La macro fonctionne parfaitement.

Merci pour le temps que tu as consacré à mon problème.

Didier

[casefayere]

Ok, alors penses à cliquer sur et pour la suite tu pourras t'inspirer du code déjà fait

[Did458]

Encore merci Dom. Je vais me pencher sur le 3°).

Bonne soirée.

Didier