Bonjour à toutes et tous,
Je fais appel à vous pour 2 pbs :
le 1er : je ne parviens pas à alimenter les combobox contenues sur un formulaire et je ne comprends pas pourquoi
le 2nd : je cherche à concaténer des conditions afin de vérifier si des listes au contenu identique existe dans une feuille afin de prévenir la saisie de doublon qui doit être rendue impossible (Mais il y a peut être plus simple.
Merci beaucoup pour votre aide
Voici les codes
Codes Combobox
Code Conditions éviter doublons
[/Code]
Private Sub ValiderSaisie_Click()
'Ce code ne fonctionne pas :
'num = Sheets("Détail").Range("A65536").End(xlUp).Row + 1
Sheets("Base").Activate
L = Application.VLookup(ComboBox1, Range(Cells(1, 1), Cells(num - 1, 1)), 1, False) _
& Application.VLookup(TextBox5, Range(Cells(1, 3), Cells(num - 1, 3)), 1, False) _
& Application.VLookup(ComboBox4, Range(Cells(1, 4), Cells(num - 1, 4)), 1, False) _
& Application.VLookup(ComboBox5, Range(Cells(1, 5), Cells(num - 1, 5)), 1, False) _
& Application.VLookup(TextBox6, Range(Cells(1, 6), Cells(num - 1, 6)), 1, False)
If IsError(L) Then
'MsgBox "vide"
Range("A" & num).Value = ComboBox1.Value 'Nom
Range("B" & num).Value = TextBox4.Value 'Ville
Range("C" & num).Value = TextBox5.Value 'Permis
Range("D" & num).Value = ComboBox4.Value 'N° sesion
Range("E" & num).Value = ComboBox3.Value 'N° unité
Range("F" & num).Value = TextBox6.Value 'Référence
Unload UserForm2
Else
MsgBox "Impossible d'enregistrer les données identiques existent déjà dans la feuille détail"
End If
End Sub
[/code]
Je fais appel à vous pour 2 pbs :
le 1er : je ne parviens pas à alimenter les combobox contenues sur un formulaire et je ne comprends pas pourquoi
le 2nd : je cherche à concaténer des conditions afin de vérifier si des listes au contenu identique existe dans une feuille afin de prévenir la saisie de doublon qui doit être rendue impossible (Mais il y a peut être plus simple.
Merci beaucoup pour votre aide
Voici les codes
Codes Combobox
Code:
Private Sub UserForm2_show()
Dim J As Long
With Sheets("Base")
For J = 2 To .Range("A" & .Rows.Count).End(xlUp).Row ' => pour lister les code de commande
ComboBox1.AddItem .Cells(J, "A") 'Ajoute les valeurs des cellules
Next J
End With
With Me.ComboBox4
cboComboBox.AddItem "1"
cboComboBox.AddItem "2"
cboComboBox.AddItem "3"
cboComboBox.AddItem "4"
cboComboBox.AddItem "5"
End With
End Sub
Code Conditions éviter doublons
[/Code]
Private Sub ValiderSaisie_Click()
'Ce code ne fonctionne pas :
'num = Sheets("Détail").Range("A65536").End(xlUp).Row + 1
Sheets("Base").Activate
L = Application.VLookup(ComboBox1, Range(Cells(1, 1), Cells(num - 1, 1)), 1, False) _
& Application.VLookup(TextBox5, Range(Cells(1, 3), Cells(num - 1, 3)), 1, False) _
& Application.VLookup(ComboBox4, Range(Cells(1, 4), Cells(num - 1, 4)), 1, False) _
& Application.VLookup(ComboBox5, Range(Cells(1, 5), Cells(num - 1, 5)), 1, False) _
& Application.VLookup(TextBox6, Range(Cells(1, 6), Cells(num - 1, 6)), 1, False)
If IsError(L) Then
'MsgBox "vide"
Range("A" & num).Value = ComboBox1.Value 'Nom
Range("B" & num).Value = TextBox4.Value 'Ville
Range("C" & num).Value = TextBox5.Value 'Permis
Range("D" & num).Value = ComboBox4.Value 'N° sesion
Range("E" & num).Value = ComboBox3.Value 'N° unité
Range("F" & num).Value = TextBox6.Value 'Référence
Unload UserForm2
Else
MsgBox "Impossible d'enregistrer les données identiques existent déjà dans la feuille détail"
End If
End Sub
[/code]