[VBA et Excel]
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
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
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
A voir également:
- [VBA et Excel]
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Si et ou excel - Guide
- Déplacer colonne excel - Guide
- Excel compter cellule couleur sans vba - Guide
9 réponses
Je voulais mettre ceci dans la formule conditionelle
Et le code que je vois dans la macro est
Merci
=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.
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.
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é
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é
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Je recherche dans une liste si plus d'une fois apparait une valeur et je met une couleur à la cellule
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
C'est vb intégré a un vieux excel 97
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
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
Salut essayé également comme ça
Mais ca ne veut pas :s
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
Sub transpose()
'l'equivalent de =NB.SI($A$2:$A$1037;A2)>1 est
trouve = 0
For i = 2 To 1037
If Cells(i, 1) = Cells(2, 1) Then
trouve = trouve + 1
End If
Next
'le resultat se trouve dans "trouve" je je mets dans B2
Cells(2, 2) = trouve
End Sub
a+
jéjé