Verifier si la valeur d'un textbox est dans une plage
Joeloue
Messages postés
27
Date d'inscription
Statut
Membre
Dernière intervention
-
Joeloue -
Joeloue -
Bonjour,
je voudrais Vérifier qu' un textbox existe dans une plage de données si oui écrire la valeur du textbox2, dans la colonne correspondante.
<Private Sub CommandButton2_Click()
With Sheets(ComboBox1.Text) 'choisir la feuille sur laquelle la modification doit s effectuée
.Visible = True
.Activate
' la verification de la date doit s effectuer sur la plage ( j2:AN2)
activesheets.Range ("j2:AN2").Select = TextBox1.Value
If Not Is Nothing Then
MsgBox "la date existe"
Else
MsgBox "la date n'existe pas ressaisir svp"
End If
End With
'si la date est la meme mettre le textbo2 sur la ligne en dessous vide
End Sub>
je voudrais Vérifier qu' un textbox existe dans une plage de données si oui écrire la valeur du textbox2, dans la colonne correspondante.
<Private Sub CommandButton2_Click()
With Sheets(ComboBox1.Text) 'choisir la feuille sur laquelle la modification doit s effectuée
.Visible = True
.Activate
' la verification de la date doit s effectuer sur la plage ( j2:AN2)
activesheets.Range ("j2:AN2").Select = TextBox1.Value
If Not Is Nothing Then
MsgBox "la date existe"
Else
MsgBox "la date n'existe pas ressaisir svp"
End If
End With
'si la date est la meme mettre le textbo2 sur la ligne en dessous vide
End Sub>
Configuration: Windows / Chrome 101.0.4951.54
A voir également:
- Verifier si la valeur d'un textbox est dans une plage
- Verifier compatibilite windows 11 - Guide
- Verifier un lien - Guide
- Vérifier si mot de passe piraté - Guide
- Image de manchots sur une image de plage. - Forum Graphisme
- Formule excel si contient texte alors valeur ✓ - Forum Excel
13 réponses
Bonjour
Il te faut passer par Find
Cdlmnt
Il te faut passer par Find
d = TextBox1.Text
Set obj = ActiveSheet.Range("J2:AN2").Find(d)
If Not obj Is Nothing Then
....'trouvé
Else
....'pas trouvé
End If
Cdlmnt
bonjour ccm81 voila mo code test il fonctionne pas 
<Private Sub CommandButton2_Click()
Dim Plage As Range, celluletrouvee As Range
Dim VarDate As Date
With Sheets(ComboBox1.Text)
.Visible = True
.Activate
VarDate = CDate(TextBox1)
Set celluletrouvee = Sheets(ComboBox1.Text).Range("j2:AN2").Find(VarDate)
If celluletrouvee Is Nothing Then
MsgBox "la date existe"
Else
MsgBox "la date n'existe pas resaissir svp"
End If
End With
Exit Sub
End Sub>
<Private Sub CommandButton2_Click()
Dim Plage As Range, celluletrouvee As Range
Dim VarDate As Date
With Sheets(ComboBox1.Text)
.Visible = True
.Activate
VarDate = CDate(TextBox1)
Set celluletrouvee = Sheets(ComboBox1.Text).Range("j2:AN2").Find(VarDate)
If celluletrouvee Is Nothing Then
MsgBox "la date existe"
Else
MsgBox "la date n'existe pas resaissir svp"
End If
End With
Exit Sub
End Sub>
ca fonctionne pas
Dim celluletrouvee As Object
Dim VarDate As Date
With Sheets(ComboBox1.Text)
.Visible = True
.Activate
VarDate = CDate(TextBox1)
Set celluletrouvee = Sheets(ComboBox1.Text).Range("j2:AN2").Find(VarDate)
If celluletrouvee Is Nothing Then
MsgBox "la date existe"
Else
MsgBox "la date n'existe pas resaissir svp"
End If
End With
Exit Sub
End Sub
Dim celluletrouvee As Object
Dim VarDate As Date
With Sheets(ComboBox1.Text)
.Visible = True
.Activate
VarDate = CDate(TextBox1)
Set celluletrouvee = Sheets(ComboBox1.Text).Range("j2:AN2").Find(VarDate)
If celluletrouvee Is Nothing Then
MsgBox "la date existe"
Else
MsgBox "la date n'existe pas resaissir svp"
End If
End With
Exit Sub
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ca fonctionne pas
qu'est ce qui ne fonctionne pas : message d'erreur, pas le résultat attendu, ... ?
As tu utilisé le mode pas à pas et vérifié l'état des variables ?
qu'est ce qui ne fonctionne pas : message d'erreur, pas le résultat attendu, ... ?
As tu utilisé le mode pas à pas et vérifié l'état des variables ?
le message s affiche date existante quelque soit la date entrée "j2:an2" tout le mois de mai 2022 textbox1="01/04/2022" msgbox affiche date existante.
Tu n'as pas bien lu le post 1
tu as écrit (ton code past 4) si la date n'existe pas (nothing) alors la date existe !!!!
If celluletrouvee Is Nothing Then MsgBox "la date existe" Else MsgBox "la date n'existe pas resaissir svp" End If
tu as écrit (ton code past 4) si la date n'existe pas (nothing) alors la date existe !!!!
OUI j'ai changé et l erreur était le format date sa marche
deuxième volet de mon code
'si la date est la meme mettre le textbox2 sur la ligne en dessous vide
mes dates sont répertorier de "j2:AN2" si j ai une date correspondante en k2 écrire le textebox2 sur la meme colonne non vide
une idée
deuxième volet de mon code
'si la date est la meme mettre le textbox2 sur la ligne en dessous vide
mes dates sont répertorier de "j2:AN2" si j ai une date correspondante en k2 écrire le textebox2 sur la meme colonne non vide
une idée
De rien,
ceci devrait fonctionner
sinon
celluletrouvee.Address te renvoie l'adresse de celluletrouvee
celluletrouvee.row te envoie sa ligne
celluletrouvee.column te renvoie sa colonne
Cdlmnt
ceci devrait fonctionner
If Not celluletrouvee Is Nothing Then MsgBox "la date existe" celluletrouvee.offset(1,0).Value = TextBox2.Text Else MsgBox "la date n'existe pas resaissir svp" End If
sinon
celluletrouvee.Address te renvoie l'adresse de celluletrouvee
celluletrouvee.row te envoie sa ligne
celluletrouvee.column te renvoie sa colonne
Cdlmnt
pas de résultat j ai travailler en mode pas à pas
Et ??
Un exemple sur le même principe à adapter
https://www.cjoint.com/c/LErscu2wjpB
Cdlmnt
Et ??
Un exemple sur le même principe à adapter
https://www.cjoint.com/c/LErscu2wjpB
Cdlmnt
