and avec textbox

Audrey · 20 Janvier 2006

Bonjour le forum,

Voulà, j'ai glanné le code suivant:

Private Sub CommandButton1_Click()
Dim zonecontrol As Range
Dim cellule As Range
Set zonecontrol = Sheets('Recap').Range('a2:a65000')

For Each cellule In zonecontrol
If cellule = TextBox1 Then
MsgBox 'facture deja enregistrée, veuillez vérifier vos saisies', vbCritical, 'erreur'

On Error GoTo 0
Exit Sub
End If
Next

Mais dans mon appli, j'ai un userform avec plusieurs textbox et je voudrais que lorsque je click sur des boutons de mon userform, les informations contenues soient vérifiées. Si elles n'apparaissent nul part dans ma feuille elles seront inscrites dans un tableau et si elles existent déjà TOUTES je voudrais qu'il ne se passe rien.

Mais le code ci dessus, une seule textbox est vérifiée et j'ai essayé avec AND mais ça n'a pas fonctionné comment puis-je faire??

porcinet82 · 20 Janvier 2006

Salut Audrey,

Le problème avec les textbox, c'est que l'on ne peut pas boucler dessus (enfin, je n'ai pas trouver comment faire jusqu'ici). Donc a part vérifier un à un tout tes textbox, je ne vois pas. Ce qui donnerai comme tu t'en doute un code comme celui-la :

Code:

Private Sub CommandButton1_Click()
Dim zonecontrol As Range
Dim cellule As Range
Set zonecontrol = Sheets('Recap').Range('a2:a65000')

For Each cellule In zonecontrol
If cellule = TextBox1 Then
MsgBox 'facture deja enregistrée, veuillez vérifier vos saisies', vbCritical, 'erreur'

On Error GoTo 0
Exit Sub
End If

If cellule = TextBox2 Then
MsgBox 'facture deja enregistrée, veuillez vérifier vos saisies', vbCritical, 'erreur'

On Error GoTo 0
Exit Sub
End If
Next cellule
end sub

Si quelqu'un sait trouve une autre solution, je suis également preneur.

@+

Audrey · 20 Janvier 2006

bonjour porcinet,

En fait, une textbox correspond à une colonne donc je voudrais que sur chaque ligne, chaque colonne soit comparer à une textbox.

colonneA = textbox1
colonneB = textbox2 ....

Avec ton code, il n'y a que la colonne A qui soit comparer à toutes les textbox.

Audrey · 20 Janvier 2006

Excusez moi

je laisse les courageux essayer j'ai une urgence j'essaierai de revenir demain sinon à lundi

Hervé · 20 Janvier 2006

bonjour audrey, re porcinet 🙂

pour boucler sur des textbox, on peut imaginer ce type de syntaxe :

Private Sub CommandButton1_Click()
Dim i As Byte
Dim j As Integer

For i = 1 To 10
For j = 1 To Cells(65536, i).End(xlUp).Row
If Controls('textbox' & i) = Cells(j, i) Then
MsgBox 'facture deja enregistrée, veuillez vérifier vos saisies', vbCritical, 'erreur'
Controls('textbox' & i).SetFocus
Exit Sub
End If
Next j
Next i

End Sub

salut

porcinet82 · 20 Janvier 2006

Et bien que dire Hervé, mis à part chapeau bas 😉.
Je te remercie pour ce code que je garde tres précieusement car il risque de m'etre utile dans un petit moment.

@+

and avec textbox

Audrey

Guest

porcinet82

XLDnaute Barbatruc

Audrey

Guest

Audrey

Guest

Hervé

XLDnaute Barbatruc

porcinet82

XLDnaute Barbatruc

Discussions similaires

and avec textbox

Audrey

Guest

porcinet82

XLDnaute Barbatruc

Audrey

Guest

Audrey

Guest

Hervé

XLDnaute Barbatruc

porcinet82

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency