ISOLER DES CELLULES GRISES

elio55 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -  
elio55 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour
Jai une macro qui a partir de l'année d'une date saisi me colorie en rouge toutes les cellules dans lesquelles cette année apparait
je souhaiterais isoler dans une autre feuille toutes les cellules en rouge
merci :)

voici le code de ma macro et le fichier correspondant

Sub date_2()
Dim X As Variant
Dim Cel As Range
X = Application.InputBox("Année de la date", "ANNÉE", Type:=1)
If X = False Then Exit Sub
Set Cel = Sheets("Feuil1").UsedRange.Find(X, lookat:=xlPart)
If Not Cel Is Nothing Then
PA = Cel.Address
Do
Cel.Interior.ColorIndex = 3
Set Cel = Sheets("Feuil1").UsedRange.FindNext(Cel)
Loop While Not Cel Is Nothing And Cel.Address <> PA
End If
End Sub


MERCIII DE VOTRE AIDE

2 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Grises ou rouge, faut choisir....

je souhaiterais isoler dans une autre feuille toutes les cellules en rouge
Qu'entendez-vous par isoler?
0
elio55 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention  
 
mdrrr en rouge , je les ai mises en rouges
maintenant je souhaite les isoler c'est à dire mettre ces valeur dans une feuille 2 du même classeur
Merci !
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > elio55 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention  
 
Re,
Certes, mais
Qu'entendez-vous par isoler?
0
elio55 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
isoler ==> bah si j'ai 10 dates dans ma colonnes A (de ma feuille 1) et selon ma saisi de l'année, j'ai 4 cellules (donc 4 dates) qui se colorie en rouge, je voudrai que ces 4 dates se mettent a part dans une feuille 2
voila
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > elio55 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention  
 
Re,
Ok, je regarde la chose
A+
0
elio55 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
mercii beaucoup !!
0
elio55 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention  
 
merciii beaucoup c'est exactement sa !!
0