Discussion :

[presser]

j' ai un userform qui apres validation marche,mais si je décide de modifier une colonne du produit café la seconde prend la valeur intial de lait.
T1 ET T2 prennent les valeurs précendes car il se pourrait arriver que je ne modifie q'une valeur.
je voulai quelq'un pour m'aidé à solutionner ce probleme et m'aidé à bouclé
en voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
Dim T1
Dim T2
T1 = Sheets("feuil1").Range("B5").Value
T2 = Sheets("feuil1").Range("C5").Value
If Me.TextBox1.Text <> "" Then
        T1 = Me.TextBox1
End If
If Me.TextBox2.Text <> "" Then
        T2 = Me.TextBox2
End If
If ComboBox1.Value = "lait" Then
Sheets("feuil1").Range("B5").Value = T1
Sheets("feuil1").Range("C5").Value = T2
Unload Me
End If
If ComboBox1.Value = "café" Then
Sheets("feuil1").Range("B6").Value = T1
Sheets("feuil1").Range("C6").Value = T2
Unload Me
End If

[Minick]

Salut,

Pas besoinde passer par des variables pour recuperer la valeur initiale.
Si tu ne saisis rien tu ne fais rien (le valeur restera celle d'origine)...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
    Dim Ligne As Integer
 
    If combobox1.Value = "lait" Then
        Ligne = 5
    ElseIf combobox1.Value = "cafe" Then
        Ligne = 6
    End If
 
    If Me.TextBox1.Text <> "" Then
        Sheets("feuil1").Range("B" & Ligne).Value = Me.texbox1
    End If
 
    If Me.TextBox2.Text <> "" Then
        Sheets("feuil1").Range("C" & Ligne).Value = Me.texbox2
    End If
    Unload Me
End Sub

++
Minick

[presser]

je modifie ma feuille excel par un ecran de mo userform,si je ne modifie pas la cellule la valeur devient nulle,c'est pour cette raison que j'utilise t1 et t2.

[Minick]

Desole mais je ne comprend pas ce que tu veux...

Essaies ca mais sans certitude:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
    Dim Ligne As Integer
    Dim SaisieCafe as boolean
 
    If combobox1.Value = "lait" Then
        Ligne = 5
    ElseIf combobox1.Value = "café" Then
        Ligne = 6
        SaisieCafe = True
    End If
 
    If Me.TextBox1.Text <> "" Then
        Sheets("feuil1").Range("B" & Ligne).Value = Me.texbox1
    elseif SaisieCafe then
        Sheets("feuil1").Range("B" & Ligne).Value=Sheets("feuil1").Range("B" & Ligne-1).Value
    End If
 
    If Me.TextBox2.Text <> "" Then
        Sheets("feuil1").Range("C" & Ligne).Value = Me.texbox2
    elseif SaisieCafe then
        Sheets("feuil1").Range("C" & Ligne).Value=Sheets("feuil1").Range("C" & Ligne-1).Value
    End If
    Unload Me
End Sub

Si tu saisies dans cafe etque l'un des TextBox est vide on prend la valeur de lait (sur la ligne precedente)

++
Minick

[presser]

j'ai un tableau a deux ligne 2 colonnes je veux cree un ecran(userform) qui les met à jour.si une valeur est modifié que l'autre consserve la valeur précéende car il peu arrivé que tu ne veux modifié qu'un valeur donc l'autre doit être inchangé,ça me préoccupe