Bonjour le forum,
Grace à ce forum, mon projet à bien avancé, Soyez en tous remercié.
J’ai néanmoins un code VBA à modifier et je ne sais pas comment faire.
Le voici :
'bouton "AJOUTER"
Private Sub CommandButton2_Click()
'déclaration des variables
Dim lign As Integer
'Si un champ obligatoire est vide alors envoie message
If TextBox1 = "" Or ComboBox1 = "" Or ComboBox2 = "" Or TextBox2 = "" Then
MsgBox ("les champs : N°Analyseur, Type, Technicien et Client sont obligatoires!")
Exit Sub
End If
'sélectionne la première ligne vide feuille "Donnée" et remplit les cellules 1 a 17
With Sheets("Donnée")
lign = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Cells(lign, 1) = ComboBox2
.Cells(lign, 2) = TextBox1
.Cells(lign, 3) = ComboBox1
ETC…
Quand je clique sur le bouton « ajouter » je rempli ma feuille « Donnée » avec les valeurs des textbox et combobox de mon formulaire.
J’aimerais vérifier que cet automate n’existe pas avant d’enregistrer cette nouvelle fiche soit vérifier que les valeurs des textbox1 ET combobox 1 n’existe pas déjà dans la feuille ‘Donnée’ sinon je renvoi un Msgbox « cet automate existe déjà, sélectionner le bouton modifier »
Remarque : textbox1= N° d’automate et Combobox1=type d’automate.
Il est indispensable que je vérifie ses 2 conditions pour autoriser l’ajout de cette nouvelle fiche car il se peut que dans la feuille Donnée il y est plusieur fois le même n° d’automate mais avec un type d’automate différant.
Ex : N° 1010 type A et n°1010 typeB
Merci de votre aide
Grace à ce forum, mon projet à bien avancé, Soyez en tous remercié.
J’ai néanmoins un code VBA à modifier et je ne sais pas comment faire.
Le voici :
'bouton "AJOUTER"
Private Sub CommandButton2_Click()
'déclaration des variables
Dim lign As Integer
'Si un champ obligatoire est vide alors envoie message
If TextBox1 = "" Or ComboBox1 = "" Or ComboBox2 = "" Or TextBox2 = "" Then
MsgBox ("les champs : N°Analyseur, Type, Technicien et Client sont obligatoires!")
Exit Sub
End If
'sélectionne la première ligne vide feuille "Donnée" et remplit les cellules 1 a 17
With Sheets("Donnée")
lign = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Cells(lign, 1) = ComboBox2
.Cells(lign, 2) = TextBox1
.Cells(lign, 3) = ComboBox1
ETC…
Quand je clique sur le bouton « ajouter » je rempli ma feuille « Donnée » avec les valeurs des textbox et combobox de mon formulaire.
J’aimerais vérifier que cet automate n’existe pas avant d’enregistrer cette nouvelle fiche soit vérifier que les valeurs des textbox1 ET combobox 1 n’existe pas déjà dans la feuille ‘Donnée’ sinon je renvoi un Msgbox « cet automate existe déjà, sélectionner le bouton modifier »
Remarque : textbox1= N° d’automate et Combobox1=type d’automate.
Il est indispensable que je vérifie ses 2 conditions pour autoriser l’ajout de cette nouvelle fiche car il se peut que dans la feuille Donnée il y est plusieur fois le même n° d’automate mais avec un type d’automate différant.
Ex : N° 1010 type A et n°1010 typeB
Merci de votre aide