Discussion :

[sigor16]

Bonjour à tous,

J'ai déjà cherché une solution à mon problème avec les fonctions de base proposées par excel mais rien ne fonctionne. Et malgré mes "très légères connaissances" en macro je me tourne vers vous pour avoir un peu d'aide.

En pièce-jointe vous trouverez un fichier qui décrit le matériel sur lequel je travail. En gros, j'ai des lignes de chiffres avec dans certains cas des cases vides (la dernière valeur de chaque ligne étant la fin de la série). J'aimerais pour chaque ligne et pour chaque valeur un code me calculant le "nombre de cases vides + 1" qu'il y a entre cette valeur et la valeur précédente.

Je prends comme exemple la 8 ème ligne (qui se compose ainsi : 0 / vide / -1200 / -500). Le code devrait donc me dire qu'entre la valeur -1200 et 0 il y a une case vide +1, donc le résultat est de 2. Et entre -500 et -1200, il y a zéro case vide +1, donc le résultat est de 1. Comme le 0 ne comprend pas de valeur avant, le calcul commence sur la deuxième valeur de chaque ligne et s'arrête à la dernière valeur (dans ce cas -500).

Il serait très aimable également si la personne qui réussit à m'aider pouvait me donner des explications sur le code, histoire que j'en apprenne un petit peu ! ;-)

J'espère avoir été assez clair et d'avance merci à tous ceux qui se pencheront sur mon problème.

Simon

[rvtoulon]

bonjour une idée comme une autre,
il existe dans excel une formule qui calcule le nb de cellule vide d'une plage.
donc si pour ton exemple tes données vont de A1 à D1 tu peux mettre en E1:

Code :

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

=NB.VIDE(A1:D1)+1

ici le résultat est bien 2, pour ton exemple.

[sigor16]

Merci pour ta réponse rvtoulon !

J'ai déjà essayé de bidouiller quelque chose avec cette fonction mais le problème c'est que la longueur de chacune des lignes ne mon fichier n'est pas toujours régulière et que les blancs ne sont pas toujours au même endroit.

En somme, le code devrait me donner un score pour chacune des valeurs de chacune des lignes... J'espère avoir été suffisamment clair ! ;-)

[rvtoulon]

je pense ne pas être trop loin de la solution.
Comme je ne sais pas quoi faire du résultat, tu ne dis pas ou il doit s'afficher, je l'affiche avec debug.print.

Il doit y avoir beaucoup mieux, mais d'après se que je comprend de tes explications:

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
Sub compter()
Dim derniereligne As Integer, dercol As String, numdercol As Integer
Dim plage As Range, y As Integer, i As Byte
 
'met dans une variable le numéro de la dernière ligne utilisée
derniereligne = (Range("A1").SpecialCells(xlCellTypeLastCell).Row)
 
'boucle sur toute les lignes utilisées à partir de la ligne 1
For y = 1 To derniereligne
    'Récupère l'adresse de la dernière colonne de la ligne
    dercol = Cells(y, Columns.Count).End(xlToLeft).Address
 
    'récupère le numéro de la dernière colonne utilisée de la ligne
    numdercol = Cells(y, Columns.Count).End(xlToLeft).Column
 
    'définie ma plage de recherche et de calcul des cellules vides
    Set plage = Range(Cells(y, 2), Cells(y, numdercol))
 
    'donne à i la valeur 1
    i = 1
 
'boucle sur chaque cellule de la ligne à partir de la colonne B
For Each c In plage
    'si l'adresse de la cellule est égale à l'adresse de la dernière cellule de la ligne
    ' alors on sort de la boucle
    If c.Address = dercol Then Exit For
 
    'si la cellule est vide et celle de droite est pleine alors
    If c.Value = "" And c.Offset(0, 1) <> "" Then
        i = i + 1
        Debug.Print i
 
    'si la cellule est vide et celle de droite est vide alors
    ElseIf c.Value = "" And c.Offset(0, 1) = "" Then
        i = i + 1
        Debug.Print i
 
    'si la cellule est pleine et celle de droite est pleine
    ElseIf c.Value <> "" And c.Offset(0, 1) <> "" Then
        i = 1
        Debug.Print i
    End If
Next c
Next y
End Sub

adapte le à tes besoins

[sigor16]

Encore merci,

En réalité je ne sais pas comment utiliser la fonction debug.print donc je n'arrive pas à voir si la macro me donne le résultat escompté.
Mais il est vrai que j'ai oublié de mentionner l'endroit ou je voulais que les résultats apparaissent.
L'idéal serait d'afficher le résultat les un à la suite des autres en gardant la logique du ligne par ligne et cela trente lignes plus bas.
Donc pour la ligne une le résultat devrait apparaître en ligne 31, en ligne 32 pour la ligne 2 etc...

Merci ;-)

[pyloupylou]

bonjour

menu macro
visual basic
et ensuite menu affichage et je crois fenetre execution