Discussion :

[Maiden002]

Bonjour,

désolé de vous déranger pour quelques choses peut-être banales ^^


J'ai un petit problème.

Sur mon fichier de recensement d'objet, j'ai une colonne "Acquis" où je mets "OUI" ou rien pour savoir si je détiens l'objet.


Ce que j'aurai voulu, c'est que dès que je choisis "OUI" ma ligne se met dans une couleur choisie (vert pale) qui commence de la colonne A a la G

Si quelqu'un peu m'aider

Merci

[laetitia]

bonjour Maiden002 le forum une evenemtielle!!
je prends la colonne H si oui vert sinon blanc a adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Long
If Not Application.Intersect(Target, Range("H:H")) Is Nothing Then
lig = ActiveCell.Row
If Target = "OUI" Then
Range("A" & lig & ":g" & lig).Interior.ColorIndex = 4
Else
Range("A" & lig & ":g" & lig).Interior.ColorIndex = xlNone
End If: End If
End Sub

PS oui en majuscule sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target = "OUI" Or Target = "oui" Then

ou en debut de module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Option Explicit
Option Compare Text

ect...

[Brunodm13]

Bonsoir,

Pourquoi le faire en VBA ?

Tu peux utiliser la mise en forme conditionnelle. Cela me semble plus simple pour faire ce que tu recherches.

Tu peux aller faire un petit tour sur la " " pour en savoir plus.

Cordialement.

Bruno

[Maiden002]

Le truc c'est que j'ai essayer avec mise en forme conditionnelle mais sa marche pas...


J'ai fais pourtant (sur Ecxel 2007)

Utiliser une formule pour déterminé pour quelles cellule ce format sera appliqué.

Ensuite j'ai mis que je veux quil trouve toutes les cellules qui ont "OUI" dans la Collone A.

C'est a dire j'ai fais =$A$2:$A$173="OUI

j'ai meme essayer avec =$A:$A pour prendre directe tout la collone

Mais sa veux pas me remplir Toute la lignes :s

Une idées?

[Antoniom]

Hello tout le monde,

Avec une MFC.

1) Tu sélectionnes la première ligne, exemple A1:G1

2) Click Format/Mise en forme conditionnelle.

3) Dans la fenêtre tu mets "La formule est" =$A1="Oui"

4) Tu tires la ligne vers le bas jusqu'où tu veux, ou mieux tu utilises le pinceau.

Chez moi ça joue minuscule ou majuscule -> Excel 2003.

Je pense que c'est pareil pour Excel 2007... A tester.

Cdt, Anton.