[VBA et Excel] Résolu/Fermé

Question

Bonjour,

J'ai essayé avec le générateur de macro d'Excel de créer une formule conditionnelle.
En regardant dans le code, je ne retrouve pas ma formule.

On ne peut pas le faire ?

Merci

chossette9 · Answer

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.

Utilisateur anonyme · Answer

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

jejelefou · Answer

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é

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

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