modification de données saisies par textbox ou combobox dans Excel

Question

Bonjour, En VBA : J'ai une userform avec des textbox et combobox qui me permettent de basculer dans Excel sur la 1ère ligne libre les données saisies dans mon formulaire. En choisissant l'option modification des données (via un optionbutton), j'affiche une liste box qui me permet de visualiser mes données qui se trouvent dans Excel. je clique sur une ligne et les donnée s'affichnt aors dans les textbox et combobox qui ont servies précédemment pour la saisie. Cela me permet d corriger une donnée qui ne sera pas correcte. En cliquant sur un bouton, je peux ainsi modifier la données dans ligne d'Excel. Cela fonctionne pur une modification. Si je veux modifier plus d'une données (c'est-à-dire à partir 2, 3... textbox ou combobox), le basculement dans excel ne se fait que pour la 1ère ligne de code ex : Private Sub modif_Click() Dim NuméroLigne As Integer 'Bouton modification If OptionButton2 = False Then Exit Sub NuméroLigne = ListBox1.Value NuméroLigne = NuméroLigne + 1 If TextBox3.Value <> Cells(NuméroLigne, 1) Then Cells(NuméroLigne, 1) = Me.TextBox3 If TextBox1.Value <> Cells(NuméroLigne, 2) Then Cells(NuméroLigne, 2) = Me.TextBox1 If TextBox2.Value <> Cells(NuméroLigne, 3) Then Cells(NuméroLigne, 3) = Me.TextBox2 If ComboBox1.Value <> Cells(NuméroLigne, 4) Then Cells(NuméroLigne, 4) = Me.ComboBox1 End Sub Dans cet exemple si je modifie une des textbox ou de la combobx, cela fonctionne, par contre si je veux modifier la textbox 3 et la textbox1 et bien seule la données de la texbox3 sera copier dans Excel. Est-ce que quelqu'un pourrait m'aider ? J'ai le fichier complet si nécessaire, mais je ne sais pas comment le joindre à ce poste. d'avance merci hidozo

Mayzz · Answer

Salut,

Ton code fonctionne chez moi, mais sans le "Me" il n'est pas admis par mon formulaire,
If TextBox3.Value <> Cells(NuméroLigne, 1) Then Cells(NuméroLigne, 1) =  TextBox3

Tu dois bien avoir une erreur quelque part, essaye de mettre des points d'arret sur chaque lignes.

@+ Mayzz

hidozo · Answer

bonjour,

Je viens d'essayer en enlevant les "Me", mais le basculement des données ne se fait que pour la textbox3 et pas pour les autres quand je fais plusieurs modifications.

Comment mettre des points d'arrêt ?

Cordialement

Hidozo

hidozo · Answer

re,

j'ai mis les points d'arrêt : la sub passe bien de chaque ligne en chaque ligne : tjrs rien !!

j'ai supprimé les conditions en ne gardant qur :
Cells(NuméroLigne, 1) = TextBox3

Cells(NuméroLigne, 2) = TextBox1

Cells(NuméroLigne, 3) = TextBox2

Cells(NuméroLigne, 4) = ComboBox1

rien, tjrs rien, je ne peux pas changer plus d'une données

rien non plus en rajoutant les "Me""

Décidément, tout cela me dépasse !!! lol

hidozo

hidozo · Answer

re bonjour,

j'ai essayé la solution suivante, mais le .apply me dit erreur

Private Sub modif_Click()
Dim NuméroLigne As Integer
Dim DerligSaisie As String

'Bouton modification
If OptionButton2 = False Then Exit Sub

NuméroLigne = ListBox1.Value

Worksheets("Feuil1").Select
DerligSaisie = [a65000].End(xlUp).Row + 1

Cells(DerligSaisie, 1) = Me.TextBox3
Cells(DerligSaisie, 2) = Me.TextBox1
Cells(DerligSaisie, 3) = Me.TextBox2
Cells(DerligSaisie, 4) = Me.ComboBox1

Rows(NuméroLigne).Delete

Columns("a:d").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("a:d") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("a:d")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        
    End With
    ActiveWindow.SmallScroll down:=-1

End Sub

Modification de données saisies par textbox ou combobox dans Excel

4 réponses

Votre réponse

Discussions similaires