Bonjour à tous,
voila quelques temps que je bute sur un userform...
Il me sert (servira plutôt ^^) à gerer un suivi d'erreur avec
-date => Combobox x2
-erreur => Combobox
-code => Textbox
-action correctrice => Combobox
-action SAV ou non => OptionBouton_Click
Voila son code:
Pour lancer la macro je fais ça:
Ce que je veux:
- copier la ligne 8 qui me sert pour la mise en page
- remplir la date, le message d'erreur, son code et preciser si action SAV ou non
- colorier B8;G8 selon l'action corrective du SAV ou non
- mettre un oui en H8 quand action corrective SAV faite (pour comptabiliser le nombre dans un autre tableau (je ne sais pas si on peut compter les cellules d'une couleur specifique)
- recommencer ensuite à créer des erreurs en décalant la première d'une ligne vers le bas
Ce qui ne marche pas:
- quand je crée une nouvelle erreur (relance de la macro par un bouton) les valeurs ainsi que la couleur de fond disparaissent (valeur de B8 à H8 et couleur de B8 à H8)
- ce que je n'arrive pas à faire: trier les dates dans l'ordre chronologique... (est il possible de mettre un choix par calendrier dans un useform?)
Si quelqu'un peut m'aider à améliorer tout ça ça serait vraiment sympa!
Bon dimanche!
voila quelques temps que je bute sur un userform...
Il me sert (servira plutôt ^^) à gerer un suivi d'erreur avec
-date => Combobox x2
-erreur => Combobox
-code => Textbox
-action correctrice => Combobox
-action SAV ou non => OptionBouton_Click
Voila son code:
Private Sub Annule_Click()
Range("B8:G8").Select
Selection.Delete Shift:=xlUp
UserForm1.Hide
End Sub
Private Sub ok_Click()
Sheets("Feuil1").Range("e8").Value = TextBox1.Value
Sheets("Feuil1").Range("f8").Value = TextBox2.Value
Sheets("Feuil1").Range("b8").Value = ComboBox1.Value
Sheets("Feuil1").Range("c8").Value = ComboBox2.Value
Sheets("Feuil1").Range("d8").Value = ComboBox3.Value
UserForm1.Hide
End Sub
Private Sub OptionButton1_Click()
Range("g8").Value = "oui"
Range("B8:f8").Select
With Selection.Interior
.ColorIndex = 34
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
Private Sub OptionButton2_Click()
Range("B8:f8").Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("G8").Select
Selection.Delete Shift:=xlUp
End Sub
Private Sub UserForm_Click()
End Sub
Pour lancer la macro je fais ça:
Range("B8:G8").Select
Selection.Insert Shift:=xlDown
Selection.RowHeight = 15
[B7:G8].Copy Range("B8")
UserForm1.Show
Ce que je veux:
- copier la ligne 8 qui me sert pour la mise en page
- remplir la date, le message d'erreur, son code et preciser si action SAV ou non
- colorier B8;G8 selon l'action corrective du SAV ou non
- mettre un oui en H8 quand action corrective SAV faite (pour comptabiliser le nombre dans un autre tableau (je ne sais pas si on peut compter les cellules d'une couleur specifique)
- recommencer ensuite à créer des erreurs en décalant la première d'une ligne vers le bas
Ce qui ne marche pas:
- quand je crée une nouvelle erreur (relance de la macro par un bouton) les valeurs ainsi que la couleur de fond disparaissent (valeur de B8 à H8 et couleur de B8 à H8)
- ce que je n'arrive pas à faire: trier les dates dans l'ordre chronologique... (est il possible de mettre un choix par calendrier dans un useform?)
Si quelqu'un peut m'aider à améliorer tout ça ça serait vraiment sympa!
Bon dimanche!