probleme de boucle

Version imprimable

probleme de boucle

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:

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

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:

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

09/06/2009, 11h48
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.

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

Essaies ca mais sans certitude:

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
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

09/06/2009, 17h24
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