Rectification code

Bonjour le forum

dans ma feuille "BD" j'ai un tableau, je souhaite le modifier à travers un userform avec des testbox et combobox ; j'ai crée un bouton "MODIFIER " auquel j'ai affecté le code suivant

Private Sub modifier_Click()

Dim Ctrl As Control
Dim Colonne As Integer
Dim ligne As Long

If Me.ComboBox1.ListIndex = -1 Then Exit Sub
ligne = Me.ComboBox1.ListIndex + 2
With Sheets("BD")

.Range("F" & ligne).Value = ComboBox1
.Range("C" & ligne).Value = ComboBox2
.Range("D" & ligne).Value = ComboBox3
.Range("E" & ligne).Value = ComboBox4
.Range("A" & ligne).Value = ComboBox6
.Range("B" & ligne).Value = TextBox1.Value
.Range("H" & ligne).Value = TextBox2.Value
.Range("I" & ligne).Value = TextBox3.Value
.Range("J" & ligne).Value = TextBox4.Value
.Range("K" & ligne).Value = TextBox5.Value
.Range("L" & ligne).Value = TextBox6.Value

End With

mais rien ne change , est ce que vous trouver un problème avec ce code ?

Bonjour,

la solution la plus probable serait que cette condition soit vraie :

Me.ComboBox1.ListIndex = -1

et exécute "exit sub " donc.

Pour vérifier utilise le "pas à pas" en appuyant sur F8 tu sauras si exit sub s’exécute ou non.

Cordialement

merci pour votre réponse rapide

quand j'appuie sur F8 ça me revoie directement vers le code d'initialisation de mon userform, il y a peut être un problème avec ce code

Private Sub UserForm_Initialize()
UserForm11.ComboBox1.Value = Worksheets("BD").Cells(UserForm2.ListBox1.ListIndex + 2, "F")
Sheets("bd").Activate
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 2
    ComboBox1.Value = Cells(no_ligne, 6).Value
    ComboBox2.Value = Cells(no_ligne, 3).Value
    ComboBox3.Value = Cells(no_ligne, 4).Value
    ComboBox4.Value = Cells(no_ligne, 5).Value
    'ComboBox5.Value = Cells(no_ligne, 6).Value
    ComboBox6.Value = Cells(no_ligne, 1).Value
    TextBox1.Value = Cells(no_ligne, 2).Value
    TextBox2.Value = Cells(no_ligne, 8).Value
    TextBox3.Value = Cells(no_ligne, 9).Value
    TextBox4.Value = Cells(no_ligne, 10).Value
    TextBox5.Value = Cells(no_ligne, 11).Value
    TextBox6.Value = Cells(no_ligne, 12).Value
    Cells(no_ligne, 1).Select
    ActiveCell.EntireRow.Select
End Sub

Le plus simple serait que tu envoies ton fichier, si possible ?

merci de de trouver çi joint mon fichier

7test.xlsm (88.56 Ko)

Je regarde ça cette aprem, désole je suis court en temps là, désolé.

Je pense que le problème vient de la procédure combobox1_change qui selon moi n'a pas raison d'exister.

Donc à vérifier si sans le résultat te conviendrait.

Cordialement.

c'est vrai, maintenant le bouton modifier fonctionne parfaitement .merci.

une autre question svp, pour ma liste box je souhaite créer un autre bouton ''Pointé", en cliquant sur le bouton, pour chaque ligne sélectionnée de la listbox (car j'ai besoin de pointer des multiselections )le mot pointé s'écrit dans la colonne F de ma listbox et donc de ma base de données, est ce que vous pouvez me donner le chemin à suivre pour que je ne prend pas une piste sans issu.Merci

Le mieux serait de créer un autre sujet (1 problème = 1 sujet). Pour que quelqu'un avec un problème similaire puissent trouver ce sujet.

vous avez raison, je crée donc tout de suite un nouveau sujet, j’espère que vous me donneriez un coup de main

Rechercher des sujets similaires à "rectification code"