Bonjour à tous, j'ai un user form avec lequel les utilisateurs rentrent un certain nombre d'infos, et lorsque j'appuye sur le bouton OK, c'est info se mettent dans un tableau excel. Jusque la tout va bien.
J'aurai voulu rajouté comme condition le fait que lorsque j'appuye sur OK, les cellules de la ligne que j'édite se metten en vert par exemple. J'ai essayé en commencant par mettre juste une cellule en vert et je n'y arrive déja pas. mon mode est le suivant:
Merci après je voudrai que sa soit toute la ligne de mon tableau qui se mette en verte, je peut faire avec des
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 Private Sub OK_Click() Set cellule = Worksheets("Tableau de commandes 2008").Range("A5") Do While Not IsEmpty(cellule) Set cellule = cellule.Offset(1, 0) Loop cellule.Value = UserForm1.Emetteur.Value cellule.Offset(0, 1).Value = Date cellule.Offset(0, 2).Value = UserForm1.Ligne.Value cellule.Offset(0, 3).Value = UserForm1.Machine.Value cellule.Offset(0, 4).Value = UserForm1.Service.Value cellule.Offset(0, 5).Value = UserForm1.CentreDeFrais.Value cellule.Offset(0, 6).Value = UserForm1.Fournisseur.Value cellule.Offset(0, 7).Value = cellule.Row 'cellule.Offset(0, 7).FormulaLocal = "=ligne()" Set cellule = Worksheets("Suivi").Range("H5") Do While Not IsEmpty(cellule) Set cellule = cellule.Offset(1, 0) Loop ActiveCell.Interior.ColorIndex = 15 MsgBox "La saisie est términée!" End If End sub
Mais je pense qu'on peut faire une sorte de chaine avec les diffénrentes colonnes concernées!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 cellule.Offset(0, 1).Interior.ColorIndex = 15 cellule.Offset(0, 2).Interior.ColorIndex = 15 cellule.Offset(0, 3).Interior.ColorIndex = 15....
Merci bcp à tous
Partager