Discussion :

[TheRealMike]

Bonjour à tous,

je me permets de poster car je suis face à un problème.
Je dispose d'un ligne faite de oui et de non comme ceci:

oui oui oui oui non non non oui oui non oui non non oui oui oui

je voudrais compter, avec du code VBA, le nombre de fois où une plage de "oui" apparaît. Dans la ligne citée ci-dessus, le code renverrait la valeur 4.

Pouvez-vous m'aider afin que je puisse parvenir à mes fins?

Je vous remercie par avance.

TRM

[Qwazerty]

Salut
A mon avis il te faut utiliser la fonction Split, elle permet de créer un tableau en fonction d'une chaine de caractere et d'un séparateur, dans ton cas le séparateur c'est l'espace (" ") ce qui doit donner un truc comme ça

Code :

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

 'ici le " " comme délimiteur est sous entendu par défaut (voir l'aide pour plus d'info)

Ensuite il ne te reste plus qu'a faire une boucle pour compter le nombre de fois que tu passes de Non à Oui
Je le fais a main levé, il faudra corriger et adapter

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
Dim CountOui As Integer
Dim LastNon As Boolean
Dim Montableau()
Dim I as Integer, TmpInt As Integer
 
MonTableau = Split(MaChaineOuiNon)
If MonTableau(1) = "oui" then
  CountOui = 1
  LastNon = False
Else
  CountOui = 0
  LastNon = True
End If
 
for tmpInt = 2 to ubound(MonTableau)
  if MonTableau(TmpInt) = "Oui" and LastNon then 
    CountOui = CountOui + 1
    LastNon = False
  End If
Next

++
Qwaz

[laetitia]

bonsoir TheRealMike sans plus d'infos. brute comme cela ma plage =a1:k1

Code :

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

1
2
3
4
5
6
7
Option Explicit
Sub Macro1()
Dim c As Range, x As Byte
For Each c In Range("a1:k1")
If c = "oui" Then x = x + 1
Next c: MsgBox "oui = " & x
End Sub

ps salut qwaz pas rafraichi bisous a+

[Qwazerty]

Coucou l'amie Leti
Attention
oui oui oui oui non non non oui oui non oui non non oui oui oui

le nombre de fois où une plage de "oui" apparaît. Dans la ligne citée ci-dessus, le code renverrait la valeur 4.

[Edit]
Ha, en vu de la réponse qui suit je ne suis pas dans le vrai non plus visiblement :s, je sent bien que je vais devoir des excuses a la demoiselle :p
[/Edit]
A++
Qwaz

[Pierre Fauconnier]

Bonjour

J'ai considéré que ta plage commençait en A1 et que, comme dans ton exemple, elle ne contenait pas de colonnes 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
Sub Comptage()
    Dim colonne As Integer
    Dim i As Integer
    Dim Decalage As Integer
    Dim Comptage As Integer
 
    colonne = Range("a1").End(xlToRight).Column
    i = 1
    Do While i < colonne
        If Cells(1, i) = "oui" Then
            Comptage = Comptage + 1
            Decalage = i + 1
            Do While Cells(1, Decalage) = "oui"
                Decalage = Decalage + 1
            Loop
            i = Decalage
            Else
            i = i + 1
        End If
    Loop
End Sub

[TheRealMike]

Merci à tous pour vos réponses.

Je vais tester ça ce soir, je vous tient au courant!

TRM

[Didier Gonard]

Bonjour,

d'après l'énoncé : Si il n'y a pas OUI, c'est qu'il y a NON (pas de vides ou autres valeurs).

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
Sub Soluce_xx()
Dim I As Integer
Dim intPlageOui As Integer
Dim intPlageNon As Integer
Dim lngNoLigne As Long
 
lngNoLigne = 7
If Cells(lngNoLigne, 1) = "oui" Then intPlageOui = intPlageOui + 1 Else intPlageNon = intPlageNon + 1
For I = 2 To Cells(lngNoLigne, 1).End(xlToRight).Column
    If Cells(lngNoLigne, I) <> Cells(lngNoLigne, I).Offset(0, -1) Then
        If Cells(lngNoLigne, I) = "oui" Then intPlageOui = intPlageOui + 1 Else intPlageNon = intPlageNon + 1
    End If
Next I
MsgBox "Il y a  " & intPlageOui & " plages de OUI  et  " & intPlageNon & " plages de non"
End Sub

cordialement,

Didier