conditions lignes par rapport à colonnes

  • Initiateur de la discussion Initiateur de la discussion lagodille
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lagodille

XLDnaute Occasionnel
bonjour à toutes et à tous

J’ai une colonne D4 : D2000 dans laquelle j’ai des " ras" et des "o".
Dans la colonne B4 : B2000 j'ai des pourcentages qui passent en police rouge si sa concordance en D est égal à "o" sinon elle reste en noire.
Ex pour une ligne :
Sub noirourouge()
Application.ScreenUpdating = False
Range("D4").Select
If Range("D4").Value = "o" Then
Range("B4").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
Else
If Range("D4").Value = "ras" Then
Range("B4").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
End If
End If
End Sub

La question est de savoir s'il serait possible de trouver une procédure simple dans le champ défini de 4 à 2000 : que sur chaque ligne sur laquelle on trouve en D un "o" sa concordance B passe en police rouge sinon elle reste en noire.
Merci pour votre aide
 
Re : conditions lignes par rapport à colonnes

bonjour,

Et avec les mises en forme conditionnelles, c'est pas possible?

Fomat/mise en forme conditionnelle -> la formule est : =$D4="o"
après sélection de la Colonne B

bon travail
 
Re : conditions lignes par rapport à colonnes

Bonjour Lagodille, Hasco

sinon une solution vba avec le code ci dessous :

Code:
Sub test()
Dim c As Range
For Each c In Range("D4:D" & Range("D65536").End(xlUp).Row)
    If c.Value = "o" Then c.Offset(0, -2).Font.ColorIndex = 3
Next c
End Sub

bonne journée
@+
 
Re : conditions lignes par rapport à colonnes

Bonjour Lagodille, Hasco

le "for each" permet de boucler sur une collection, en l'occurence la plage de donnée ainsi déterminée :

Code:
Range("D4:D" & Range("D65536").End(xlUp).Row)

D4, étant la première cellule de la plage, la 2ème cellule en colonne D (le ème D), et le numéro de la ligne de la première cellule non vide, en partant du bas (ligne 65536).

en espérant avoir été clair.

bon après midi
@+
 
Re : conditions lignes par rapport à colonnes

bonsoir pierrot
j'ai essayé de l'adapter à mon fichier :

Sub essai()
Dim k As Range
For Each k In Range("AU5:AU" & Range("AU2404").End(xlUp).Row)
If k.Value = "o" Then
k.Offset(à, -40).Font.ColorIndex = 1
'inférieur à 30 jours
Else: k.Offset(à, -40).Font.ColorIndex = 3
End If
Next k

For Each k In Range("AU5:AU" & Range("AU2404").End(xlUp).Row)
If k.Value = "n" Then
k.Offset(à, -40).Font.ColorIndex = 1
'inférieur à 6 mois
Else: k.Offset(à, -40).Font.ColorIndex = 47
End If
Next k

For Each k In Range("AU5:AU" & Range("AU2404").End(xlUp).Row)
If k.Value = "m" Then
k.Offset(à, -40).Font.ColorIndex = 1
'inférieur à 12 mois
Else: k.Offset(à, -40).Font.ColorIndex = 2
End If
Next k
End Sub

mais ca ne fonctionne pas pourquoi ?
 
Re : conditions lignes par rapport à colonnes

Bonsoir,
Que veux dire le "à" dans l'adresse (à, -40) ??
Si j'ai compris (pas trop à vrai dire), avec une autre façon de faire:

Sub essai()
Dim k As Range
For Each k In Range("AU5:AU" & Range("AU65536").End(xlUp).Row)
Select Case k.Value
Case "o"
k.Offset(0, -40).Font.ColorIndex = 3
Case "n"
k.Offset(0, -40).Font.ColorIndex = 4
Case "m"
k.Offset(0, -40).Font.ColorIndex = 5
Case Else
k.Offset(0, -40).Font.ColorIndex = 1
End Select
Next
End Sub

change la couleur du texte dans la colonne G, même ligne suivant les différentes valeurs possibles de "k"

A+
kjin
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
772
Réponses
1
Affichages
868
Retour