Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Couleur ligne

6 réponses
Avatar
lolo
Bonjour =E0 tous

Voila j'ai un formulaire qui envoi des donn=E9es vers une feuille excel.

Private Sub Valider_Click()

f =3D Me.ChoixFeuille
z =3D Sheets(f).Range("A65536").End(xlUp)(2).Row

Cells(z, 1).Value =3D LaDate.Value
Cells(z, 4).Value =3D Genre.Value

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

Pouvez vous m'aider ?

Merci de votre aide

A++
Lolo

6 réponses

Avatar
Daniel
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" a écrit dans le message de news:

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

Cells(z, 1).Value = LaDate.Value
Cells(z, 4).Value = Genre.Value

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

Cells(z, 1).Value = LaDate.Value
Cells(z, 4).Value = Genre.Value

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
Avatar
lolo
Merci beaucoup,

Par contre pour le deuxième problème je ne vois pas comment faire

Peux tu m'aider

Merci

A++

Lolo
Avatar
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
Avatar
lolo
Bonsoir

C'est bon j'ai trouvé

@++

Lolo