[VBA et Excel]

Ca bloque sur le IF déjà, je suis un peu perdu. Tu peux m'aider.

Salut essayé également comme ça

IF(SUMIF($B$2:$B$" & ligne & ",B2,$E$2:$E$" & ligne & ")>1) then
   ActiveCell.Interior.ColorIndex = 5
End If

Mais ca ne veut pas :s

J'ai essayé comme ca

Range("A2").Select
For i = 2 To 1047
suivante = i + 1
If Cells(i, 1) = Cells(suivante, 1) Then
Cells(1, 1).Interior.ColorIndex = 5
End If
Next

Mais ca ne marche pas, ca me surligne que la cellule A1

Oui, je sais le faire par excel, mais j'ai besoin de passer par les commandes vba ;)
C'est vb intégré a un vieux excel 97

Je recherche dans une liste si plus d'une fois apparait une valeur et je met une couleur à la cellule

Et si je veux mettre un trucs plus complexe genre
NB.SI($A$2:$A$1037;A2)>1
plutot que x = 5 :D

;)

bonjour pour une mise en forme conditionnelle voici le code que tu peux generer toi meme :

Sub mise_en_forme_conditionnelle()

'premiere condition
x = 5

If Cells(1, 1).Value = x Then

Cells(1, 1).Interior.ColorIndex = 5

With Cells(1, 1).Font
.Name = "Arial"
.Size = 8
.Italic = True
.Bold = True
.ColorIndex = 8
End With

End If
End Sub

evidement il y a d'autres options

a+

jéjé

Je voulais mettre ceci dans la formule conditionelle

=NB.SI($A$2:$A$1037;A2)>1

Et le code que je vois dans la macro est

Selection.Copy
Range("A3").Select
ActiveWindow.ScrollRow = 1017
Range("A3:A1037").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
Range("A2").Select
Application.CutCopyMode = False

Merci

Bonjour,

dis-nous exactement ce que tu cherches à faire, afin que nous puissions t'aider.

Peux-tu mettre également le code qui a été généré par l'enregistreur de macro ?

Cordialement.