fusionner un bout de code

[rudy dehaudt]

bonjour à vous:
je cherche à fusionner le code ci-dessous.
en l'état la séparation des colonnes ne s'applique pas ?
je vais calculer jusqu’à la colonne T.
merci de votre aide.

A+




Sub comptercouleurs()
Dim CompterCellules As Integer
Dim Cellules As Range

'compter dans la colonne A
Sheets("bdd").Select
Range("A3:A150").Select

For Each Cellules In Selection

If Cellules.Interior.ColorIndex = 3 Then 'n°3 rouge
CompterCellules = CompterCellules + 1
End If
Next Cellules
Sheets("bdd").Activate
[a1] = CompterCellules


'compter dans la colonne B
Sheets("bdd").Select
Range("B3:B150").Select

For Each Cellules In Selection

If Cellules.Interior.ColorIndex = 3 Then 'n°3 rouge
CompterCellules = CompterCellules + 1
End If
Next Cellules
Sheets("bdd").Activate
[B1] = CompterCellules

End Sub

 

[Softmama]

Re : fusionner un bout de code

Bonjour,

je suis pas bien sur de ce que tu souhaites obtenir. Essaie cette macro :

Sub comptercouleurs()
Dim CompterCellules As Long
Dim Cel As Range
Dim Plage As Range

Set Plage = Sheets("bdd").Range("A3:A150")

Do While Plage.Cells(1).Column < 21 '21 = Colonne T
  CompterCellules = 0 'Enlever si on vaut valeur cumulée
  For Each Cel In Plage
    If Cel.Interior.ColorIndex = 3 Then 'n°3 rouge
      CompterCellules = CompterCellules + 1
    End If
  Next Cel
  Sheets("bdd").Cells(1, Plage.Column) = CompterCellules
  Set Plage = Plage.Offset(0, 1)
Loop
End Sub

 

[Pierrot93]

Re : fusionner un bout de code

Re,

pour boucler sur les cellules de colonne A à T...

For Each Cellules In Sheets("bdd").Range("A3:T150")

A noter que les "select" sont rarement utiles en vba...

bon après midi
@+

Edition : bonsoir Softmama

 

[Hulk]

Re : fusionner un bout de code

Hello,

Faut remettre CompterCellules à 0 avant de parcourir la colonne B...

'compter dans la colonne B
    [B][COLOR="darkgreen"]CompterCellules = 0[/COLOR][/B]    Sheets("bdd").Select
    Range("B3:B150").Select
    ...

 

[rudy dehaudt]

Re : fusionner un bout de code

merci softmama, c'est toute à fait ça.

A+

 

[rudy dehaudt]

Re : fusionner un bout de code

excuse moi hulk et pierrot93 je ne vous avait pas lu.
merci à tous

A+