Sauvegarde userform dans tableau VBA

[vinc24]

Bonjour,

Je bloque sur une macro en ce moment. Je n'arrive pas a obtenir ce que je veux.
J'ai une combobox qui vas chercher des valeurs dans un tableau, et si la valeur existe elle est sauvegarder dans le tableau, si elle ne l'est pas, elle est sauvegarder en dessous du tableau.Sauf que ma macro, fait les deux, elle enregistre dans et tableau et en dessous.

Merci d'avance

Vincent

 

[kjin]

Re : Sauvegarde userform dans tableau VBA

Bonjour,
D'abord faire un tour ICI
Ensuite préciser ce que tu souhaites faire
A+
kjin

 

[vinc24]

Re : Sauvegarde userform dans tableau VBA

Je souhaite ajouter(en bas de tableau) ou modifier des informations(dans le tableau)
Ceci dépend de la condition :

If Cells(Lg4, "A") Like ComboBox_Nom And Cells(Lg4, "B") = ComboBox_Prenom Then

Mais je n'arrive pas a utiliser correctement les conditions pour que l'un se fasse et pas l'autre, et inversement.
Le code qui pose problème :

Sub save()
Dim Lg4 As Long
Dim Lg5 As Long
Worksheets("GYM 2012").Select
For Lg4 = 2 To Range("A65536").End(xlUp).Row
        If Cells(Lg4, "A") Like ComboBox_Nom And Cells(Lg4, "B") = ComboBox_Prenom Then
        'enregsitre si déja existant dans tableau : pour modification
        Cells(Lg4, "C") = TextBox1
End If
Next Lg4

      If Cells(Lg4, "A") Like ComboBox_Nom And Cells(Lg4, "B") = ComboBox_Prenom Then
      'rien
      Else
        'chercher derniere ligne tableau
    Lg5 = Range("A65536").End(xlUp).Offset(1, 0).Row
        Cells(Lg5, "A") = ComboBox_Nom
        Cells(Lg5, "B") = ComboBox_Prenom
        Cells(Lg5, "C") = TextBox1
End Sub

Vincent