Aide réduction formule
Fermé
lordkro1
Messages postés
2
Date d'inscription
mercredi 18 mai 2016
Statut
Membre
Dernière intervention
18 mai 2016
-
18 mai 2016 à 11:22
lordkro1 Messages postés 2 Date d'inscription mercredi 18 mai 2016 Statut Membre Dernière intervention 18 mai 2016 - 18 mai 2016 à 20:46
lordkro1 Messages postés 2 Date d'inscription mercredi 18 mai 2016 Statut Membre Dernière intervention 18 mai 2016 - 18 mai 2016 à 20:46
A voir également:
- Aide réduction formule
- Formule si et - Guide
- Formule somme excel colonne - Guide
- Formule excel moyenne - Guide
- Excel mise en forme conditionnelle formule - Guide
- Bon de reduction - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
18 mai 2016 à 12:02
18 mai 2016 à 12:02
Bonjour,
Dans qu'elle procédure de l'userform se trouve ton code pour les 273 labels?
Userform_Initialize?
UserForm_Activvate?
CommandButton1_Click?
autre?
Comment calcules-tu ta variable lignetaxosec selon les Label?
Sinon, si tous les labels concernés et seulement les labels concernés sont nommés : Label1, Label2, Label3, ..., Label272, Label273, voici un exemple (j'ai juste ajouté 1 à lignetaxosec à chaque Label) :
Dans qu'elle procédure de l'userform se trouve ton code pour les 273 labels?
Userform_Initialize?
UserForm_Activvate?
CommandButton1_Click?
autre?
Comment calcules-tu ta variable lignetaxosec selon les Label?
Sinon, si tous les labels concernés et seulement les labels concernés sont nommés : Label1, Label2, Label3, ..., Label272, Label273, voici un exemple (j'ai juste ajouté 1 à lignetaxosec à chaque Label) :
Private Sub Userform_Initialize() Dim i As integer Dim lignetaxosec As Integer lignetaxosec = 92 * ComboBox100.ListIndex For i = 1 To 273 'ICI place TA méthode de calcul de la ligne lignetaxosec = lignetaxosec + 1 Call Colorie(Me.Controls("Label" & i), lignetaxosec) Next i End Sub Sub Colorie(Lab As Control, Lign As Integer) If Worksheets("saisie Acquisitions").Cells(lign, 26).Value = "0" Then Lab.BackColor = RGB(255, 0, 0) ElseIf Worksheets("saisie Acquisitions").Cells(lign, 26).Value = "1" Then Lab.BackColor = RGB(255, 206, 0) ElseIf Worksheets("saisie Acquisitions").Cells(lign, 26).Value = "2" Then Lab.BackColor = RGB(0, 255, 0) End If End Sub
lordkro1
Messages postés
2
Date d'inscription
mercredi 18 mai 2016
Statut
Membre
Dernière intervention
18 mai 2016
18 mai 2016 à 20:46
18 mai 2016 à 20:46
Désolé pour la réponse longue, Je vis à l'autre bout du monde et c'est le petit matin ici !
J'essaie ça ce soir et je reviens vers vous !
Merci beaucoup !
J'essaie ça ce soir et je reviens vers vous !
Merci beaucoup !