> 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
12,90 €Windows 10 Pro 32/64 bits OEM à 12,90 €
Valable jusqu'au 24 Février

Le vendeur sérieux DIGITAL FR propose sur Amazon  la clé d'activation pour Windows 10 professionnel en français 32 bits / 64 bits à 1Z,90 €. Cette clé livrée par email fonctionne avec l'outil d'installation et de création de support de Microsoft que vous pouvez télécharger ici ou directement avec l'ISO de Windows 10 Pro. De quoi installer légalement Windows 10 Pro sur un PC. Pour en savoir plus sur l'achat et l'installation d'une clé OEM de Windows 10, suivez les indications de notre dossier pratique.


> Voir l'offre
116,39 €Disque dur externe Western Digital My Book 6 To USB 3.0 à 116,39 €
Valable jusqu'au 18 Février

Amazon propose actuellement le disque dur externe Western Digital My Book 6 To USB 3.0 à 116,39 € livré gratuitement. On le trouve ailleurs autour à partir de 150 €. Grâce à la connectique USB 3.0 (compatible USB 2.0), ce disque dur vous offrira d'excellents débits pour vos transferts et vos sauvegardes. 


> Voir l'offre
19,79 €Prise connectée Wi-Fi TP-Link HS100 à 19,79 €
Valable jusqu'au 20 Février

Amazon fait une promotion sur la prise intelligente Wi-Fi TP-Link HS100 qui passe à 19,79 € alors qu'on la trouve habituellement autour de 35 €. Cette prise peut être contrôlée à distance en utilisant l'app gratuite KASA sur votre smartphone (iOS ou Android). Vous pouvez créer des planifications horaires pour allumer ou éteindre automatiquement et quand vous le souhaitez, l'appareil qui y est branché. Pour en savoir plus, n'hésitez pas à lire notre dossier pratique Contrôler une prise électrique à distance.


> 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