If Mouv.Value =3D "CREDIT" Then
Cells(z, 2).Value =3D Somme.Value
Else
Cells(z, 3).Value =3D Somme.Value
End If
If Mouv.Value =3D "DEBIT" Then
Cells(z, 3).Value =3D Somme.Value
Else
Cells(z, 2).Value =3D Somme.Value
End If
MsgBox ("Merci d'avoir enregistr=E9 les donn=E9es")
Enregistrement.Hide
Menug.Show
End Sub
Je voudrais que quand je valide si la combobox Mouv =3D "DEBIT" la ligne
enti=E8re soit rouge
Sinon je voudrais qu'elle soit bleue
If Mouv.Value = "CREDIT" Then Cells(z, 2).Value = Somme.Value Else Cells(z, 3).Value = Somme.Value End If If Mouv.Value = "DEBIT" Then Cells(z, 3).Value = Somme.Value Else Cells(z, 2).Value = Somme.Value End If MsgBox ("Merci d'avoir enregistré les données") Enregistrement.Hide Menug.Show End Sub
Je voudrais que quand je valide si la combobox Mouv = "DEBIT" la ligne entière soit rouge Sinon je voudrais qu'elle soit bleue
Pouvez vous m'aider ?
Merci de votre aide
A++ Lolo
Bonjour.
Modifie :
If Mouv.Value = "DEBIT" Then
Cells(z, 3).Value = Somme.Value
Rows(z).Interior.ColorIndex = 3
Else
Cells(z, 2).Value = Somme.Value
Rows(z).Interior.ColorIndex = 5
End If
Cordialement.
Daniel
"lolo" <lolo_bob2@yahoo.fr> a écrit dans le message de news:
1186324462.516662.34000@r34g2000hsd.googlegroups.com...
Bonjour à tous
Voila j'ai un formulaire qui envoi des données vers une feuille excel.
Private Sub Valider_Click()
f = Me.ChoixFeuille
z = Sheets(f).Range("A65536").End(xlUp)(2).Row
If Mouv.Value = "CREDIT" Then
Cells(z, 2).Value = Somme.Value
Else
Cells(z, 3).Value = Somme.Value
End If
If Mouv.Value = "DEBIT" Then
Cells(z, 3).Value = Somme.Value
Else
Cells(z, 2).Value = Somme.Value
End If
MsgBox ("Merci d'avoir enregistré les données")
Enregistrement.Hide
Menug.Show
End Sub
Je voudrais que quand je valide si la combobox Mouv = "DEBIT" la ligne
entière soit rouge
Sinon je voudrais qu'elle soit bleue
If Mouv.Value = "CREDIT" Then Cells(z, 2).Value = Somme.Value Else Cells(z, 3).Value = Somme.Value End If If Mouv.Value = "DEBIT" Then Cells(z, 3).Value = Somme.Value Else Cells(z, 2).Value = Somme.Value End If MsgBox ("Merci d'avoir enregistré les données") Enregistrement.Hide Menug.Show End Sub
Je voudrais que quand je valide si la combobox Mouv = "DEBIT" la ligne entière soit rouge Sinon je voudrais qu'elle soit bleue
Pouvez vous m'aider ?
Merci de votre aide
A++ Lolo
lolo
Merci Daniel
Par contre je voudrais que la ligne soit en couleur de la cellule A à la celule D est ce que cela est possible Une seconde question quand j'enregistre un mouvement, je reviens sur le menu général mais les données que j'ai rentrée juste avant reste sur le formulaire "Enregistrement". Comment faire pour revenir sur un formulaire vierge sans données ? MDP ADMIN : toutou
http://cjoint.com/?ifrL3pkA1P
Merci de ton aide
@++
Lolo
Merci Daniel
Par contre je voudrais que la ligne soit en couleur de la cellule A à
la celule D est ce que cela est possible
Une seconde question quand j'enregistre un mouvement, je reviens sur
le menu général mais les données que j'ai rentrée juste avant reste
sur le formulaire "Enregistrement". Comment faire pour revenir sur un
formulaire vierge sans données ?
MDP ADMIN : toutou
Par contre je voudrais que la ligne soit en couleur de la cellule A à la celule D est ce que cela est possible Une seconde question quand j'enregistre un mouvement, je reviens sur le menu général mais les données que j'ai rentrée juste avant reste sur le formulaire "Enregistrement". Comment faire pour revenir sur un formulaire vierge sans données ? MDP ADMIN : toutou
http://cjoint.com/?ifrL3pkA1P
Merci de ton aide
@++
Lolo
Daniel
Modifie la macro du bouton "Valider" comme suit :
Private Sub Valider_Click()
f = Me.ChoixFeuille z = Sheets(f).Range("A65536").End(xlUp)(2).Row
If Mouv.Value = "CREDIT" Then Cells(z, 2).Value = Somme.Value Rows(z).Interior.ColorIndex = 5 Else Cells(z, 3).Value = Somme.Value End If If Mouv.Value = "DEBIT" Then Cells(z, 3).Value = Somme.Value Range("A" & z & ":D" & z).Interior.ColorIndex = 3 Else Cells(z, 2).Value = Somme.Value End If MsgBox ("Merci d'avoir enregistré les données") Unload Me 'Enregistrement.Hide Menug.Show End Sub
Daniel "lolo" a écrit dans le message de news:
Merci Daniel
Par contre je voudrais que la ligne soit en couleur de la cellule A à la celule D est ce que cela est possible Une seconde question quand j'enregistre un mouvement, je reviens sur le menu général mais les données que j'ai rentrée juste avant reste sur le formulaire "Enregistrement". Comment faire pour revenir sur un formulaire vierge sans données ? MDP ADMIN : toutou
http://cjoint.com/?ifrL3pkA1P
Merci de ton aide
@++
Lolo
Modifie la macro du bouton "Valider" comme suit :
Private Sub Valider_Click()
f = Me.ChoixFeuille
z = Sheets(f).Range("A65536").End(xlUp)(2).Row
If Mouv.Value = "CREDIT" Then
Cells(z, 2).Value = Somme.Value
Rows(z).Interior.ColorIndex = 5
Else
Cells(z, 3).Value = Somme.Value
End If
If Mouv.Value = "DEBIT" Then
Cells(z, 3).Value = Somme.Value
Range("A" & z & ":D" & z).Interior.ColorIndex = 3
Else
Cells(z, 2).Value = Somme.Value
End If
MsgBox ("Merci d'avoir enregistré les données")
Unload Me
'Enregistrement.Hide
Menug.Show
End Sub
Daniel
"lolo" <lolo_bob2@yahoo.fr> a écrit dans le message de news:
1186328318.020934.182380@r34g2000hsd.googlegroups.com...
Merci Daniel
Par contre je voudrais que la ligne soit en couleur de la cellule A à
la celule D est ce que cela est possible
Une seconde question quand j'enregistre un mouvement, je reviens sur
le menu général mais les données que j'ai rentrée juste avant reste
sur le formulaire "Enregistrement". Comment faire pour revenir sur un
formulaire vierge sans données ?
MDP ADMIN : toutou
If Mouv.Value = "CREDIT" Then Cells(z, 2).Value = Somme.Value Rows(z).Interior.ColorIndex = 5 Else Cells(z, 3).Value = Somme.Value End If If Mouv.Value = "DEBIT" Then Cells(z, 3).Value = Somme.Value Range("A" & z & ":D" & z).Interior.ColorIndex = 3 Else Cells(z, 2).Value = Somme.Value End If MsgBox ("Merci d'avoir enregistré les données") Unload Me 'Enregistrement.Hide Menug.Show End Sub
Daniel "lolo" a écrit dans le message de news:
Merci Daniel
Par contre je voudrais que la ligne soit en couleur de la cellule A à la celule D est ce que cela est possible Une seconde question quand j'enregistre un mouvement, je reviens sur le menu général mais les données que j'ai rentrée juste avant reste sur le formulaire "Enregistrement". Comment faire pour revenir sur un formulaire vierge sans données ? MDP ADMIN : toutou
http://cjoint.com/?ifrL3pkA1P
Merci de ton aide
@++
Lolo
lolo
Merci beaucoup,
Par contre pour le deuxième problème je ne vois pas comment faire
Peux tu m'aider
Merci
A++
Lolo
Merci beaucoup,
Par contre pour le deuxième problème je ne vois pas comment faire
Par contre pour le deuxième problème je ne vois pas comment faire
Peux tu m'aider
Merci
A++
Lolo
Daniel
Quand je clique sur "enregistrer des mouvements, je remplis les zones, je valide et que je rentre un second mouvement, les zones sont réinitialisées. Daniel "lolo" a écrit dans le message de news:
Merci beaucoup,
Par contre pour le deuxième problème je ne vois pas comment faire
Peux tu m'aider
Merci
A++
Lolo
Quand je clique sur "enregistrer des mouvements, je remplis les zones, je
valide et que je rentre un second mouvement, les zones sont réinitialisées.
Daniel
"lolo" <lolo_bob2@yahoo.fr> a écrit dans le message de news:
1186332519.696440.19730@k79g2000hse.googlegroups.com...
Merci beaucoup,
Par contre pour le deuxième problème je ne vois pas comment faire
Quand je clique sur "enregistrer des mouvements, je remplis les zones, je valide et que je rentre un second mouvement, les zones sont réinitialisées. Daniel "lolo" a écrit dans le message de news:
Merci beaucoup,
Par contre pour le deuxième problème je ne vois pas comment faire