> Tous les forums > Forum Bureautique
 sélection de cellules contenant des caractères rougesSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
wilgau
  Posté le 25/01/2018 @ 16:00 
Aller en bas de la page 
Petit astucien

Bonjour à toutes et tous.

Je veux sélectionner toutes les cellules contenant des caractères rouges, d'une colonne d'un fichier Excel.

Je suppose que cela nécessite une macro que je suis incapable de rédiger.

Merci de votre aide

Publicité
ferrand
 Posté le 26/01/2018 à 20:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

Il serait bon de savoir d'où provient la couleur : couleur de police ou MFC ?

Ensuite je poserai la question : pour quoi faire ?

Nb- Question tout à fait simple, mais qui mérite peut-être quelque explication : sélectionner pour le seul plaisir de sélectionner étant en soi une activité absurde, on envisage donc de sélectionner à une autre fin ! Mais si l'opérateur, devant son clavier, sa souris en main, doit en passer par sélectionner les éléments sur lesquels il veut agir dans sa feuille Excel, VBA, lui, s'en passe aisément, et au contraire, vouloir le contraindre à sélectionner n'a pour effet que de le ralentir. Il convient donc de définir ce que l'on a l'intention de faire avec ces cellules contenant des caractères rouges, pour pouvoir produire un code qui réalisera cette action, sans sélection aucune...

Cordialement.

wilgau
 Posté le 26/01/2018 à 21:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir Ferrand, merci de t’intéresser à mon problème.

La feuille excel contiens dans une colonne les noms d'auteurs, suivis des titres des romans.

les noms sont en rouges et les titres en noir.

La couleur est celle de de la police.

Le but est de comptabiliser les auteurs d'une part et l'ensemble des romans d'autre part.

Voila, j'espère avoir été assez clair, encore merci.

à plus, cordialement.

ferrand
 Posté le 26/01/2018 à 23:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Peux-tu mettre un modèle ? Car là on se demande déjà si les noms d'auteurs et les titres sont dans les mêmes cellules... Et s'il s'agit de dénombrer, il faut voir comment cela se présente, et que tu dises où placer les résultats.

Cordialement.

wilgau
 Posté le 27/01/2018 à 08:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Ci-dessous, le lien pour l'exemple

Je voudrais afficher dans la feuille suivante, le nombre d'auteurs et de livres dans des cellules differentes

Encore , merci

https://www.cjoint.com/c/HABhhY1lBnc

wilgau
 Posté le 27/01/2018 à 08:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Je me rend compte que je manque de précision

C'est la quantité totale des livres de la colonne que je veux afficher

ferrand
 Posté le 27/01/2018 à 13:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Voilà une macro pour afficher le résultat en Feuil2.

Sub CompterAuteursTitres()
Dim tAT(1, 1), clr, i&, n&
tAT(0, 0) = "Auteurs": tAT(0, 1) = "Titres"
Application.ScreenUpdating = False
With Worksheets("Feuil1")
n = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 2 To n
clr = .Cells(i, 1).Font.Color
If IsNull(clr) Then
tAT(1, 1) = tAT(1, 1) + 1
Else
If clr = vbRed Then
tAT(1, 0) = tAT(1, 0) + 1
ElseIf clr = vbBlack Then
tAT(1, 1) = tAT(1, 1) + 1
End If
End If
Next i
End With
With Worksheets("Feuil2").Range("B2")
.CurrentRegion.ClearContents
With .Resize(2, 2)
.Value = tAT
.HorizontalAlignment = xlCenter
.Borders.Weight = xlThin
.Rows(2).Font.Bold = True
End With
.Worksheet.Activate
End With

A voir dans Module1. Bouton pour tester.

Cordialement.

https://www.cjoint.com/c/HABm5t1LTtu

wilgau
 Posté le 27/01/2018 à 19:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir Ferrand, ça marche, merci beaucoup.

Cordialement

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Excel - selection cellules non adjacentes
Arrêt impossible de la sélection cellules
open office calc taille caractères et cellules
Sélection de plusieurs cellules
selection plage cellules dont nombre lignes variab
Supprimer x caractères dans plusieurs cellules
Récupération de caractères dans cellules
Recherche cellules contenant un mot précis
Sélection des cellules adjacentes à actice.cell
afficher cellules avec 2000 caractères (et plus)
Plus de sujets relatifs à sélection de cellules contenant des caractères rouges
 > Tous les forums > Forum Bureautique