Modifier contenu des cellules via userform

Bonjour les amis,

je cherche à corriger mon code vba pour modifier une ligne excel (B:F) & (L), (N) & (P) sachant que :

- la saisie se passe par un textbox de B8 à B57.
- les collolnnes concernées sont B,C,D,E,F,L,N & P.

J'ai un bouton modifier (qui modifie uniquement la cellule B) alors que les autres restent inchangées !!!!!!!!
y a t il un bug dans mon code de l'USERFORM4 ?????

merci

Voici mon fichier : http://cjoint.com/?0BAtd22vK2n

Citation:

Envoyé par maximob

y a t il un bug dans mon code de l'USERFORM4 ?????

changer ceci
Code:

1 2 3 4 TextBox1.Value TextBox2.Value TextBox3.Value CboMontant.Value
pour
Code:

1 2 3 4 TextBox1.text TextBox2.text TextBox3.text CboMontant.text

merci d'abord pour le temps consacré à mon poste, suite à ta proposition, le problème persiste. la cellule B seule qui change et les autres C,D,E& F non...:roll::roll:

peut tu me donner une autre solution ???

enlever ce sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub CboLigne_Change()
 Dim Cell As Range
Dim Usd As Long
 
Usd = CboLigne.Value
 
     For Each Cell In Sheets("REMISE").Range("Rang")
        If Cell.Value = Usd Then
 
            With TextBox1
                .Value = Cell.Offset(0, 1).Value
                .Enabled = True
            End With
             With ComboBox1
                .Value = Cell.Offset(0, 2).Value
                .Enabled = True
            End With
            With TextBox3
                .Value = Cell.Offset(0, 3).Value
                .Enabled = True
            End With
            With TextBox2
                .Value = Cell.Offset(0, 4).Value
                .Enabled = True
            End With
             With CboMontant
                .Value = Cell.Offset(0, 5).Value
                .Enabled = True
            End With
 
            Exit For
        End If
    Next Cell
 
 
 
        Cancel = True
End Sub

Faite plutôt ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Dim Ne_pas_CboLigne_Change As Boolean
 
Private Sub CboLigne_Change()
 Dim Cell As Range
Dim Usd As Long
 
Usd = CboLigne.Value
 
If Ne_pas_CboLigne_Change = True Then
 
     For Each Cell In Sheets("REMISE").Range("Rang")
        If Cell.Value = Usd Then
 
            With TextBox1
                .Value = Cell.Offset(0, 1).Value
                .Enabled = True
            End With
             With ComboBox1
                .Value = Cell.Offset(0, 2).Value
                .Enabled = True
            End With
            With TextBox3
                .Value = Cell.Offset(0, 3).Value
                .Enabled = True
            End With
            With TextBox2
                .Value = Cell.Offset(0, 4).Value
                .Enabled = True
            End With
             With CboMontant
                .Value = Cell.Offset(0, 5).Value
                .Enabled = True
            End With
 
            Exit For
        End If
    Next Cell
 
 
 
        Cancel = True
End If
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub CmdValider_Click()
Dim Cell As Range
Dim Usd As Long
 
Ne_pas_CboLigne_Change = False
 
Usd = CboLigne.Value
 
     For Each Cell In Sheets("REMISE").Range("Rang")
        If Cell.Value = Usd Then
                Cell.Offset(0, 1).Value = UCase(TextBox1.Value)
                Cell.Offset(0, 2).Value = ComboBox1.Value
                Cell.Offset(0, 3).Value = (TextBox2.Value)
                Cell.Offset(0, 4).Value = (TextBox3.Value)
                Cell.Offset(0, 5).Value = CboMontant.Value
            Exit For
        End If
    Next Cell
 
 
 
 
    Unload Me
 
    MsgBox "Modification(s) effectuée(s) au rang n°" & CboLigne.Value, vbInformation, "Modification rang n°" & CboLigne.Value
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
 
Ne_pas_CboLigne_Change = True
 
CboLigne.RowSource = ("REMISE!Rang")
 
ComboBox1.RowSource = ("REMISE!Banque")
 
CboMontant.RowSource = ("REMISE!MONTANT")
 
 
 
End Sub

impeccable, introuvable, et ça se voit. merci :):):)