Discussion :

[BRUNO71]

Bonjour à vous,

D'habitude il s'agit de supprimer les doublons.

Est il possible sur deux colonnes (A et B) de colorier en rouge gras (VBA) un mot qui n'appartient pas à la colonne A par exemple...

Il est possible qu'il n'y ait pas le même nombre de texte dans les deux colonnes...

Ou puis-je trouver cette information, car je trouve toujours (la suppression des doublons)....

Merci par avance...

[BRUNO71]

Bonjour,
Je viens de tester les MFC .
La mise en forme conditionnelle fonctionne très bien, mais !

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
 
   Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlUnique
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

Comme j'ai besoin de copier la colonne B avec les modifications pour l'emmener sur une autre feuille et bien....plus rien ne va.
Excel garde en mémoire cette condition et continu de l'appliquer....toutes mes cellules (colonne B) deviennent unique

Comment faire avec VBA ?
Si un des mots de la colonne B feuil1 n'est pas dans la colonne A feuil2 et bien il devient rouge et gras...

Merci pour votre aide.

[ZX12R]

Bonjour,

une question toute bête mais fait tu dans ton code un copier-coller ou copier-collage special ?

... ActiveSheet.Paste

ou bien

... Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Je pense qu'avec un collage spécial de formules (ou valeurs, tu vois) tu ne récupérera pas les formats conditionnels de tes cellules d'origine. A tester...

CordialemenT.

Bruno

[BRUNO71]

Bonjour ZX12R,

Çà sent la Kawasaki ça
Bon sinon très bonne idée, j'ai de suite essayé, mais non....ça ne fonctionne pas..
J'ai essayé manuellement, en faisant un copié/collé puis collage spécial dans une autre page...rien n'y fait.

Je cherche, je cherche..

Merci

[casefayere]

Bonsoir,
oublies tes MFC (supprimes-les)
et adaptes ce code (bien sur si j'ai compris)

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
20
Private Sub CommandButton1_Click()
Dim tb1, tb2, x As Long, y As Long, dercel As Range
With Sheets("Feuil1")
  Set dercel = .Range("A" & .Rows.Count).End(xlUp)
  tb1 = .Range("A2", dercel)
  Set dercel = .Range("B" & .Rows.Count).End(xlUp)
  tb2 = .Range("B2", dercel)
  For x = 1 To UBound(tb1, 1)
    For y = 1 To UBound(tb2, 1)
      If tb2(y, 1) = tb1(x, 1) Then
        .Range("B" & y + 1).Font.ColorIndex = 3
        .Range("B" & y + 1).Font.Bold = True
      End If
    Next y
  Next x
  Sheets("Feuil2").Range("A2", "A" & dercel.Row) = tb2 'changer par la destination souhaitée
End With
 
 
End Sub

[patricktoulon]

prends une colonne vide
selectionne le meme nombre de cellule que tu a dans A et met cette formule matricielle dans chaque cellule

=SIERREUR(INDEX($A$2:$A$27;EQUIV(0;INDEX(NB.SI($B$1:B1;$A$2:$A$27);0;0);0)); » »)

http://www.formuleexcel.com/comment-...sieurs-listes/

[BRUNO71]

Bonjour à tous,

Merci casefayere, . Tu as bien compris.
Excellent, avec quelques modifications pour mon usage, c'est super.

Merci à tous.