> 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
59,99 €Souris Logitech MX Master 2S à 59,99 €
Valable jusqu'au 17 Février

Amazon fait une promotion sur la souris sans fil Logitech MX Master 2S qui passe à 59,99 € livrée gratuitement alors qu'on la trouve ailleurs autour de 85 €. Cette évolution de la MX Master est équipée de la technologie Logitech Flow. Cette dernière, révolutionnaire, vous permet de déplacer le curseur de votre souris d'un ordinateur à un autre (jusqu'à 3 ordinateurs), d'effectuer des copier/coller de textes, d'une images ou encore de fichiers d'une machine à une autre. Vous allez ainsi pouvoir transférer vos contenus entre 3 ordinateurs différents sans la moindre difficulté. 


> Voir l'offre
187,93 €Disque dur externe Western Digital Elements Desktop USB 3.0 10 To à 187,93 € livré
Valable jusqu'au 18 Février

Amazon Allemagne propose actuellement le disque dur externe Western Digital Elements Desktop USB 3.0 10 To à 181,50 € (avec la TVA ajustée). Comptez 6,43 € pour la livraison en France soit un total de 187,93 € livré. On le trouve ailleurs à partir de 229 €. Ce disque dur dispose d'un grande capacité de stockage (10 To) et d'une connectique USB 3.0 qui vous offrira des transferts rapides. Il est compatible USB 2.0. Une très bonne affaire. 

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douanes. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
49,90 €Microphone USB Bird UM1 à 49,90 €
Valable jusqu'au 18 Février

Amazon fait une vente flash sur le Microphone USB Bird UM1 qui passe à 49,90 € alors qu'on le trouve ailleurs à partir de 69 €. La livraison est gratuite. Le Bird UM1 est un micro de studio d'excellente qualité avec interface USB intégrée. C'est une solution idéale et tout-en-un qui évite d'avoir à acheter un préampli ou une interface audio supplémentaire.  Idéal pour le studio, YouTube ou l'animation de votre blog.


> 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