kanizol
Messages postés8Date d'inscriptionvendredi 23 mai 2014StatutMembreDernière intervention 6 février 2015
-
23 mai 2014 à 12:27
kanizol
Messages postés8Date d'inscriptionvendredi 23 mai 2014StatutMembreDernière intervention 6 février 2015
-
23 mai 2014 à 16:29
Bonjour,
je cherche une abreviation de ce code parce qu'il me parait tres long
If Feuil2.Cells(9, k).Value >= Feuil1.Cells(j, 1).Value And Feuil2.Cells(9, k).Value < Feuil1.Cells(j, 2).Value And Feuil1.Cells(j, 3).Text = "CDF" And Feuil1.Cells(j, 4).Text = "E" Then
Feuil2.Cells(10, k).Interior.ColorIndex = 35
Feuil2.Cells(11, k).Interior.ColorIndex = 35
Feuil2.Cells(12, k).Interior.ColorIndex = 35
Feuil2.Cells(13, k).Interior.ColorIndex = 35
Feuil2.Cells(14, k).Interior.ColorIndex = 35
Feuil2.Cells(15, k).Interior.ColorIndex = 35
Feuil2.Cells(16, k).Interior.ColorIndex = 35
Feuil2.Cells(17, k).Interior.ColorIndex = 35
Feuil2.Cells(18, k).Interior.ColorIndex = 35
Feuil2.Cells(19, k).Interior.ColorIndex = 35
Feuil2.Cells(20, k).Interior.ColorIndex = 35
Feuil2.Cells(21, k).Interior.ColorIndex = 35
Feuil2.Cells(22, k).Interior.ColorIndex = 35
End If
ces dernier ligne se repetent beaucoup et je cherche de les resumer dans une seule ligne
et merci
jordane45
Messages postés38142Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention20 avril 2024344 23 mai 2014 à 13:14
Encore plus simple même :
Range("K10:K22").Interior.ColorIndex = 35
jordane45
Messages postés38142Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention20 avril 2024344 23 mai 2014 à 13:18
Ou si ton k est variable :
'si K est une lettre correspondant à ta colonne
k = "J"
Range(k & "10:" & k & "22").Interior.ColorIndex = 35
'Si c'est le Numéro de colonne:
k = 5
Range(Cells(10, k), Cells(22, k)).Interior.ColorIndex = 35
kanizol
Messages postés8Date d'inscriptionvendredi 23 mai 2014StatutMembreDernière intervention 6 février 2015 23 mai 2014 à 15:48
kanizol
Messages postés8Date d'inscriptionvendredi 23 mai 2014StatutMembreDernière intervention 6 février 2015 23 mai 2014 à 15:51
merci pour vos aides mais k est une variable et le code que vous m'avez donné de variable ne marche pas
jordane45
Messages postés38142Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention20 avril 2024344 23 mai 2014 à 16:12
Comment ça il ne marche pas ??
Sub test()
' pour l'exemple je met une valeur à k
k = 4
'le changement de couleur se fait sur la colonne désignée par k...
' A savoir.. dans mon exemple : la colonne 4 ...c'est à dire..la colonne : D
Range(Cells(10, k), Cells(22, k)).Interior.ColorIndex = 35
End Sub
kanizol
Messages postés8Date d'inscriptionvendredi 23 mai 2014StatutMembreDernière intervention 6 février 2015 23 mai 2014 à 16:29
oui vous avez raison, votre dernier code m'a aidé beaucoup, merci encore une fois