[Catégorie modifiée .Net -- VBA] Infos comment Remplir (couleur) cellule excel

Question

Bonjour a tous,
je ne sais pas ou m'adreseer ...

Ceci n'est pas des plus important mais si quelqu'un avait une solution, je le remercie.

Dans mon tableau Excel en exemple, j'ai 4 colonnes  et x lignes

par exemple dans ces colonnes ; 
NOM ; PRENOM ; DEMANDE ; FAIT 

J'aimerais savoir si il etait possible de remplir la ligne (surlignée + texte) automatiquement lorsque dans la colonne FAIT est inscrit un texte

Encore merci a tous
Fl7

cs_Jack · Answer

Salut

Trois choses :
-1- Tester le contenu de la colonne D ("Fait")
-2- Coloriser la ligne si non vide OU supprimer la colorisation si vide
-3- Faire cette tâche automatiquement

Commençons par la fin :
A chaque fois que tu modifies le contenu d'une cellule, la feuille se recalcule.
A ce moment là, la Sub Worksheet_Calculate se déclenche : c'est là qu'il faudra écrire ton code pour qu'il fasse le test à chaque changement.

Avant de vouloir tester chaque cellule de la colonne D, il faut déterminer l'étendue de la recherche : inutile (et trop long) de tester 60.000 lignes si elles sont vides.
Cette syntaxe se retrouve dans beaucoup de messages de ce forum :
    Range("D65000").End(xlUp).SelectEnsuite, il suffit de retrouver le numéro de ligne où tu te trouves :
    LigneMax = Selection.Row
Maintenant que tu sais que tu vas devoir scruter les lignes de 1 à LigneMax, il te suffit de faire une boucle :
    For r = 1 To LigneMax 
        If IsEmpty(Range("D" & CStr(r)).Value) Then
            ' Vide
            ' Selection ligne entière
            Rows(CStr(r) & ":" & CStr(r)).Select
            ' Ici le code de surlignage
        Else
            ' Pas vide
            ' Selection ligne entière
            Rows(CStr(r) & ":" & CStr(r)).Select
            ' Ici le code de suppression du surlignage
        End If
    Next r
Pense à enregistrer des macros pour générer le code correspondant aux manips que tu fais à la main.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_fl7 · Answer

Bonjour Jack,
merci pour ton aide ...

Je vais essayer cela

Je te dirai si ca passe ;


Merci ,
Fl7

cs_fl7 · Answer

Hello jack,
je suis en train de regarder :
mais je ne comprends pas en fait ; ceci est le script ... mais comment tu definis la couleur du texte ou color de la ligne (des que tu inscrit dans la cellule 'fait' ??

merci a toi

[Catégorie modifiée .Net --> VBA] Infos comment Remplir (couleur) cellule excel

3 réponses

Votre réponse

Discussions similaires