[VBA et Excel]
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
A voir également:
- [VBA et Excel]
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Si et 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é