Verifier si la valeur d'un textbox est dans une plage Fermé

Question

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>




Configuration: Windows / Chrome 101.0.4951.54

ccm81 · Answer

Bonjour

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

Joeloue · Answer

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>

ccm81 · Answer

déjà celle là
celluletrouvee As Range 
celluletrouvee as Object

Joeloue · Answer

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

ccm81 · Answer

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 ?

Joeloue · Answer

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.

ccm81 · Answer

Tu n'as pas bien lu le post 1
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 !!!!

Joeloue · Answer

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

ccm81 · Answer

De rien,

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

Joeloue · Answer

merci pour ta disponibilité
j ai testé sa marche pas

ccm81 · Answer

sa marche pas
mêmes questions (voir post 5) !!!!

Joeloue · Answer

pas de résultat j ai travailler en mode pas à pas

ccm81 · Answer

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

Verifier si la valeur d'un textbox est dans une plage

13 réponses

Discussions similaires