Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

couleur de ligne immédiate?

jpcwe

XLDnaute Nouveau
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
 

jpcwe

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

Pièces jointes

  • ptitemacro.zip
    2.5 KB · Affichages: 16

Jacques87

XLDnaute Accro
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+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…