J'aimerais savoir comment je peux faire pour entrer un msg d'erreur dans mon userform. Ce que je veux c'est que si dans la cell I2 il est écrit aucune pièce trouvée, le bouton entrer ne fonctionne pas et un msg apparait. Est ce possible qu'à chaque fois la case se vide?? si oui comment vous faîtes?.
De plus je voudrais être capable de m'assurer que dans la case no de dessin de mon userform, qu'il y ait toujours 4 digit dans la case. Sinon il y a un message qui apparait.
Re : Améliorer mon userform2 (entre un no de dessin)
Bonjour Cydor007,
Tu peux modifier ton code comme suit :
Code:
Private Sub CommandButton1_Click()
If Not Len(TextBoxNumero) = 4 Then
MsgBox "Le numéro doit comporter 4 chiffres !" & vbCrLf & "Veuillez recommencer", vbOKOnly + vbExclamation, "NUMERO NON VALIDE"
Exit Sub
End If
Sheets("Transfert de données (log)").Range("I3").Value = TextBoxNumero
UserForm2.Hide
End Sub
et
Code:
Sub Bouton10663_Clic()
If Sheets("Formulaire moule O-1").Range("I2") = "aucune pièce trouvée" Then
UserForm2.Show
Else
MsgBox "Pièce existante, création impossible !", vbOKOnly + vbExclamation, "CRÉATION IMPOSSIBLE"
End If
End Sub
Il existe une autre possibilité, c'est de rendre le bouton "Créer votre nouvelle pièce" actif ou inactif selon le contenu de [I2]. Mais pour cela, il faut créer un bouton de commande depuis la barre d'outils 'Contrôles' au lieu de 'Formulaires'. D'ailleurs, je te conseille d'utiliser cette barre d'outils 'Contrôles', car l'utilisation de ses objets est beaucoup plus puissante que les outils formulaires, qui sont d'une génération plus ancienne.
Si cette solution te tente, fais-moi signe, je te joindrai un fichier exemple.
Private Sub CommandButton1_Click()
If Not Len(TextBoxNumero) = 4 Then
MsgBox "Le numéro doit comporter 4 chiffres !" & vbCrLf & "Veuillez recommencer", vbOKOnly + vbExclamation, "NUMERO NON VALIDE"
Exit Sub
End If
Sheets("Transfert de données (log)").Range("I3").Value = TextBoxNumero
UserForm2.Hide
End Sub
et
Code:
Sub Bouton10663_Clic()
If Sheets("Formulaire moule O-1").Range("I2") = "aucune pièce trouvée" Then
UserForm2.Show
Else
MsgBox "Pièce existante, création impossible !", vbOKOnly + vbExclamation, "CRÉATION IMPOSSIBLE"
End If
End Sub
Il existe une autre possibilité, c'est de rendre le bouton "Créer votre nouvelle pièce" actif ou inactif selon le contenu de [I2]. Mais pour cela, il faut créer un bouton de commande depuis la barre d'outils 'Contrôles' au lieu de 'Formulaires'. D'ailleurs, je te conseille d'utiliser cette barre d'outils 'Contrôles', car l'utilisation de ses objets est beaucoup plus puissante que les outils formulaires, qui sont d'une génération plus ancienne.
Si cette solution te tente, fais-moi signe, je te joindrai un fichier exemple.