Calculer nbre de ligne coloriée

justine

XLDnaute Occasionnel

• 1 Décembre 2006

• #2

Re : Calculer nbre de ligne coloriée

bonjour le forum, macecxel
nbre=0
for i = 1 to 65536
if rows(i:i).Interior.ColorIndex = xlNone then nbre=nbre+1
next
msgbox"il y a " & nbre & " lignes"

 

Vote positif 0 Vote négatif

M

macexcel

Guest

• 1 Décembre 2006

• #3

Re : Calculer nbre de ligne coloriée

justine à dit:

bonjour le forum, macecxel
nbre=0
for i = 1 to 65536
if rows(i:i).Interior.ColorIndex = xlNone then nbre=nbre+1
next
msgbox"il y a " & nbre & " lignes"

Cliquez pour agrandir...

Euh, moi débutant, j'ai rien compris, tu peux expliciter?

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Décembre 2006

• #4

Re : Calculer nbre de ligne coloriée

Bonjour Macexcel, bonjour le forum,

Je te propose la macro suivante :

Code:

Sub Macro3()
Dim lid As Integer 'déclare la variable lid (LIgne de Début)
Dim lif As Integer 'déclare la variable liF (LIgne de Fin)
Dim x As Integer 'déclare la variable x (pour la boucle
Dim c As Integer 'déclare la variable c (Compteur)
 
lid = ActiveSheet.UsedRange.Row 'définit la variable début
lif = (lid + ActiveSheet.UsedRange.Rows.Count) - 1 'définit la variable fin
 
For x = lid To lif 'boucle de la première ligne utilisée à la dernière
 
    'si la ligne entière contient une couleur quelconque
    If Cells(x, 1).EntireRow.Interior.ColorIndex <> xlNone Then
        c = c + 1 'le compteur s'incrémente de 1
    End If 'fin de la condition
 
Next x 'prochain élément de la boucle
 
MsgBox c 'message indiquant le nombre
 
End Sub

Édition :

Hou la ! En retard... Bonjour Justine

 

Dernière édition: 1 Décembre 2006

Vote positif 0 Vote négatif

M

macexcel

Guest

• 1 Décembre 2006

• #5

Re : Calculer nbre de ligne coloriée

Merci beaucoup pour vos réponses, seulement je ne sais pas créer de macro... 🙁

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Décembre 2006

• #6

Re : Calculer nbre de ligne coloriée

Bonsoir le fil, bonsoir le forum,

Macexcel, une procédure pour les macros :
• Copie d'abord la macro que je t'ai proposé
• Ouvre ton fichier dans lequel tu veux la macro.
• [Alt]+[F11] ouvrira Visal Basic Editor (VBE) par dessus Excel
• Dans VBE, menu Insertion/Module
• Un nouveau module est créé, le curseur clignotte dans le grand rectangle blanc de droite
• colle la macro
• [Alt]+[F11] à nouveau pour fermer VBE et revenir à Excel

Sauve le fichier pour garder la macro en mémoire.

Pour utiliser la macro à partir de Excel :
• [Alt]+[F8] ouvrfe la boîte de dialogue Macro
• sélectionne Macro3 dans la liste
• clique sur le bouton Exécuter

Pour créer une nouvelle macro tu peux utiliser l'Enregistreur de macro :
• dans Excel, menu Outils/Macro/Nouvelle macro...
• la boîte de dialogue Enregistrer une macro s'affiche (je te conseille de garder les noms et paramètres par défaut pour le moment)
• clique sur OK
• l'enregistreur se met en marche (la barre d'outil Arrêter l'enregistrement apparaît)
• dès lors tout ce que tu fais dans excel est transcri en langage VBA (Visual Basic pour Applications)
• exécute les commandes
• clique sur le carré de la petite barre d'outil pour arrêter l'enregistrement
• une nouvelle macro est enregistrée...

Pour la visualiser utilise la première procédure [Alt]+[F11]. Pour l'utiliser la seconde [Alt]+[F8].

Derniers conseils... Au début, en tous cas pour moi, le langage VBA était aussi limpide qu'un trait d'esprit de José. En clair je n'y comprenais que pouic ! Il faut que tu t'armes de patience et que tu avances doucement pour que les choses prennent forme petit à petit. Comme tout langage il faut respecter sa grammaire, sa syntaxe pour que ça fonctionne. Il faut absolument que l'Aide VBA soit installée (elle ne l'est pas toujours d'office à l'installation du Pack Office (lui aussi). Si tu ne l'as pas il te faut rajouter ce module. Bon courage...

Je te rassure, finalement le VBA c'est bien plus facile que les vannes à José...

 

Vote positif 0 Vote négatif

M

macexcel

Guest

• 4 Décembre 2006

• #7

Re : Calculer nbre de ligne coloriée

Merci beaucoup pour vos réponses, seulement je ne sais pas créer de macro... 🙁

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 4 Décembre 2006

• #8

Re : Calculer nbre de ligne coloriée

Bonjour le fil, bonjour le forum,

Macexcel, en principe j'ai suffisamment d'humour pour en rire mais là je n'apprécie vraiment pas ce genre de "foutage de gueule". Heureusement, je suis pas rancunier et je ne te maudis donc que sur 5 générations et, comme je suis très gorssier, je ne t'écris surtout pas ce que je pense de toi.

 

Vote positif 0 Vote négatif