A voir également:
- Compteur vba
- Compteur électrique - Guide
- Compteur contractions - Télécharger - Santé & Bien-être
- Comment ralentir un compteur linky forum - Accueil - Objets connectés
- Excel compter cellule couleur sans vba - Guide
- Compteur point fléchette excel - Télécharger - Sport
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
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
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