Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Essaie la macro suivante :
Sub test() Dim l As Integer, c As Integer, Ctr As Integer Dim n As Integer With Range("B9:AF20") For l = .Row To .Rows.Count + .Row n = 0 For c = .Column To .Columns.Count + .Column - 4 If Cells(l, c) = "CA" Then n = n + 1 Else If n >= 5 Then Ctr = Ctr + 1 n = 0 End If Next Next l MsgBox Ctr End With End Sub
Cordialement. Daniel "jjh" a écrit dans le message de news:
Bonjour
Je butte sur un problème de dénombrement
Jai un tableau B9 :AF20 Je souhaite compter le nombre de fois où jai une série, pour la valeur CA, supérieur à 4
Exemple H9:L9Ê soit 5CA = 1 fois T13:Y13 soit 7CA = 1 fois supplémentaire M11:O11 soit 3CA= 0 Au total le résultat est égal à 2
Est-il possible dobtenir ce résultat avec une formule ou avec des formules intermédiaires
et pour compliquer le tout si possible si la série est à cheval sur deux lignes AD7:AF7 B8:C8 Ou deux séries sur la même ligne B9:G9 V9:AD9
Merci pour laide que vous pourrez mapporter
Bonjour.
Essaie la macro suivante :
Sub test()
Dim l As Integer, c As Integer, Ctr As Integer
Dim n As Integer
With Range("B9:AF20")
For l = .Row To .Rows.Count + .Row
n = 0
For c = .Column To .Columns.Count + .Column - 4
If Cells(l, c) = "CA" Then
n = n + 1
Else
If n >= 5 Then Ctr = Ctr + 1
n = 0
End If
Next
Next l
MsgBox Ctr
End With
End Sub
Cordialement.
Daniel
"jjh" <jjh@iciailleur> a écrit dans le message de news:
uYP3WbnhIHA.1132@TK2MSFTNGP06.phx.gbl...
Bonjour
Je butte sur un problème de dénombrement
Jai un tableau B9 :AF20
Je souhaite compter le nombre de fois où jai une série, pour la valeur
CA, supérieur à 4
Exemple H9:L9Ê soit 5CA = 1 fois
T13:Y13 soit 7CA = 1 fois supplémentaire
M11:O11 soit 3CA= 0
Au total le résultat est égal à 2
Est-il possible dobtenir ce résultat avec une formule ou avec des
formules intermédiaires
et pour compliquer le tout si possible
si la série est à cheval sur deux lignes
AD7:AF7 B8:C8
Ou deux séries sur la même ligne
B9:G9 V9:AD9
Sub test() Dim l As Integer, c As Integer, Ctr As Integer Dim n As Integer With Range("B9:AF20") For l = .Row To .Rows.Count + .Row n = 0 For c = .Column To .Columns.Count + .Column - 4 If Cells(l, c) = "CA" Then n = n + 1 Else If n >= 5 Then Ctr = Ctr + 1 n = 0 End If Next Next l MsgBox Ctr End With End Sub
Cordialement. Daniel "jjh" a écrit dans le message de news:
Bonjour
Je butte sur un problème de dénombrement
Jai un tableau B9 :AF20 Je souhaite compter le nombre de fois où jai une série, pour la valeur CA, supérieur à 4
Exemple H9:L9Ê soit 5CA = 1 fois T13:Y13 soit 7CA = 1 fois supplémentaire M11:O11 soit 3CA= 0 Au total le résultat est égal à 2
Est-il possible dobtenir ce résultat avec une formule ou avec des formules intermédiaires
et pour compliquer le tout si possible si la série est à cheval sur deux lignes AD7:AF7 B8:C8 Ou deux séries sur la même ligne B9:G9 V9:AD9
Merci pour laide que vous pourrez mapporter
jjh
un grand MERCI
Bonjour. Essaie la macro suivante :
Sub test() Dim l As Integer, c As Integer, Ctr As Integer Dim n As Integer With Range("B9:AF20") For l = .Row To .Rows.Count + .Row n = 0 For c = .Column To .Columns.Count + .Column - 4 If Cells(l, c) = "CA" Then n = n + 1 Else If n >= 5 Then Ctr = Ctr + 1 n = 0 End If Next Next l MsgBox Ctr End With End Sub
Cordialement. Daniel "jjh" a écrit dans le message de news:
Bonjour
Je butte sur un problème de dénombrement
Jai un tableau B9 :AF20 Je souhaite compter le nombre de fois où jai une série, pour la valeur CA, supérieur à 4
Exemple H9:L9Ê soit 5CA = 1 fois T13:Y13 soit 7CA = 1 fois supplémentaire M11:O11 soit 3CA= 0 Au total le résultat est égal à 2
Est-il possible dobtenir ce résultat avec une formule ou avec des formules intermédiaires
et pour compliquer le tout si possible si la série est à cheval sur deux lignes AD7:AF7 B8:C8 Ou deux séries sur la même ligne B9:G9 V9:AD9
Merci pour laide que vous pourrez mapporter
un grand MERCI
Bonjour.
Essaie la macro suivante :
Sub test()
Dim l As Integer, c As Integer, Ctr As Integer
Dim n As Integer
With Range("B9:AF20")
For l = .Row To .Rows.Count + .Row
n = 0
For c = .Column To .Columns.Count + .Column - 4
If Cells(l, c) = "CA" Then
n = n + 1
Else
If n >= 5 Then Ctr = Ctr + 1
n = 0
End If
Next
Next l
MsgBox Ctr
End With
End Sub
Cordialement.
Daniel
"jjh" <jjh@iciailleur> a écrit dans le message de news:
uYP3WbnhIHA.1132@TK2MSFTNGP06.phx.gbl...
Bonjour
Je butte sur un problème de dénombrement
Jai un tableau B9 :AF20
Je souhaite compter le nombre de fois où jai une série, pour la valeur
CA, supérieur à 4
Exemple H9:L9Ê soit 5CA = 1 fois
T13:Y13 soit 7CA = 1 fois supplémentaire
M11:O11 soit 3CA= 0
Au total le résultat est égal à 2
Est-il possible dobtenir ce résultat avec une formule ou avec des
formules intermédiaires
et pour compliquer le tout si possible
si la série est à cheval sur deux lignes
AD7:AF7 B8:C8
Ou deux séries sur la même ligne
B9:G9 V9:AD9
Sub test() Dim l As Integer, c As Integer, Ctr As Integer Dim n As Integer With Range("B9:AF20") For l = .Row To .Rows.Count + .Row n = 0 For c = .Column To .Columns.Count + .Column - 4 If Cells(l, c) = "CA" Then n = n + 1 Else If n >= 5 Then Ctr = Ctr + 1 n = 0 End If Next Next l MsgBox Ctr End With End Sub
Cordialement. Daniel "jjh" a écrit dans le message de news:
Bonjour
Je butte sur un problème de dénombrement
Jai un tableau B9 :AF20 Je souhaite compter le nombre de fois où jai une série, pour la valeur CA, supérieur à 4
Exemple H9:L9Ê soit 5CA = 1 fois T13:Y13 soit 7CA = 1 fois supplémentaire M11:O11 soit 3CA= 0 Au total le résultat est égal à 2
Est-il possible dobtenir ce résultat avec une formule ou avec des formules intermédiaires
et pour compliquer le tout si possible si la série est à cheval sur deux lignes AD7:AF7 B8:C8 Ou deux séries sur la même ligne B9:G9 V9:AD9