Code vba de compteur
Bonjour,
svp j'ai besoin du code vba d'un compteur
en fait le compteur doit s'initialiser une fois pour toute (lors de la 1ère exécution du code et ne pas à chaque utilisation)
et c'est ce détail dont j'en ai besoin surtout, pour le reste je pense que c'est faisable(le compteur s'incrémente à chaque entrée textbox )
le but de l'initialisation du compteur une fois pour toute c'est de ne pas répéter un meme chiffre 2 fois.
Merci de m'aider au plutot possible
Nice dayyyyyyyyyyyyyy
svp j'ai besoin du code vba d'un compteur
en fait le compteur doit s'initialiser une fois pour toute (lors de la 1ère exécution du code et ne pas à chaque utilisation)
et c'est ce détail dont j'en ai besoin surtout, pour le reste je pense que c'est faisable(le compteur s'incrémente à chaque entrée textbox )
le but de l'initialisation du compteur une fois pour toute c'est de ne pas répéter un meme chiffre 2 fois.
Merci de m'aider au plutot possible
Nice dayyyyyyyyyyyyyy
2 réponses
-
Bonjour,
Je ne connais pas tout le contexte,
mais il y a 2 types de déclaration de variables sous VBA
et particulièrement pour les compteurs.
Au lieu de :
Dim Compteur as Long
essayer :
Static Compteur As long
Celui-ci n'a qu'a être initialiser une seule fois.
Cdt
Lupin -
Ca yé j'ai régler le probleme, en fait j'ai stocké la valeur du compteur dans une cellule dans une feuil excel;
Maintenant j'ai un autre problème c'est de vérifier si le compteur entré est déja stocké dans une colonne
si il existe on doit sortir de l'userForm
s'il n'existe pas on exécute l'entrée des informations(à travers text box vers excel)
j'ai essayé le code suivant
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'textbox3 recoit la valeur entré du compteur
Dim j As Integer
If KeyCode = 13 And TextBox3.Value <> "" Then
'(ENTER)et matricule et référence et compteur non vide
For j = 2 To Sheets("Feuil1").Range("G65536").End(xlUp).Row ' j permet de balayer tte la liste des compteurs entrées dans la feuil1 et vérifier la non répétition
If TextBox3.Text = Sheets("Feuil1").Cells(j, 7).Value Then
Cancel = 1 ' sortir de l'userform en cours si le compteur entré existe déja
Else
stocker les valeurs
End If
Next j
End If
End Sub
Maintenant quand j'exécute ceci ça ne marche plus, je ne peux ni entrer les informations ni de sortir de l'UserForm; je sais pas ou est le problème!!!!!!!!!!!!!!!
Merci de réfléchir au problème et de me proposer des idées
