Discussion :

[devroot]

La question est dans le titre.

Comment fait-on pour extraire toutes les cellules qui sont surlignées ?
"Extraire" ça peut être recopier dans une autre colonne, trier à part, etc.

J'ai cherché dans l'aide en ligne d'Excel, dans le forum, mais je ne vois pas !

[wilfried_42]

bonjour

question : comment sont surlignés les lignes ? par MFC ?

@ te lire

[devroot]

OK. Les cellules sont surlignees par MFC.
Et ? Je vois toujours pas.

[wilfried_42]

re:

Le probleme avec les MFC, c'est qu'elles fonctionnent comme un papier peint

tu vois des belles couleurs, mais le mur ne change pas

Je veux dire par la que le caractere meme des cellules reste le meme si par MFC tu mets du rouge, tu vois du rouge mais ta cellule n'est pas rouge

une petite experience qui le demontre

Mets une cellule en jaune, applique un mfc rouge, elle devient rouge, retire la MFC et elle redevient jaune et pas blanche

En clair, tu ne peux traiter des lignes colorisées par MFC que si tu traites les tests de la MFC et non pas le resultat de la couleur

si tes MFC ont toutes la meme definition, cela facilite.............

[fred65200]

bonjour,

je ne sais pas si c'est propre à Excel 2007 mais tu peux faire

Atteindre / Cellules / Mise en forme conditionnelle

Récupérer les adresses ou valeurs des cellules dans un tableau et manipuler ensuite les valeurs de ton tableau.

Toujours sur Xl 2007 , recherche FindFormat dans l'aide
cordialement

[devroot]

Bonjour,
J'essaie de recopier depuis une page de cellules vers une autre
toutes les cellules qui sont surlignées.
Avec le code suivant, je recopie Toutes les cellules même les pas surlignées.

Apparemment la condition "If PlageSrc.Select = True" n'est pas bien formulée...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub CopyCells()
    Dim PlageSrc As Range
    Dim PlageDest As Range
 
    Set PlageSrc = Sheets("Dico Français").Cells( _
    ActiveCell.Row, 1).Range("A1:B10223")
 
    Set PlageDest = Sheets("Dico Français").Cells( _
    ActiveCell.Row, 1).Range("I1:J10223")
 
     With PlageSrc
 
    End With
    If PlageSrc.Select = True Then
    PlageDest.Value = PlageSrc.Value
    End If
 
End Sub