Test si formule existe dans deux colonnes

Résolu
vieuxray -  
yg_be Messages postés 24281 Statut Contributeur -
Bonjour a tous, Forum bonjour,



Je souhaiterai tester deux colonnes, je m'explique:

J'ai une colonne (E) et une colonne (F) ou il y a des formules a partir de E3 et F3 sur 300 lignes.
Je souhaiterai svp tester si la colonne (E) contient bien une formule et idem pour la colonne (F).

Donc le test serai Exemple :

--- Si (E3) contient une formule alors mettre en vert (I3) si pas de formule mettre en rouge.

--- Si (F3) contient une formule alors mettre en vert (J3) si pas de formule mettre en rouge.

Effectuer le test sur 300 lignes, je verrai plus tard pour prolonger.
J'ai essayer avec le code si dessous mais pas réussi a le faire.

Je vous remercie pour votre aide et vous souhaite un bon W-end.

Cdlt Dudulle 


Public Sub Formule_Existe()
   Dim maFeuille As Worksheet
   Dim cellule As Range
   
  Set maFeuille = ActiveSheet
       
 For Each cellule In maFeuille.UsedRange
            If Not cellule.HasFormula Then
                       cellule.interior.ColorIndex = xlColorIndexAutomatic
            Else
                Range("I3:I") = cellule.interior.ColorIndex = 3
            End If
        Next
A voir également:

3 réponses

Réponse 1 / 3
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
bonjour, "pas réussi a le faire": message d'erreur, résultat insatisfaisant?
suggestion: 
Public Sub Formule_Existe()
Dim maFeuille As Worksheet
Dim cellule As Range

Set maFeuille = ActiveSheet

For Each cellule In Intersect(maFeuille.UsedRange, Union(maFeuille.Columns("E"), maFeuille.Columns("F")))
If Not cellule.HasFormula Then
    cellule.Offset(0, 4).Font.ColorIndex = 4
Else
    cellule.Offset(0, 4).Font.ColorIndex = 3
End If
Next
End Sub
1
Réponse 2 / 3
vieuxray
 
Bonjour yg_be,

Merci pour ta réponse,

ça fonctionne presque, je voudrai svp apporter une modification avec en photo ci-jointe, le résultat souhaiter.

Merci pour ton aide et ton savoir

Bonne après midi

Cdlt Dudulle

https://www.cjoint.com/c/HIimXlMurPz
0
yg_be Messages postés 24281 Statut Contributeur 1 584
 
je n'ai aucun moyen de me faire une idée d'en quoi le résultat obtenu (que tu ne montres ni ne décris) diffère du résultat souhaité (une photo ne valant pas toujours mieux qu'un long discours).
0
Réponse 3 / 3
vieuxray
 
je voulais juste savoir si dans la colonne E il y a des formules oui ou non idem dans la colonne F

je pensais que la photo était compréhensible

Bon tant pis ce n'ai pas grave

Merci
https://www.cjoint.com/c/HIimXlMurPz
Cdlt dudulle
0
yg_be Messages postés 24281 Statut Contributeur 1 584
 
il me semble que le code proposé fait exactement ce que tu avais demandé: colorier les colonnes I et J en fonction de la présence de formules en E et F.
n'hésite pas à adapter le code si tu veux autre chose.
peux-tu marquer comme résolu?
0