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 Calcul de cellules

Calcul de cellules

5 réponses
Avatar
RC
Bonjour a tous...
Je souhaite compter dans un tableau le nombre de cellules grises et
comportant des données... j'ai la formule mais je ne sait pas quoi mettre
après le c.Value
Voici la formule:

Private Sub Heures_sup()
Dim Sh As Worksheet
d = 0: e = 2
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> ActiveSheet.Name Then
For Each c In Sh.Range("D5:I119")
If c.Interior.ColorIndex = 15 And c.Value = "" Then d = d + 1
Next
End If
Cells(41, e + 3) = d / 2
d = 0: e = e + 1
Next
End Sub

Merci de votre aide... ;-)
RC
Signaler un problème avec ce contenu

5 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
Jacky
Bonjour,

If c.Interior.ColorIndex = 15 And c <>"" Then d = d + 1

;o))
JJ


"RC" a écrit dans le message de
news:
Bonjour a tous...
Je souhaite compter dans un tableau le nombre de cellules grises et
comportant des données... j'ai la formule mais je ne sait pas quoi mettre
après le c.Value
Voici la formule:

Private Sub Heures_sup()
Dim Sh As Worksheet
d = 0: e = 2
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> ActiveSheet.Name Then
For Each c In Sh.Range("D5:I119")
If c.Interior.ColorIndex = 15 And c.Value = "" Then d = d + 1
Next
End If
Cells(41, e + 3) = d / 2
d = 0: e = e + 1
Next
End Sub

Merci de votre aide... ;-)
RC




Avatar
RC
Yes i....
Merci à toi jj.... ;-)

RC

"Jacky" a écrit dans le message de
news:e%
Bonjour,

If c.Interior.ColorIndex = 15 And c <>"" Then d = d + 1

;o))
JJ


"RC" a écrit dans le message de
news:
Bonjour a tous...
Je souhaite compter dans un tableau le nombre de cellules grises et
comportant des données... j'ai la formule mais je ne sait pas quoi
mettre


après le c.Value
Voici la formule:

Private Sub Heures_sup()
Dim Sh As Worksheet
d = 0: e = 2
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> ActiveSheet.Name Then
For Each c In Sh.Range("D5:I119")
If c.Interior.ColorIndex = 15 And c.Value = "" Then d = d + 1
Next
End If
Cells(41, e + 3) = d / 2
d = 0: e = e + 1
Next
End Sub

Merci de votre aide... ;-)
RC








Avatar
Jacky
Re..
Je constate que tu bosses encore sur le même tableau, hein ;o))
JJ

"RC" a écrit dans le message de
news:%23u%
Yes i....
Merci à toi jj.... ;-)

RC

"Jacky" a écrit dans le message de
news:e%
Bonjour,

If c.Interior.ColorIndex = 15 And c <>"" Then d = d + 1

;o))
JJ


"RC" a écrit dans le message de
news:
Bonjour a tous...
Je souhaite compter dans un tableau le nombre de cellules grises et
comportant des données... j'ai la formule mais je ne sait pas quoi
mettre


après le c.Value
Voici la formule:

Private Sub Heures_sup()
Dim Sh As Worksheet
d = 0: e = 2
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> ActiveSheet.Name Then
For Each c In Sh.Range("D5:I119")
If c.Interior.ColorIndex = 15 And c.Value = "" Then d = d + 1
Next
End If
Cells(41, e + 3) = d / 2
d = 0: e = e + 1
Next
End Sub

Merci de votre aide... ;-)
RC












Avatar
RC
Hé oui... bien vu...
J'essaie à présent de l'améliorer en ajoutant des fonctionnalités
intéressantes du point de vu "visibilité" du travail du personnel...
Mais également du point de vu pratique pour que l'outil puisse être utilisé
d'une année sur l'autre, et qu'il ne nécessite pas de modifications en cas
de changement de formateur ou d'action...
Au final, je pense qu'il devrait être pas mal...
... et sera évident grâce à l'aide que vous m'apportez... ;-)

RC

PS: Si j'arrive à le vendre, je vous file 10°/. des gains... ça va de
soit...

"Jacky" a écrit dans le message de
news:
Re..
Je constate que tu bosses encore sur le même tableau, hein ;o))
JJ

"RC" a écrit dans le message de
news:%23u%
Yes i....
Merci à toi jj.... ;-)

RC

"Jacky" a écrit dans le message de
news:e%
Bonjour,

If c.Interior.ColorIndex = 15 And c <>"" Then d = d + 1

;o))
JJ


"RC" a écrit dans le message de
news:
Bonjour a tous...
Je souhaite compter dans un tableau le nombre de cellules grises et
comportant des données... j'ai la formule mais je ne sait pas quoi
mettre


après le c.Value
Voici la formule:

Private Sub Heures_sup()
Dim Sh As Worksheet
d = 0: e = 2
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> ActiveSheet.Name Then
For Each c In Sh.Range("D5:I119")
If c.Interior.ColorIndex = 15 And c.Value = "" Then d = d + 1
Next
End If
Cells(41, e + 3) = d / 2
d = 0: e = e + 1
Next
End Sub

Merci de votre aide... ;-)
RC
















Avatar
Jacky
PS: Si j'arrive à le vendre, je vous file 10°/. des gains... ça va de
soit...


Il n'a pas de prix.
;-))
JJ

"RC" a écrit dans le message de
news:u8%
Hé oui... bien vu...
J'essaie à présent de l'améliorer en ajoutant des fonctionnalités
intéressantes du point de vu "visibilité" du travail du personnel...
Mais également du point de vu pratique pour que l'outil puisse être
utilisé

d'une année sur l'autre, et qu'il ne nécessite pas de modifications en cas
de changement de formateur ou d'action...
Au final, je pense qu'il devrait être pas mal...
... et sera évident grâce à l'aide que vous m'apportez... ;-)

RC

PS: Si j'arrive à le vendre, je vous file 10°/. des gains... ça va de
soit...

"Jacky" a écrit dans le message de
news:
Re..
Je constate que tu bosses encore sur le même tableau, hein ;o))
JJ

"RC" a écrit dans le message de
news:%23u%
Yes i....
Merci à toi jj.... ;-)

RC

"Jacky" a écrit dans le message de
news:e%
Bonjour,

If c.Interior.ColorIndex = 15 And c <>"" Then d = d + 1

;o))
JJ


"RC" a écrit dans le message de
news:
Bonjour a tous...
Je souhaite compter dans un tableau le nombre de cellules grises
et





comportant des données... j'ai la formule mais je ne sait pas quoi
mettre


après le c.Value
Voici la formule:

Private Sub Heures_sup()
Dim Sh As Worksheet
d = 0: e = 2
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> ActiveSheet.Name Then
For Each c In Sh.Range("D5:I119")
If c.Interior.ColorIndex = 15 And c.Value = "" Then d = d +
1





Next
End If
Cells(41, e + 3) = d / 2
d = 0: e = e + 1
Next
End Sub

Merci de votre aide... ;-)
RC