En VBA pour Excel, probléme de modification de données [Résolu]

Signaler
Messages postés
56
Date d'inscription
samedi 24 mai 2008
Statut
Membre
Dernière intervention
6 novembre 2010
-
Messages postés
56
Date d'inscription
samedi 24 mai 2008
Statut
Membre
Dernière intervention
6 novembre 2010
-
Bonjour,

J'ai réalisé l'essai suivant (voir fichier). Les explications sont dans l'userform.

Ce qui ne fonctionne pas c'est quand je veux modifier plus d'une donnes de la ligne sélectionnée, et je ne comprends pas pourquoi.

Est-ce que quelqu'un peut m'aider ?

Cordialement

5 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
76
Pas trouvé d'explication
Pas trouvé de question plausible
"quand je veux modifier plus d'une donnes de la ligne sélectionnée" : Quelle ligne ? avec quel code ? on ne va pas éplucher tout le code pour trouver le grain de sable. On ne sait même pas de quoi est composé ton projet, ce qu'il fait, que tu fais, tu parles de données mais on ne sait pas où elles se trouvent.
Cerise sur le gâteau, ton problème concerne VBA et tu postes dans la catégorie .Net

Que veux-tu qu'on te réponde

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
56
Date d'inscription
samedi 24 mai 2008
Statut
Membre
Dernière intervention
6 novembre 2010

comment intégrer mon fichier, je ne trouve pas ?
Messages postés
17
Date d'inscription
samedi 9 mai 2009
Statut
Membre
Dernière intervention
26 mai 2009

Je sais pas si on peut mais mes nous simplement les codes
Messages postés
56
Date d'inscription
samedi 24 mai 2008
Statut
Membre
Dernière intervention
6 novembre 2010

re bonjour,

Voir la sub modif :

Private Sub CommandButton1_Click()
Load UserForm2
UserForm2.Show
End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub ListBox1_Click()
Dim NuméroLigne As Integer

NuméroLigne = ListBox1.Value
NuméroLigne = NuméroLigne + 1

TextBox1.Value = Cells(NuméroLigne, 2)
TextBox2.Value = Cells(NuméroLigne, 3)
TextBox3.Value = Cells(NuméroLigne, 1)
ComboBox1.Value = Cells(NuméroLigne, 4)

End Sub

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

Private Sub OptionButton1_Click()

Range("A1").Activate
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
ComboBox1 = ""

ListBox1.Visible = False

End Sub

Private Sub OptionButton2_Click()
Dim dercell As String

Range("A1").Activate

TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
ComboBox1 = ""

ListBox1.Visible = True
'sélection de la zone de la liste box
dercell = Range("a1").End(xlDown).Row
ListBox1.RowSource = "A1:d" & dercell

End Sub

Private Sub OptionButton3_Click()
Dim DerVerbe As String

If OptionButton3 = True Then
Worksheets("Feuil2").Select
DerVerbe = Range("A1").End(xlDown).Address
ComboBox1.RowSource = "A1:" & DerVerbe
Worksheets("Feuil1").Select

End If
End Sub

Private Sub OptionButton4_Click()
Dim DerVerbe As String

If OptionButton4 = True Then
Worksheets("Feuil2").Select
DerVerbe = Range("B1").End(xlDown).Address
ComboBox1.RowSource = "B1:" & DerVerbe
Worksheets("feuil1").Select

End If
End Sub

Private Sub UserForm_Initialize()

'bouton validation
OptionButton1 = True
'bouton 1ère liste verbe
OptionButton3 = False
'bouton 2ème liste verbe
OptionButton4 = False

NuméroLigne = ListBox1.Value
NuméroLigne = NuméroLigne + 1

End Sub

Private Sub valid_Click()
Dim DerligSaisie As String

If OptionButton1 = True Then

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

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
ComboBox1.Value = ""

End If

End Sub

D'vance merci

Hidozo
Messages postés
56
Date d'inscription
samedi 24 mai 2008
Statut
Membre
Dernière intervention
6 novembre 2010

désolé !!!!

Merci quand même

hidozo