Discussion :

[Invité]

Bonjour,

J'ouvre ce poste suite à cette demande (https://www.developpez.net/forums/d1...ables-countif/).
En effet, moi et barrym78 bloquons sur l'utilisation du FindNext dans un certains cas. Plutôt que de vous présenter le problème en me basant sur le sujet de barrym78, je vais vous l'expliquer comme si c'était un nouveau sujet (dont la finalité est de résoudre le problème de barrym).

Voici donc le contexte, j'ai actuellement un fichier Excel avec ce tableau :



L'objectif est de calculer la 3ème colonne du tableau à partir des valeurs de la 2ème colonne de la manière suivante :

-Si les valeurs de la colonne 2 présentent dans le premier intervalle A-B (c'est à dire de la ligne 2 à 12) valent 1, on les multiplie par 10 dans la colonne 3 .
-Si les valeurs de la colonne 2 présentent dans le deuxième intervalle A-B (c'est à dire la ligne 13 à 23) valent 1, on les multiplie par 20 dans la colonne 3.

Voici la manière dont j'ai procédé pour réaliser ceci :

-On cherche les lignes contenant la valeurs "B" dans la colonne 1 avec un Find dans tout le fichier.
-On cherche les lignes contenant la valeur 1 dans la colonne 2 avec un Find seulement jusqu'à la 1ère ligne trouvée avec le Find précédent (donc jusqu'à la fin du premier intervalle A-B).
-On fait un Loop pour appliquer le calcul à la colonne 3 sur toute les lignes trouvées avec le Find précédent.
-On garde en mémoire le numéro de la ligne trouvé avec le premier Find
-On recherche les lignes contenant la valeur 1 dans la colonne 2 avec un Find mais en partant de la ligne gardé en mémoire et jusqu'à la 2ème ligne trouvée avec le premier find.
-On fait un Loop pour appliquer le calcul à la colonne 3 sur toute les lignes trouvées avec le Find précédent.
-Et on applique ceci jusqu'à que l'on est fait toute les lignes trouvées dans le premier Find.

Voici ce que sa donne :

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
48
49
50
51
52
53
Public Sub test()
 
    Dim r As Range
    Dim feuille As Worksheet
    Dim r2 As Range
    Dim adresse1 As String
    Dim adresse2 As String
    Dim nbLigne As Integer
    Dim multiplicateur As Integer
    Dim ligne As Integer
 
    multiplicateur = 10
 
    Set feuille = ActiveSheet
 
    With feuille
 
        nbLigne = .Cells(Rows.Count, 1).End(xlUp).Row
 
        Set r = .Range("A1:A" & nbLigne).Find("B")
        ligne = 1
 
        If Not r Is Nothing Then
 
            adresse1 = r.address
 
            Do
 
                Set r2 = .Range("B" & ligne & ":B" & r.Row).Find("1")
                adresse2 = r2.address
 
                If Not r2 Is Nothing Then
 
                    Do
 
                        .Cells(r2.Row, 3) = .Cells(r2.Row, 2) * multiplicateur
                        Set r2 = .Range("B" & ligne & ":B" & r.Row).FindNext(r2)
 
                    Loop While Not r2 Is Nothing And r2.address <> adresse2
 
                End If
 
                ligne = r.Row
                multiplicateur = 20
                Set r = .Range("A1:A" & nbLigne).FindNext(r)
 
            Loop While Not r Is Nothing And r.address <> adresse1
 
        End If
 
    End With
 
End Sub

Le problème survient à la ligne 45. En effet, mon "Set r" ne récupère pas la valeur "B" mais la valeur "1" ! J'ai l'impression que le FindNext ne repart pas du premier Find effectué sur la Range "r" mais du dernier Find effectué sur la Range "r2". Je ne trouve pas de solution à ce problème (que j'espère avoir bien expliqué) et vous demande donc vos lumières !

Si vous avez des questions n'hésitez pas !

[patricktoulon]

bonjour
un simple find tout cour sur a ou b
un autofilter field 1 sur la valeur 1 puis field2 sur la valeur 1
et tu a tes 1,1 pour tout les AB
je dirais meme mieux faire un autofilter field1 sur les valeur "A" ou"B" en premier pour récupérer les adresse d'intervalle

[parmi]

Bonjour,

Je ferais un tableau avec les numéros des lignes contenant les A et B et je bouclerais ce tableau "d'adresses"...

[patricktoulon]

et en réfléchissant un peu on peut même faire plus simple
on fait simplement le filtre sur colonne 1 et 2 sur la valeur 1
on récupère l'adress de la plage visible
on fait simplement une boucle sur chaque ligne de la plage obtenue par le filtre
et a chaque tours on test le row dela ligne .end(xlup) sur la colonne 1 on trouve le A et 20 si le offset(-1,0)="B"sinon 10 sans la colonne 3 de la ligne Xde la boucle

[Invité]

Bonjour,

Voici une solution avec l'idée de parmi :

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
48
49
50
51
52
53
54
55
56
Public Sub test2()
 
    Dim tablo() As Integer
    Dim i As Integer
    Dim j As Integer
    Dim multiplicateur
 
    Call remplirAdresse(tablo)
 
    For i = 1 To UBound(tablo) - 1 Step 2
 
        multiplicateur = multiplicateur + 10
 
        For j = tablo(i) To tablo(i + 1)
 
            If Sheets("Feuil2").Cells(j, 2) = 1 Then
 
                Sheets("Feuil2").Cells(j, 3) = Sheets("Feuil2").Cells(j, 2) * multiplicateur
 
            End If
 
        Next j
 
    Next i
 
End Sub
 
Public Sub remplirAdresse(tablo() As Integer)
 
    Dim nbligne As Integer
    Dim nbAdresse As Integer
    Dim cpt As Integer
    Dim i As Integer
 
    cpt = 1
 
    With Sheets("Feuil2")
 
        nbligne = .Cells(Rows.Count, 1).End(xlUp).Row
        nbAdresse = Evaluate("COUNTIF(A2:A" & nbligne & ",""A"") + COUNTIF(A2:A" & nbligne & ",""B"")")
        ReDim tablo(1 To nbAdresse)
 
        For i = 2 To nbligne
 
            If .Cells(i, 1) Like "A" Or .Cells(i, 1) Like "B" Then
 
                tablo(cpt) = i
                cpt = cpt + 1
 
            End If
 
        Next i
 
    End With
 
End Sub

Je réfléchis encore à ton idée Patrick (pas trop l'habitude d'utiliser les filtres ^^), je suis quand même perturbé par mon erreur sur le Find, je ne pense pas que ce soit la meilleur solution mais trouvé le problème serait intéressant par pur curiosité.

[patricktoulon]

tiens regarde le resultat

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
Sub Macro1()
    With ActiveSheet
        With .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
            .AutoFilter Field:=1, Criteria1:="=A", Operator:=xlOr, Criteria2:="=B"
            Set plage = .SpecialCells(xlVisible)
            .AutoFilter
        End With
    End With
    MsgBox plage.Address
    tablo_ligne = Split(Replace(plage.Address, ":", ","), ",")
    For i = 0 To UBound(tablo_ligne) - 1 Step 2
        a = a + 1: supp = IIf(a > 1, 20, 10)
        MsgBox "plage " & a & "= " & tablo_ligne(i) & ":" & tablo_ligne(i + 1)
        For Each cel In Range(tablo_ligne(i) & ":" & tablo_ligne(i + 1))
            If cel = 1 Then cel.Offset(0, 2) = "oui pour la plage " & a & " dans la colonne " & 1
            If cel.Offset(0, 1) = 1 Then cel.Offset(0, 3) = "oui pour la plage " & a & " dans la colonne " & 2
        Next
    Next
End Sub