Discussion :

[Zakrios]

Bonjour

J'ai un soucie avec mon code. Il doit compter des lignes en dessous des cellules qui ont la valeur A colonne 1.

ex :

A
B
B
C
A
B
A

En dessous de mon premier A j'ai 3 lignes donc je mets 3 dans la cellule à coter de mon premier A, pour mon deuxième A j'ai 1 ligne donc mets 1 à coter, ect. S'il n'y a pas de valeur en dessous de la valeur A, il ne fait rien.

Dans mon codes j'ai un problème avec la boucle While Cells(j + i, 1).Value <> "A" , il me met l'erreur 1004 et je ne sais pas pourquoi.

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
 
Sub Calcul_Nombre_Ligne()
 
 
Dim i As Long
Dim j As Long
Dim H As Long 
Dim derniereLigne As Long 
 
 
i = 1
j = 1
H = 0
derniereLigne = Cells(Rows.Count, 1).End(xlUp).Row
 
    While i <> derniereLigne
    If Cells(i, 1).Value = "A" Then
        While Cells(j + i, 1).Value <> "A"
        j = j + 1
        x = 1
        H = H + 1
              Wend
              Cells(i, 2).Value = H
    End If
        i = i + 1
        j = 1
        H = 0
    Wend
 
End Sub

Je vous remercie pour votre aide.

[EricDgn]

Bonjour,

Le code est correct. Essayer en supprimant la ligne n°20: x = 1.

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
Option Explicit
 
Sub Calcul_Nombre_Ligne()
    Dim i As Long
    Dim j As Long
    Dim H As Long
    Dim derniereLigne As Long
    i = 1
    j = 1
    H = 0
    derniereLigne = Cells(Rows.Count, 1).End(xlUp).Row
    While i <> derniereLigne
        If Cells(i, 1).Value = "A" Then
            While Cells(j + i, 1).Value <> "A"
                j = j + 1
                H = H + 1
            Wend
            Cells(i, 2).Value = H
        End If
        i = i + 1
        j = 1
        H = 0
    Wend
End Sub

Maintenant il est aussi possible de faire cela à l'aide d'une formule, du genre:
=SI(A1="A";EQUIV("A";A2:A$7;0)-1;"").

Cordialement.

[Zakrios]

Merci beaucoup, mon problème est résolue.