Colorier deux cellules après validation du Userform

Bonjour,

J’ai créé un Userform à l’aide d’un tuto de YouTube.

Mais j’aimerais aller légèrement plus loin, à savoir :

Lorsque je valide il remplit bien les cases (jusque-là, pas de souci)

J’aimerais qu’en + il surligne en jaune les cellules ‘’I et J’’ soit : AchatBox et venteBox

Voici le lien du forum que j’ai utilisé pour m’aider : UserForm pour les débutants : Faire un formulaire de saisie Excel - YouTube

Dommage, je ne trouve pas l’astuce pour vous joindre mon fichier Excel.

Merci infiniment de votre aide

Bonne journée

Voici ma macro :

Private Sub H_Ajouter_Click()

'Recherche de la première ligne vide

l = 3

While Not IsEmpty(Cells(l, 1))

l = l + 1

Wend

'Saisir le formulaire

Cells(l, 1) = DateBox.Text

Cells(l, 2) = ArticleBox.Text

Cells(l, 7) = CasierBox.Text

Cells(l, 9) = AchatBox.Text

Cells(l, 10) = VenteBox.Text

Cells(l, 17) = DésignationBox.Text

'Remise à zéro du UserForm

DateBox.Text = «  »

ArticleBox.Text = «  »

CasierBox.Text = «  »

AchatBox.Text = «  »

VenteBox.Text = «  »

DésignationBox.Text = «  »

'Cacher la UserForm

UserForm_SAISIE.Hide

End Sub

’ Remise à zéro des box

Private Sub H_Fermer_Click()

DateBox.Text = «  »

ArticleBox.Text = «  »

CasierBox.Text = «  »

AchatBox.Text = «  »

VenteBox.Text = «  »

DésignationBox.Text = «  »

UserForm_SAISIE.Hide

End Sub

Bonjour,
Voici le principe pour mettre le fichier
image

Re,
A tout hazard, remplace par ceci

'Saisir le formulaire
Cells(l, 1) = DateBox.Text
Cells(l, 2) = ArticleBox.Text
Cells(l, 7) = CasierBox.Text
Cells(l, 9) = AchatBox.Text
Cells(l, 9).Interior.Color = vbYellow
Cells(l, 10) = VenteBox.Text
Cells(l, 10).Interior.Color = vbYellow
Cells(l, 17) = DésignationBox.Text

1 « J'aime »

Bonjour,

Grand merci, ça fonctionne nickel.

Très bonne journée

Cordialement

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.