> 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 !


Les bons plans du moment PC Astuces

Tous les Bons Plans
599,99 €Portable 15,6 pouces HP (FullHD, Core i5, 8 Go, SSD 128 Go + DD 1 To, GTX 1050 3 Go) à 599,99 €
Valable jusqu'au 24 Février

Cdiscount fait une belle promotion sur l'ordinateur portable HP Pavilion 15-bc511nf qui passe à 599,99 € livré gratuirement alors qu'on le trouve ailleurs autour de 700 €. Ce portable possède un écran 15,6 pouces HD Full HD (1920x1080), un processeur Intel Core i5 9300H, 8 Go de RAM, un SSD de 128 Go, un disque dur de 1 to et une carte graphique dédiée GeForce GTX 1050 3 Go. Le tout tourne sous Windows 10.


> Voir l'offre
92,35 €Disque dur externe portable Maxtor M3 USB 3.0 4 To à 92,35 €
Valable jusqu'au 26 Février

Amazon propose actuellement le disque dur externe portable Seagate M3 4 To à 92,35 € livré gratuitement. Le disque dur dispose d'une connectique USB 3.0 compatible USB 2.0 et offre des débits d'environ 115 Mo/s en lecture et écriture. Seagate ayant racheté les branches disques durs de Samsung et Maxtor, vous pouvez donc trouver le logo Maxtor, Samsung ou Seagate sur ce disque dur M3. 


> Voir l'offre
35,99 €Souris sans fil Logitech G305 à 35,99 €
Valable jusqu'au 24 Février

Amazon fait une belle promotion sur la nouvelle souris sans fil Logitech G G305 qui passe à 35,99 € livrée gratuitement alors qu'on la trouve ailleurs autour de 50 €. Cette souris vous offre des performances sans fil de niveau professionnel et une fiabilité inégalée surpassant même certaines des meilleures souris gaming filaire. Dotée du capteur HERO, vous allez connaitre une précision exceptionnelle grâce à sa sensibilité pouvant aller jusqu'à 12 000 dpi.


> Voir l'offre

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