Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro de cellule !

Macro de cellule !

4 réponses
Avatar
Charles
Bonjour tout le monde !!

J'aimerais affecter une macro =E0 une cellule de telle sorte=20
=E0 ce qu'elle compte des cases rouge par exemple.=20
J'ai un certain nombre de cellules : A1 -> A10 par exemple
Actuellement, qd je dbl click sur une des cellules, elle=20
devient rouge et quand je dbl click =E0 nouveau elle=20
redevient incolore.

J'aimerais que dans une autre cellule, il me compte=20
automatiquement le nombre de cases rouge, =E0 chaque=20
changement, comment faire svp ??!

Un grand merci =E0 mon sauveur par avance ;-)

Bonne journ=E9e
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
DAH
J'aimerais affecter une macro à une cellule de telle sorte
à ce qu'elle compte des cases rouge par exemple.
J'ai un certain nombre de cellules : A1 -> A10 par exemple
Actuellement, qd je dbl click sur une des cellules, elle
devient rouge et quand je dbl click à nouveau elle
redevient incolore.


Si tu as changé les couleurs des cases à chaque double clic par macro alors
ajoute dans tes macros.

L'exemple ci-dessous te mettra le total en cellule C4... ceci n'est qu'un
exemple:

Sub Rouge
...
traitement cellule rouge... blabla...

Range("C4").value = Range("C4").value + 1
...
End sub

Sub Incolore
...
traitement cellule incolore... blabla...

Range("C4").value = Range("C4").value - 1
...
End sub

Avatar
Charles
merci bien !!
Très bonne fin de journée

-----Message d'origine-----
J'aimerais affecter une macro à une cellule de telle
sorte


à ce qu'elle compte des cases rouge par exemple.
J'ai un certain nombre de cellules : A1 -> A10 par
exemple


Actuellement, qd je dbl click sur une des cellules, elle
devient rouge et quand je dbl click à nouveau elle
redevient incolore.


Si tu as changé les couleurs des cases à chaque double
clic par macro alors

ajoute dans tes macros.

L'exemple ci-dessous te mettra le total en cellule C4...
ceci n'est qu'un

exemple:

Sub Rouge
....
traitement cellule rouge... blabla...

Range("C4").value = Range("C4").value + 1
....
End sub

Sub Incolore
....
traitement cellule incolore... blabla...

Range("C4").value = Range("C4").value - 1
....
End sub


.




Avatar
Serge
If I may, bon noël...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, Cancel As Boolean)
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim NbCol As Integer
Dim NbRow As Integer

With Selection.Interior
If .ColorIndex = 3 Then
.ColorIndex = 6
Else
.ColorIndex = 3
End If
End With
With ActiveCell.SpecialCells(xlLastCell)
NbCol = .Column
NbRow = .Row
End With
k = 0
For i = 1 To NbCol
For j = 1 To NbRow
If Cells(j, i).Interior.ColorIndex = 3 Then k = k
+ 1
Next j
Next i
Cells(1, 1) = k
End Sub



-----Message d'origine-----
Bonjour tout le monde !!

J'aimerais affecter une macro à une cellule de telle
sorte

à ce qu'elle compte des cases rouge par exemple.
J'ai un certain nombre de cellules : A1 -> A10 par exemple
Actuellement, qd je dbl click sur une des cellules, elle
devient rouge et quand je dbl click à nouveau elle
redevient incolore.

J'aimerais que dans une autre cellule, il me compte
automatiquement le nombre de cases rouge, à chaque
changement, comment faire svp ??!

Un grand merci à mon sauveur par avance ;-)

Bonne journée
.



Avatar
Charles
Merci et Joyeuses fêtes :-)

-----Message d'origine-----
If I may, bon noël...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, Cancel As Boolean)
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim NbCol As Integer
Dim NbRow As Integer

With Selection.Interior
If .ColorIndex = 3 Then
.ColorIndex = 6
Else
.ColorIndex = 3
End If
End With
With ActiveCell.SpecialCells(xlLastCell)
NbCol = .Column
NbRow = .Row
End With
k = 0
For i = 1 To NbCol
For j = 1 To NbRow
If Cells(j, i).Interior.ColorIndex = 3 Then k = k
+ 1
Next j
Next i
Cells(1, 1) = k
End Sub



-----Message d'origine-----
Bonjour tout le monde !!

J'aimerais affecter une macro à une cellule de telle
sorte

à ce qu'elle compte des cases rouge par exemple.
J'ai un certain nombre de cellules : A1 -> A10 par
exemple


Actuellement, qd je dbl click sur une des cellules, elle
devient rouge et quand je dbl click à nouveau elle
redevient incolore.

J'aimerais que dans une autre cellule, il me compte
automatiquement le nombre de cases rouge, à chaque
changement, comment faire svp ??!

Un grand merci à mon sauveur par avance ;-)

Bonne journée
.

.