afficher le nombre de ligne avec le font bleu et font rouge
4 réponses
pellet15
Bonjour =E0 tous
Dans un fichier j'ai un Commentaire qui s'affiche pour me donner le
nombre de ligne visible et le nombre de ligne total.
cela foctionne tr=E8s bien .
Je voudrait faire la m=EAme chose mais qui m'indiquerais le nombre de
ligne avec
la couleur de font Bleu et la couleur font Rouge.
cela dans la colonne J .
Merci
Voici le VBA:
Private Sub Worksheet_Calculate()
Totalfiltre
End Sub
Sub Totalfiltre()
With [Base!A1]
.ClearComments
.AddComment
With .Comment.Shape.OLEFormat.Object
.Text =3D Application.Subtotal(3, [Tfiltre]) & " ligne(s)" &
vbLf & "visible(s) sur " & vbLf & [Tfiltre].Rows.Count
.AutoSize =3D True
End With
With .Comment.Shape.OLEFormat.Object.Font
.Name =3D "Arial"
.Size =3D 10
.ColorIndex =3D 3
.Bold =3D True
End With
.Comment.Shape.OLEFormat.Object.Interior.ColorIndex =3D 19
Range("a1").Comment.Visible =3D False
End With
End Sub
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
JB
Bonjour,
Compte le nombre de cellules en couleur dans la colonne D
Sub parcoursItemsVisibles() For Each c In Range("d2", [d65000].End(xlUp)).SpecialCells(xlCellTypeVisible) If c.Interior.ColorIndex = 3 And c.Font.ColorIndex = 5 Then n = n + 1 End If Next c MsgBox n End Sub
Dans un fichier j'ai un Commentaire qui s'affiche pour me donner le nombre de ligne visible et le nombre de ligne total. cela foctionne très bien .
Je voudrait faire la même chose mais qui m'indiquerais le nombre de ligne avec la couleur de font Bleu et la couleur font Rouge. cela dans la colonne J . Merci
Voici le VBA:
Private Sub Worksheet_Calculate() Totalfiltre End Sub
Sub Totalfiltre() With [Base!A1] .ClearComments .AddComment With .Comment.Shape.OLEFormat.Object .Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s)" & vbLf & "visible(s) sur " & vbLf & [Tfiltre].Rows.Count .AutoSize = True End With With .Comment.Shape.OLEFormat.Object.Font .Name = "Arial" .Size = 10 .ColorIndex = 3 .Bold = True End With .Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19 Range("a1").Comment.Visible = False End With End Sub
Bonjour,
Compte le nombre de cellules en couleur dans la colonne D
Sub parcoursItemsVisibles()
For Each c In Range("d2",
[d65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
If c.Interior.ColorIndex = 3 And c.Font.ColorIndex = 5 Then
n = n + 1
End If
Next c
MsgBox n
End Sub
On 19 avr, 02:38, pellet15 <pelle...@videotron.ca> wrote:
Bonjour à tous
Dans un fichier j'ai un Commentaire qui s'affiche pour me donner le
nombre de ligne visible et le nombre de ligne total.
cela foctionne très bien .
Je voudrait faire la même chose mais qui m'indiquerais le nombre de
ligne avec
la couleur de font Bleu et la couleur font Rouge.
cela dans la colonne J .
Merci
Voici le VBA:
Private Sub Worksheet_Calculate()
Totalfiltre
End Sub
Sub Totalfiltre()
With [Base!A1]
.ClearComments
.AddComment
With .Comment.Shape.OLEFormat.Object
.Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s)" &
vbLf & "visible(s) sur " & vbLf & [Tfiltre].Rows.Count
.AutoSize = True
End With
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Arial"
.Size = 10
.ColorIndex = 3
.Bold = True
End With
.Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19
Range("a1").Comment.Visible = False
End With
End Sub
Compte le nombre de cellules en couleur dans la colonne D
Sub parcoursItemsVisibles() For Each c In Range("d2", [d65000].End(xlUp)).SpecialCells(xlCellTypeVisible) If c.Interior.ColorIndex = 3 And c.Font.ColorIndex = 5 Then n = n + 1 End If Next c MsgBox n End Sub
Dans un fichier j'ai un Commentaire qui s'affiche pour me donner le nombre de ligne visible et le nombre de ligne total. cela foctionne très bien .
Je voudrait faire la même chose mais qui m'indiquerais le nombre de ligne avec la couleur de font Bleu et la couleur font Rouge. cela dans la colonne J . Merci
Voici le VBA:
Private Sub Worksheet_Calculate() Totalfiltre End Sub
Sub Totalfiltre() With [Base!A1] .ClearComments .AddComment With .Comment.Shape.OLEFormat.Object .Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s)" & vbLf & "visible(s) sur " & vbLf & [Tfiltre].Rows.Count .AutoSize = True End With With .Comment.Shape.OLEFormat.Object.Font .Name = "Arial" .Size = 10 .ColorIndex = 3 .Bold = True End With .Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19 Range("a1").Comment.Visible = False End With End Sub
pellet15
On 19 avr, 01:43, JB wrote:
Bonjour,
Compte le nombre de cellules en couleur dans la colonne D
Sub parcoursItemsVisibles() For Each c In Range("d2", [d65000].End(xlUp)).SpecialCells(xlCellTypeVisible) If c.Interior.ColorIndex = 3 And c.Font.ColorIndex = 5 Then n = n + 1 End If Next c MsgBox n End Sub
Dans un fichier j'ai un Commentaire qui s'affiche pour me donner le nombre de ligne visible et le nombre de ligne total. cela foctionne très bien .
Je voudrait faire la même chose mais qui m'indiquerais le nombre de ligne avec la couleur de font Bleu et la couleur font Rouge. cela dans la colonne J . Merci
Voici le VBA:
Private Sub Worksheet_Calculate() Totalfiltre End Sub
Sub Totalfiltre() With [Base!A1] .ClearComments .AddComment With .Comment.Shape.OLEFormat.Object .Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s)" & vbLf & "visible(s) sur " & vbLf & [Tfiltre].Rows.Count .AutoSize = True End With With .Comment.Shape.OLEFormat.Object.Font .Name = "Arial" .Size = 10 .ColorIndex = 3 .Bold = True End With .Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19 Range("a1").Comment.Visible = False End With End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir JB
J'ai fait un exemple et cela ne fonctionne pas !
Regarde la cellule a1 , le commentaire , je voudrait le maime principe pour J1
Merci
On 19 avr, 01:43, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Compte le nombre de cellules en couleur dans la colonne D
Sub parcoursItemsVisibles()
For Each c In Range("d2",
[d65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
If c.Interior.ColorIndex = 3 And c.Font.ColorIndex = 5 Then
n = n + 1
End If
Next c
MsgBox n
End Sub
On 19 avr, 02:38, pellet15 <pelle...@videotron.ca> wrote:
Bonjour à tous
Dans un fichier j'ai un Commentaire qui s'affiche pour me donner le
nombre de ligne visible et le nombre de ligne total.
cela foctionne très bien .
Je voudrait faire la même chose mais qui m'indiquerais le nombre de
ligne avec
la couleur de font Bleu et la couleur font Rouge.
cela dans la colonne J .
Merci
Voici le VBA:
Private Sub Worksheet_Calculate()
Totalfiltre
End Sub
Sub Totalfiltre()
With [Base!A1]
.ClearComments
.AddComment
With .Comment.Shape.OLEFormat.Object
.Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s)" &
vbLf & "visible(s) sur " & vbLf & [Tfiltre].Rows.Count
.AutoSize = True
End With
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Arial"
.Size = 10
.ColorIndex = 3
.Bold = True
End With
.Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19
Range("a1").Comment.Visible = False
End With
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir JB
J'ai fait un exemple et cela ne fonctionne pas !
Regarde la cellule a1 , le commentaire , je voudrait le maime
principe pour J1
Compte le nombre de cellules en couleur dans la colonne D
Sub parcoursItemsVisibles() For Each c In Range("d2", [d65000].End(xlUp)).SpecialCells(xlCellTypeVisible) If c.Interior.ColorIndex = 3 And c.Font.ColorIndex = 5 Then n = n + 1 End If Next c MsgBox n End Sub
Dans un fichier j'ai un Commentaire qui s'affiche pour me donner le nombre de ligne visible et le nombre de ligne total. cela foctionne très bien .
Je voudrait faire la même chose mais qui m'indiquerais le nombre de ligne avec la couleur de font Bleu et la couleur font Rouge. cela dans la colonne J . Merci
Voici le VBA:
Private Sub Worksheet_Calculate() Totalfiltre End Sub
Sub Totalfiltre() With [Base!A1] .ClearComments .AddComment With .Comment.Shape.OLEFormat.Object .Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s)" & vbLf & "visible(s) sur " & vbLf & [Tfiltre].Rows.Count .AutoSize = True End With With .Comment.Shape.OLEFormat.Object.Font .Name = "Arial" .Size = 10 .ColorIndex = 3 .Bold = True End With .Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19 Range("a1").Comment.Visible = False End With End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir JB
J'ai fait un exemple et cela ne fonctionne pas !
Regarde la cellule a1 , le commentaire , je voudrait le maime principe pour J1
Merci
pellet15
On 19 avr, 20:03, pellet15 wrote:
On 19 avr, 01:43, JB wrote:
Bonjour,
Compte le nombre de cellules en couleur dans la colonne D
Sub parcoursItemsVisibles() For Each c In Range("d2", [d65000].End(xlUp)).SpecialCells(xlCellTypeVisible) If c.Interior.ColorIndex = 3 And c.Font.ColorIndex = 5 Then n = n + 1 End If Next c MsgBox n End Sub
Dans un fichier j'ai un Commentaire qui s'affiche pour me donner le nombre de ligne visible et le nombre de ligne total. cela foctionne très bien .
Je voudrait faire la même chose mais qui m'indiquerais le nombre de ligne avec la couleur de font Bleu et la couleur font Rouge. cela dans la colonne J . Merci
Voici le VBA:
Private Sub Worksheet_Calculate() Totalfiltre End Sub
Sub Totalfiltre() With [Base!A1] .ClearComments .AddComment With .Comment.Shape.OLEFormat.Object .Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s)" & vbLf & "visible(s) sur " & vbLf & [Tfiltre].Rows.Count .AutoSize = True End With With .Comment.Shape.OLEFormat.Object.Font .Name = "Arial" .Size = 10 .ColorIndex = 3 .Bold = True End With .Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19 Range("a1").Comment.Visible = False End With End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir JB
J'ai fait un exemple et cela ne fonctionne pas !
Regarde la cellule a1 , le commentaire , je voudrait le maime principe pour J1
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Voici le fichier http://cjoint.com/?eucaiWqaEG
On 19 avr, 20:03, pellet15 <pelle...@videotron.ca> wrote:
On 19 avr, 01:43, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Compte le nombre de cellules en couleur dans la colonne D
Sub parcoursItemsVisibles()
For Each c In Range("d2",
[d65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
If c.Interior.ColorIndex = 3 And c.Font.ColorIndex = 5 Then
n = n + 1
End If
Next c
MsgBox n
End Sub
On 19 avr, 02:38, pellet15 <pelle...@videotron.ca> wrote:
Bonjour à tous
Dans un fichier j'ai un Commentaire qui s'affiche pour me donner le
nombre de ligne visible et le nombre de ligne total.
cela foctionne très bien .
Je voudrait faire la même chose mais qui m'indiquerais le nombre de
ligne avec
la couleur de font Bleu et la couleur font Rouge.
cela dans la colonne J .
Merci
Voici le VBA:
Private Sub Worksheet_Calculate()
Totalfiltre
End Sub
Sub Totalfiltre()
With [Base!A1]
.ClearComments
.AddComment
With .Comment.Shape.OLEFormat.Object
.Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s)" &
vbLf & "visible(s) sur " & vbLf & [Tfiltre].Rows.Count
.AutoSize = True
End With
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Arial"
.Size = 10
.ColorIndex = 3
.Bold = True
End With
.Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19
Range("a1").Comment.Visible = False
End With
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir JB
J'ai fait un exemple et cela ne fonctionne pas !
Regarde la cellule a1 , le commentaire , je voudrait le maime
principe pour J1
Compte le nombre de cellules en couleur dans la colonne D
Sub parcoursItemsVisibles() For Each c In Range("d2", [d65000].End(xlUp)).SpecialCells(xlCellTypeVisible) If c.Interior.ColorIndex = 3 And c.Font.ColorIndex = 5 Then n = n + 1 End If Next c MsgBox n End Sub
Dans un fichier j'ai un Commentaire qui s'affiche pour me donner le nombre de ligne visible et le nombre de ligne total. cela foctionne très bien .
Je voudrait faire la même chose mais qui m'indiquerais le nombre de ligne avec la couleur de font Bleu et la couleur font Rouge. cela dans la colonne J . Merci
Voici le VBA:
Private Sub Worksheet_Calculate() Totalfiltre End Sub
Sub Totalfiltre() With [Base!A1] .ClearComments .AddComment With .Comment.Shape.OLEFormat.Object .Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s)" & vbLf & "visible(s) sur " & vbLf & [Tfiltre].Rows.Count .AutoSize = True End With With .Comment.Shape.OLEFormat.Object.Font .Name = "Arial" .Size = 10 .ColorIndex = 3 .Bold = True End With .Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19 Range("a1").Comment.Visible = False End With End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir JB
J'ai fait un exemple et cela ne fonctionne pas !
Regarde la cellule a1 , le commentaire , je voudrait le maime principe pour J1
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Voici le fichier http://cjoint.com/?eucaiWqaEG
JB
Bonjour,
L'exemple fourni ne compte pas les couleurs issues de la Mise en Forme Conditionnelle. Il faut tester avec les conditions définies dans la MFC.
Sub parcoursItemsVisibles() n = 0 For Each c In Range("J2", [j65000].End(xlUp)).SpecialCells(xlCellTypeVisible) If IsDate(c) Then If Date - (IIf(IsEmpty(c), c.Offset(0, 2), c)) > 21 And c.Offset(0, -6) = 2 Then n = n + 1 End If End If Next c MsgBox n End Sub
Cordialement JB
On 20 avr, 02:06, pellet15 wrote:
On 19 avr, 20:03, pellet15 wrote:
On 19 avr, 01:43, JB wrote:
Bonjour,
Compte le nombre de cellules en couleur dans la colonne D
Sub parcoursItemsVisibles() For Each c In Range("d2", [d65000].End(xlUp)).SpecialCells(xlCellTypeVisible) If c.Interior.ColorIndex = 3 And c.Font.ColorIndex = 5 Then n = n + 1 End If Next c MsgBox n End Sub
Dans un fichier j'ai un Commentaire qui s'affiche pour me donner le nombre de ligne visible et le nombre de ligne total. cela foctionne très bien .
Je voudrait faire la même chose mais qui m'indiquerais le nombre de ligne avec la couleur de font Bleu et la couleur font Rouge. cela dans la colonne J . Merci
Voici le VBA:
Private Sub Worksheet_Calculate() Totalfiltre End Sub
Sub Totalfiltre() With [Base!A1] .ClearComments .AddComment With .Comment.Shape.OLEFormat.Object .Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s) " & vbLf & "visible(s) sur " & vbLf & [Tfiltre].Rows.Count .AutoSize = True End With With .Comment.Shape.OLEFormat.Object.Font .Name = "Arial" .Size = 10 .ColorIndex = 3 .Bold = True End With .Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19 Range("a1").Comment.Visible = False End With End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir JB
J'ai fait un exemple et cela ne fonctionne pas !
Regarde la cellule a1 , le commentaire , je voudrait le maime principe pour J1
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Voici le fichierhttp://cjoint.com/?eucaiWqaEG- Masquer le texte des messa ges précédents -
- Afficher le texte des messages précédents -
Bonjour,
L'exemple fourni ne compte pas les couleurs issues de la Mise en Forme
Conditionnelle.
Il faut tester avec les conditions définies dans la MFC.
Sub parcoursItemsVisibles()
n = 0
For Each c In Range("J2",
[j65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
If IsDate(c) Then
If Date - (IIf(IsEmpty(c), c.Offset(0, 2), c)) > 21 And
c.Offset(0, -6) = 2 Then
n = n + 1
End If
End If
Next c
MsgBox n
End Sub
Cordialement JB
On 20 avr, 02:06, pellet15 <pelle...@videotron.ca> wrote:
On 19 avr, 20:03, pellet15 <pelle...@videotron.ca> wrote:
On 19 avr, 01:43, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Compte le nombre de cellules en couleur dans la colonne D
Sub parcoursItemsVisibles()
For Each c In Range("d2",
[d65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
If c.Interior.ColorIndex = 3 And c.Font.ColorIndex = 5 Then
n = n + 1
End If
Next c
MsgBox n
End Sub
On 19 avr, 02:38, pellet15 <pelle...@videotron.ca> wrote:
Bonjour à tous
Dans un fichier j'ai un Commentaire qui s'affiche pour me donner le
nombre de ligne visible et le nombre de ligne total.
cela foctionne très bien .
Je voudrait faire la même chose mais qui m'indiquerais le nombre de
ligne avec
la couleur de font Bleu et la couleur font Rouge.
cela dans la colonne J .
Merci
Voici le VBA:
Private Sub Worksheet_Calculate()
Totalfiltre
End Sub
Sub Totalfiltre()
With [Base!A1]
.ClearComments
.AddComment
With .Comment.Shape.OLEFormat.Object
.Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s) " &
vbLf & "visible(s) sur " & vbLf & [Tfiltre].Rows.Count
.AutoSize = True
End With
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Arial"
.Size = 10
.ColorIndex = 3
.Bold = True
End With
.Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19
Range("a1").Comment.Visible = False
End With
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir JB
J'ai fait un exemple et cela ne fonctionne pas !
Regarde la cellule a1 , le commentaire , je voudrait le maime
principe pour J1
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Voici le fichierhttp://cjoint.com/?eucaiWqaEG- Masquer le texte des messa ges précédents -
L'exemple fourni ne compte pas les couleurs issues de la Mise en Forme Conditionnelle. Il faut tester avec les conditions définies dans la MFC.
Sub parcoursItemsVisibles() n = 0 For Each c In Range("J2", [j65000].End(xlUp)).SpecialCells(xlCellTypeVisible) If IsDate(c) Then If Date - (IIf(IsEmpty(c), c.Offset(0, 2), c)) > 21 And c.Offset(0, -6) = 2 Then n = n + 1 End If End If Next c MsgBox n End Sub
Cordialement JB
On 20 avr, 02:06, pellet15 wrote:
On 19 avr, 20:03, pellet15 wrote:
On 19 avr, 01:43, JB wrote:
Bonjour,
Compte le nombre de cellules en couleur dans la colonne D
Sub parcoursItemsVisibles() For Each c In Range("d2", [d65000].End(xlUp)).SpecialCells(xlCellTypeVisible) If c.Interior.ColorIndex = 3 And c.Font.ColorIndex = 5 Then n = n + 1 End If Next c MsgBox n End Sub
Dans un fichier j'ai un Commentaire qui s'affiche pour me donner le nombre de ligne visible et le nombre de ligne total. cela foctionne très bien .
Je voudrait faire la même chose mais qui m'indiquerais le nombre de ligne avec la couleur de font Bleu et la couleur font Rouge. cela dans la colonne J . Merci
Voici le VBA:
Private Sub Worksheet_Calculate() Totalfiltre End Sub
Sub Totalfiltre() With [Base!A1] .ClearComments .AddComment With .Comment.Shape.OLEFormat.Object .Text = Application.Subtotal(3, [Tfiltre]) & " ligne(s) " & vbLf & "visible(s) sur " & vbLf & [Tfiltre].Rows.Count .AutoSize = True End With With .Comment.Shape.OLEFormat.Object.Font .Name = "Arial" .Size = 10 .ColorIndex = 3 .Bold = True End With .Comment.Shape.OLEFormat.Object.Interior.ColorIndex = 19 Range("a1").Comment.Visible = False End With End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir JB
J'ai fait un exemple et cela ne fonctionne pas !
Regarde la cellule a1 , le commentaire , je voudrait le maime principe pour J1
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Voici le fichierhttp://cjoint.com/?eucaiWqaEG- Masquer le texte des messa ges précédents -