couleur de ligne immédiate?

[jpcwe]

bonsoir,
suite à une ptite erreur je me suis trompé de forum ( merci Brigitte)
j'en appelle à vous car j'ai besoin d'aide.
Sans utiliser les MFC je souhaiterai mettre une ligne en couleur dés la saisie dans un usf d'une donnée.
J'ai trouvé des choses qui marchent mais qui ralentissent le systéme en faisant une lecture de l'ensemble du dossier comme ceci:

For Each coul In Range('CP2:CP' & Range('CP65536').End(xlUp).Row) 'colonne à adapter

If coul.Value = 'Définitif' Then
coul.entirerow.colorindex=2

maintenant je voudrai limiter à une seule ligne la lecture et la mise en forme,

merci

 

[Jacques87]

Bonjour

Si je comprends bien ta question, il te suffit de remplacer la variable 'coul' par la cellule en question (en supprimant la boucle, cela va se soi)

bon dimanche

 

[jpcwe]

bonjour,

AAAArgh!!!!!!!!!!
c'est si simple que cela? je vais tester de suite ( j'en ai presque honte)
merci

 

[jpcwe]

re bonjour,

cé remoa

euh ça ne fonctionne pas et mon post ne veut pas prendre le code je le joins en zip,

quelqu'unpeut me dire où je me trompe svp?
merci

 

[jpcwe]

le voilà [file name=ptitemacro.zip size=2560]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ptitemacro.zip[/file]

 

[Jacques87]

Re

Une erreur dans le code : tu appelle la variable LL et ne la définit qu'après, donc elle prend la valeur 0

écris plutôt :
LL = Sheets('data').Range('A65536').End(xlUp).Row + 1
coul = Sheets('data').Range('CQ' & LL).Value

quant au reste je ne vois, à première vue, pas de problèmes

A+

 

[jpcwe]

MERCI !!!!!!!!!!!!!

que ne ferais je sans le forum???????

le plus dur c'est de se relire et d'éviter de faire des fautes de frappe
encore mille merci