Couleur ligne

Le
lolo
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4812251
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"
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
lolo
Le #4812231
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
Daniel
Le #4812201
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"
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
Le #4812171
Merci beaucoup,

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

Peux tu m'aider

Merci

A++

Lolo
Daniel
Le #4812071
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"
Merci beaucoup,

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

Peux tu m'aider

Merci

A++

Lolo
lolo
Le #4812051
Bonsoir

C'est bon j'ai trouvé

@++

Lolo
Publicité
Poster une réponse
Anonyme