XL 2021 Addition des colonnes Cliquée

[clausen]

Bonsoir tout le monde

Nouvelle requête

J'aimerai quand cliquant dans les cellules B6 à Bx (toute la colonne)

il y apparaisse par exemple un signe ou que la couleur de la cellule change et que

Et que le résultat (addition des valeurs de la colonne Rapide Unit (F) des cellules cliquer soit transposer dans la cellule R12 (Par exemple)


Une fois le transfert dans R12 vider la colonne B


Est ce possible ??

 

[sylvanu]

Bonsoir Clausen,
Un essai en PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B5:B1000]) Is Nothing Then
        If Cells(Target.Row, "C") = "" Then Exit Sub
        [B5:B1000].Interior.Color = xlNone
        Range(Target.Address).Interior.Color = vbMagenta
        [R12] = Cells(Target.Row, "F")
    End If
Fin:
End Sub

Par contre pas compris : "Une fois le transfert dans R12 vider la colonne B"
Car le transfert est immédiat lorsqu'on clique en colonne B, donc vous ne verez jamais la colonne B changer de couleur.
En PJ la couleur reste jusqu'au prochain clic sur la colonne B.

 

[clausen]

Bonsoir Clausen,
Un essai en PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B5:B1000]) Is Nothing Then
        If Cells(Target.Row, "C") = "" Then Exit Sub
        [B5:B1000].Interior.Color = xlNone
        Range(Target.Address).Interior.Color = vbMagenta
        [R12] = Cells(Target.Row, "F")
    End If
Fin:
End Sub

Par contre pas compris : "Une fois le transfert dans R12 vider la colonne B"
Car le transfert est immédiat lorsqu'on clique en colonne B, donc vous ne verez jamais la colonne B changer de couleur.
En PJ la couleur reste jusqu'au prochain clic sur la colonne B.

Je ne m'explique pas bien, je sais. Je veux cliquer dans la colonne et que ça additionne les lignes que j'ai cliqué sur E1 et ensuite sur E4, je dois avoir 5 dans R12

 

[sylvanu]

Je veux cliquer dans la colonne et que ça additionne les lignes que j'ai cliqué sur E1 et ensuite sur E4, je dois avoir 5 dans R12

C'est toujours aussi peu clair. Pourquoi E4 ? mystère 🙂
En PJ un essai avec :
Un clic en E1 lance le comptage.
Ensuite on clique sur la colonne B, et en R12 on a la somme des cellules cliquées en colonne B
Si on appui sur une cellule colorée, elle redevient blanche et R12 est décompté.
Un clic en F1 (stop) remet tout en état inactif.

 

[clausen]

C'est toujours aussi peu clair. Pourquoi E4 ? mystère 🙂
En PJ un essai avec :
Un clic en E1 lance le comptage.
Ensuite on clique sur la colonne B, et en R12 on a la somme des cellules cliquées en colonne B
Si on appui sur une cellule colorée, elle redevient blanche et R12 est décompté.
Un clic en F1 (stop) remet tout en état inactif.

Merci mille fois ça fonctionne super champion

 

[clausen]

J'aimerais comme dans l'exemple feuille statistique que lors de l'enregistrement la première des trois lignes (la cellule date) soit en rouge par exemple.


Merci d'avance

 

[sylvanu]

Bonjour Clausen,
A mettre dans Thisworbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Sheets("Statistiques")
        For L = 4 To .[A10000].End(xlUp).Row Step 3
            Cells(L, "A").Font.Color = vbRed
            Cells(L, "A").Font.Bold = True
        Next L
    End With
    ThisWorkbook.Save
End Sub

 

[clausen]

Bonjour Clausen,
A mettre dans Thisworbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Sheets("Statistiques")
        For L = 4 To .[A10000].End(xlUp).Row Step 3
            Cells(L, "A").Font.Color = vbRed
            Cells(L, "A").Font.Bold = True
        Next L
    End With
    ThisWorkbook.Save
End Sub

Je ne sais pas du tout où mettre ça. Je n'ai aucune idée. Si des fois voila ma dernière version. J'ai fais quelque modifs. Merci d'avance de m'intégrer cette Macro je pense

 

[sylvanu]

A mettre dans Thisworbook :

Vous auriez du tester ma PJ car la macro y est déjà. Ainsi que dans votre nouvelle PJ. ( et je l'ai testée ça marche ) 😉

Par contre vous dites que c'est votre dernière version, et je vois que dans la feuille Tableau il n'y a plus en E1:F1 Compte et Stop.
C'est bien votre dernière version ? 🙁

 

[clausen]

J'ai simplement déplacé et ça fonctionne E1:F1 en O12 P12

Par contre, je n'arrive absolument pas à intégrer cette macro qui devrait s'exécuter juste après l'enregistrement des statistiques ou en même temps.

 

[sylvanu]

Oups ! J'ai fait la macro sur fermeture fichier et non sur Enregistrement. La nouvelle en PJ avec :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With Sheets("Statistiques")
        For L = 4 To .[A10000].End(xlUp).Row Step 3
            Cells(L, "A").Font.Color = vbRed
            Cells(L, "A").Font.Bold = True
        Next L
    End With
    ThisWorkbook.Save
End Sub

 

[clausen]

Oups ! J'ai fait la macro sur fermeture fichier et non sur Enregistrement. La nouvelle en PJ avec :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With Sheets("Statistiques")
        For L = 4 To .[A10000].End(xlUp).Row Step 3
            Cells(L, "A").Font.Color = vbRed
            Cells(L, "A").Font.Bold = True
        Next L
    End With
    ThisWorkbook.Save
End Sub

Je viens de faire des essais, voilà le résultat ça ne fonctionne pas Je vais laisser tomber

 

[sylvanu]

Chez moi ça marche. Dès qu'on enregistre on colore les cellules en rouge :

 

[clausen]

Chez moi ça marche. Dès qu'on enregistre on colore les cellules en rouge :

Ok, je vois que l'on ne parle pas de la même chose, moi, je parlais de MA touche enregistrer (vois fichier joint).

J'ai essayé en enregistrant le dossier et la ça fonctionne. Mais je voulais que ça ce passe avec ma touche. Je vais laisser comme ça

Merci et bonne soirée.

 

[sylvanu]

Il suffit de rajouter le code à la fin de votre macro Stat :

' Mise en rouge 1 ligne sur 3
With Sheets("Statistiques")
    For L = 4 To .[A10000].End(xlUp).Row Step 3
        .Cells(L, "A").Font.Color = vbRed
        .Cells(L, "A").Font.Bold = True
    Next L
End With