Compter des cellules VBA

Question

Bonjour,

En VBA, je cherche à compter les valeurs des cellules de I14 à L14 où la cellule = R
J'ai essayé COUNTIF mais ca bug tout le temps, je dois pas savoir m'en servir.

Qq'un pourrait m'aider ?

Merci

Polux31 · Answer

Bonjour,


Dim plage As Range
Dim cel 
Dim cpt As Integer

   Set plage = Worksheets(1).Range("I14:L14")
   For Each cel In plage
      If cel.Value = "R" Then cpt = cpt + 1
   Next cel

   MsgBox "Nb : " & cpt

   Set plage = Nothing   


;o)

Utilisateur anonyme · Answer

Super merci

A tout hasard, sur une plage de 7 colonnes, c'est pas possible de savoir si 4 "R" se trouve à la suite ?

Polux31 · Answer

Oui ça doit être possible, il suffit de faire la vérification dans la boucle :

Dim plage As Range
Dim cel 
Dim cpt As Integer
Dim NbR As Integer
Dim Vrai As Boolean

   Set plage = Worksheets(1).Range("I14:P14")
   For Each cel In plage
      If cel.Value = "R" Then 
          cpt = cpt + 1
          NbR = NbR + 1
          If NbR = 4 Then Vrai = True
      End If
      NbR = 0
   Next cel

   If Vrai = False Then
       MsgBox "Nb : " & cpt
   Else
       MsgBox "Nb : " & cpt & ", 4 R à la suite"
   End If

   Set plage = Nothing  

;o)

Utilisateur anonyme · Answer

Ah non, ca va pas, c'est pas 4 de suite, mais 4 à la suite (aligné :p)
Tu vois ce que je veux dire
Merci

Polux31 · Answer

Bonjour,   

Effectivement je n'avais pas testé et ça ne fonctionne pas ^^   
J'ai compris qu'il faut 4 cellules consécutives horizontalement contenant "R":   


!  I  !  J  !  K  !  L  !  M  !  N  !  O  !  P  !   

   R           R     R     R     R            R

Est ce bien ça ?


Option Explicit   

Private Vrai As Boolean   
Private NbR As Integer   

Sub test()   
Dim plage As Range   
Dim cel   
Dim cpt As Integer   

Set plage = Worksheets(1).Range("I14:P14")   
    For Each cel In plage   
        If cel.Value = "R" Then   
            cpt = cpt + 1   
            If NbR < 4 Then cptR (1)   
        Else   
            If NbR <> 4 Then   
                NbR = 0   
            End If   
        End If   
       
    Next cel   

   If Vrai = False Then   
       MsgBox "Nb : " & cpt   
   Else   
       MsgBox "Nb : " & cpt & ", 4 R à la suite"   
   End If   

   Set plage = Nothing   
End Sub   

Sub cptR(ByVal str As Integer)   

    NbR = NbR + str   
    If NbR = 4 Then Vrai = True   
       
End Sub   



«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»    
Nicolas Boileau

Utilisateur anonyme · Answer

Ah oué, pas mal tout ca dit moi ;)
En fait, je m'amuses a essayer de faire un puissance 4 pour comprendre le codage VBA et donc me former.

J'ai bien compris comment tu faisais. Mais il reste encore des étapes comme la vérification en colonne, qui ne devrait pas etre trop compliqué et tester également dans les 2 diagonales.

Si tu veux m'aider que j'avance sans faire n'importe quoi, je suis tout ouie ;)

Merci beaucoup de ton implication.

Utilisateur anonyme · Answer

Un tableau, de mémoire, tu te souviens comment tu gérais la chose ?
Merci

Compter des cellules VBA

7 réponses

Discussions similaires

Newsletters