eviter certain chiffre dans un compteur

[poussy67]

Bonjour le forum

Mon problème ce sont des chiffres d'un compteur automatique dans un classeur qui me pose une difficulté. Je voudrais éviter certain numéro sur
le compteur auto, c'est numéro sont 10,20,30,40,50 etc. qui sont déjà générer automatiquement par un programme. Est il possible à l'aide d'une vba de créer un compteur qui génère pas les chiffres suivant 10,20,30,40,50 etc.

Merci d'avance pour votre aide

cdt Poussy

 

[joss56]

Re : eviter certain chiffre dans un compteur

Bonjour

Et ce compteur, comment doit-il fonctionner?

A+

Jocelyn

 

[poussy67]

Re : eviter certain chiffre dans un compteur

Bonjour joss56

Ce compteur doit s'incrémente lors d'une impression.

 

[poussy67]

Re : eviter certain chiffre dans un compteur

pour cela j'utilise

Sub Impression()
Select Case MsgBox("Voulez vous imprimer" _
& vbCrLf & "" _
& vbCrLf & "" _
, vbYesNo Or vbInformation Or vbDefaultButton1, Application.Name)

Case vbYes
Sheets("Feuil1").Range("AY51").Value = Range("AY51").Value + 1
Sheets("Sommaire").Select

Case vbNo
Sheets("Sommaire").Select
Exit Sub
End Select

End Sub

 

[joss56]

Re : eviter certain chiffre dans un compteur

Peux-tu joindre un fichier exemple pour voir comment ça se présente. Quel type de compteur (1,2,3...; autre?), dans quelle cellule doit apparaître le compteur etc...bref aide nous à t'aider!

 

[joss56]

Re : eviter certain chiffre dans un compteur

pardon, nos messages se sont croisés...

 

[joss56]

Re : eviter certain chiffre dans un compteur

qu'est-ce qui ne va pas dans le code que tu as fourni?

 

[poussy67]

Re : eviter certain chiffre dans un compteur

mon code fonctonne bien, le compteur s'incremente tres bien lors de chaque impression.
Quand j'arrive au numéro 09 lors de la prochaine impression je voudrais que le compteur passe directement sur 11 et non sur 10 et cela pour tout les dizaines.

 

[Tibo]

Re : eviter certain chiffre dans un compteur

Bonjour,

Par formule, ça pourrait donner ceci :

en A1 : 1

en A2 :

=A1+1+(MOD(A1+1;10)=0)

à recopier vers le bas

Voir pour adapter en VBA 5L0, je ne sais pas faire)

@+

 

[joss56]

Re : eviter certain chiffre dans un compteur

ok, peut être en ajoutant ceci

<code>

if right(compteur,1)=9 then compteur=compteur+2

</code>

 

[joss56]

Re : eviter certain chiffre dans un compteur

oups, sans les <code> et </code>...j'ai loupé quelque chose là...!

 

[Hulk]

Re : eviter certain chiffre dans un compteur

Hello tout le monde...

Juste pour te dire Joss, faut utiliser les crochets []...[/] 😀

 

[joss56]

Re : eviter certain chiffre dans un compteur

Merci Hulk

Bonne journée.

 

[poussy67]

Re : eviter certain chiffre dans un compteur

La formule de tibo fonctionne tres bien est-il possible de la réaliser en VBA

ci joint un exemple

 

[Si...]

Re : eviter certain chiffre dans un compteur

Bonjour

à essayer

Sub Impression2()
  If MsgBox("Voulez vous imprimer", vbQuestion Or vbYesNo, Application.Name) = vbNo Then Exit Sub
  [A7] = IIf([A7] Mod 10 = 9, [A7] + 2, [A7] + 1)
End Sub