Compteur

Bonjour,

Mon objectif est la création d’un compteur avec des conditions.

J’ai une entrée en cellule a1 d’une feuille actif, cette valeur est comprise entre 1 et 6.

Si la valeur est égale a 1 alors j’incrémente la cellule c2, c3, c4, c5, c6 de 1 et je passe c1 à 0 ;

Apres si la valeur est égale a 2 alors j’incrémente la cellule c1, c3, c4, c5, c6 de 1 et je passe c2 à 0 ;

Et ainsi de suite.

J’ai établi une ébauche de mon compteur ci-joint en fichier qui fonctionne.

Ma question : est-il possible de simplifier ma macro, je débute en vba et je me pose la question si

C’est la bonne méthode.

Merci pour votre aide

Eolin

Bonsoir

Essayes

Option Explicit

Sub compteur()
Dim J As Long

  For J = 1 To 6
    If J <> Range("A1") Then
      Range("C" & J) = Range("C" & J) + 1
    End If
  Next J
End Sub

Bonjour,

merci pour cette reponse rapide;

votre macro fonctionne

mais lorsque je rentre une valeur , la cellule de cette valeur ne se met pas zero.

je travaille dessus pour essayer de trouver.

merci

Eolin

Bonjour

j'ai trouve merci

Sub compteur()

Dim J As Long

For J = 1 To 6

If J <> Range("A1") Then

Range("C" & J) = Range("C" & J) + 1

Else

Range("C" & J) = 0

End If

Next J

End Sub

ca fonctinne tres bien

merci pour votre aide.

Eolin

Bonsoir

désole j'avais lu la question de travers

Tu as trouvé

Bonjour,

suite à ce sujet,

j'ai parfois la celule a1 , qui se retrouve vide et je voudrais que le compteur ne change pas de valeur.

peut etre une solution?

merci

Eolin

Bonjour

Eolin a écrit :

j'ai parfois la celule a1 , qui se retrouve vide

Vide : Sans donnée

Testes en début de macro

If Range("A1") = "" Then Exit Sub

Bonsoir,

merci beaucoups pour votre aide, ca fonctionne tres bien.

Sub compteur()

'declaration de la variable

Dim J As Long

'condition1

For J = 1 To 6

If Range("A1") = "" Then

Exit Sub

End If

'condition2

If J <> Range("A1") Then

Range("C" & J) = Range("C" & J) + 1

Else

Range("C" & J) = 0

End If

Next J

End Sub

@++

Eolin

Bonjour

Je me suis mal expliqué

Le test se fait avant la boucle

Sub compteur()
'declaration de la variable
Dim J As Long

'condition1
  If Range("A1") = "" Then
    Exit Sub
  End If

  For J = 1 To 6
    'condition2
    If J <> Range("A1") Then
      Range("C" & J) = Range("C" & J) + 1
    Else
      Range("C" & J) = 0
    End If
  Next J
End Sub

Quand tu as une macro à afficher utilises les balises Code (au dessus à gauche de la fenêtre d'édition)

Bonjour,

merci beacoups pour votre travail et aide

ca fonctionne tres bien

il y a un ecart entre ma formation et le reel j'ai du travail .

@++

Eolin