Discussion :

[zest]

Bonjour,

Je débute en VBA sous excel (Faut bien!!) et mon problème est le suivant:
j'aimerais après avoir inscri le mot "OUI", valider par "ENTER" et que toute la ligne (ou rangée) se grise (ou une autre couleur).
Je dois avouer que je sèche.

Merci

[jmfmarques]

j'aimerais après avoir inscri le mot "OUI", valider par "ENTER"

on peut savoir dans quoi ? (cellule, textbox, ....?)

[zest]

Sur une feuille, 50 rangées sur 30 colonnes.
Validation par "OUI" dans la trentième colonne puis "ENTER".
Et "grisage" de la rangée entière contenant le "OUI"

[zest]

Rangée=ligne.
Je vais essayer ton code.

[zest]

En fait j'y pige pas grand chose à ton code.
On le met où?
Pour une ligne entière en gris comment on fait?
Comment savoir que c'est bien le mot OUI que l'on a rentré?
Comment griser la ligne (c'est à dire toutes les cellules précédant la cellule OUI)?

Merci...je sais je ne suis pas doué!!

[zest]

C'est à peu près ça que je desirais...c'set cool!!
En fait je voudrais juste griser les cellules jusqu'à OUI

(bla) (bla) (bla) (bla) (bla) (OUI) (cellulex) (cellulex+1)...(cellulex+n)

Après le OUI les cellules doivent rester "blanches".

Bon, mais ton code est proche de mes désir et je vais essayer de trouver tout seul!!

Merci

[zest]

Ouais c'est cool....
T'es rapide...
Maintenent le coder pour n'importe qu'elle ligne!!
Je m'y mets!!

@+

[zest]

Je suis arrivé (grâce a votre aide!!!) a ce résultat qui me conviens:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim NoLigne, NoColonne
NoColonne = Target.Column
NoLigne = Target.Row
If LCase(Range(Target.Address).Value) = "OK" Then
Range(Cells(NoLigne, 1), Cells(NoLigne, NoColonne)).Interior.ColorIndex = 15 Else
Rows(Target.Row).Interior.Pattern = xlNone 
End If
End Sub

Cela me permet de griser la ligne que si OK majuscule est reconnu.

Encore Merci.