and avec textbox

[Audrey]

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]

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 :

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]

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]

Excusez moi

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

 

[Hervé]

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]

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.

@+