A voir également:
- Compteur vba
- Compteur de contractions - Télécharger - Santé & Bien-être
- Comment ralentir un compteur linky - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
2 réponses
Utilisateur anonyme
15 avril 2011 à 15:35
15 avril 2011 à 15:35
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