Mettre la ligne en couleur quand la variable dépasse l'intervall
Skizzlo
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour à tous
J'ai quelques difficulté bien que mon programme ne m'affiche pas d'erreur.
Lorsque ma variable est sup ou inf à 5% de sa valeur toute la ligne doit se mettre en rouge
... mais rien ne se passe
si quelqu'un à une idée je suis preneuse !
voilà mon code
Sub cinqpourcent()
Dim var1 As Integer 'g/m² de la fiche article
Dim var2 As Integer 'g/m² mesuré en contrôle qualité
Dim cote_mini As Integer 'cote mini cad moins les 5%
Dim cote_maxi As Integer 'cote maxi cad plus les 5%
Dim noligne As Integer
noligne = 1
Sheets("Feuil1").Cells(noligne, 5).Value = var2
Sheets("Feuil1").Cells(noligne, 6).Value = var1
While var2 <> 0
cote_mini = var1 - (var1 * 0.05)
cote_maxi = var1 + (var1 * 0.05)
If var2 < cote_mini Or var2 > cote_maxi Then
Rows(noligne).Interior.Color = RGB(255, 0, 0)
End If
noligne = noligne + 1
Wend
End Sub
J'ai quelques difficulté bien que mon programme ne m'affiche pas d'erreur.
Lorsque ma variable est sup ou inf à 5% de sa valeur toute la ligne doit se mettre en rouge
... mais rien ne se passe
si quelqu'un à une idée je suis preneuse !
voilà mon code
Sub cinqpourcent()
Dim var1 As Integer 'g/m² de la fiche article
Dim var2 As Integer 'g/m² mesuré en contrôle qualité
Dim cote_mini As Integer 'cote mini cad moins les 5%
Dim cote_maxi As Integer 'cote maxi cad plus les 5%
Dim noligne As Integer
noligne = 1
Sheets("Feuil1").Cells(noligne, 5).Value = var2
Sheets("Feuil1").Cells(noligne, 6).Value = var1
While var2 <> 0
cote_mini = var1 - (var1 * 0.05)
cote_maxi = var1 + (var1 * 0.05)
If var2 < cote_mini Or var2 > cote_maxi Then
Rows(noligne).Interior.Color = RGB(255, 0, 0)
End If
noligne = noligne + 1
Wend
End Sub
A voir également:
- Mettre la ligne en couleur quand la variable dépasse l'intervall
- Partager photos en ligne - Guide
- Aller à la ligne excel - Guide
- Mètre en ligne - Guide
- Changer la couleur de la barre des taches - Guide
- Excel cellule couleur si condition texte - Guide
1 réponse
Bonjour,
En exécutant le code en mode PAS A PAS je pense que tu aurais pu déjà trouver une première anomalie.
En effet, tu sembles vouloir assigner à tes cellules le cotenu de variables qui n'en contiennent pas...
Je pense qu'en fait, c'est ceci que tu voulais écrire
En exécutant le code en mode PAS A PAS je pense que tu aurais pu déjà trouver une première anomalie.
En effet, tu sembles vouloir assigner à tes cellules le cotenu de variables qui n'en contiennent pas...
Sheets("Feuil1").Cells(noligne, 5).Value = var2
Sheets("Feuil1").Cells(noligne, 6).Value = var1
Je pense qu'en fait, c'est ceci que tu voulais écrire
var2 = Sheets("Feuil1").Cells(noligne, 5).Value
var1 = Sheets("Feuil1").Cells(noligne, 6).Value
Effectivement j'ai remarqué ça aussi,
Si je lui donne une cellule bien spécifique ça marche
lorsque que j'essaie de le mettre avec une boucle
soit c'est une ligne sur deux soit toute la feuille est mise en rouge ..
en tout cas merci de ta réponse !
Tu fais une boucle :
... sauf que var2 ne change jamais .... vu que tu l'as initialisé AVANT ta boucle et qu'ensuite tu n'en changes pas la valeur....
Il faudrait également "remplir" tes valeurs var1 et var2 DANS la boucle.