Discussion :

[yassine06]

Bonjour,

je voudrais créer une macro dans un classeur qui contient 4 feuilles (feuil1, feuil2, feuil3, feuil4).

La macro devra compter le nombre de lignes non vides de chaque tableau et mettre la valeur trouvée dans une cellule d'un nouveau classeur.

A travers ces 4 résultats je voudrais créer un graphe dont les abscisses auront les étiquettes suivantes : (résultat tableau1, résultat tableau2... jusqu'à 4) et dont les ordonnées seraient le numéro de ligne importé dans le classeur .

merci d'avance pour votre aide .

[le_dilem]

Salut pour la somme des lignes vides :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub resultat()
 
Dim I, j, z, x, f
 
I = 2
j = 1
z = 1
 
For f = 1 To Sheets.Count
        If Sheets(f).Name = "Resultat" Then
          x = 1
        End If
  Next f
 
If x <> 1 Then       ' ajouter de la feuille Resultat si elle n'existe pas
 
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
    NewSheet.Name = ("Resultat")
End If
 
 
For z = 1 To 4
 
Sheets("Feuil" & z).Select
 
For I = 2 To 16  ' je suppose que tu as 100 ligne
 
 valeurligne = 0
 
  For j = 1 To 10 ' je suppose que tu as 10 colonne
     If Cells(I, j) <> "" Then
        valeurligne = 1
     End If
 
       Next j
 
    If valeurligne = 0 Then
    compt = compt + 1
    End If
 
     j = 1
   Next I
 
  Sheets("Resultat").Range("A" & z) = "Le resultat de la feuille" & z & " est : " & compt
 
 Next z
End Sub