Cellule coloree avec coupure
Résolu
pat-bl33
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
pat-bl33 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
pat-bl33 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je recherche a faire une recherche sur une plage de cellule si elle est en couleur mettre 1 pour la fin de ma plage mettre 2 mais voila j'ai des coupures des cellules vide je voudrais que cela mette 2 en début de coupure et 3 a la fin puis 4 a la fin de mes cellules colorées j'avoue que ça fait plus d'un mois que je m'arrache les tifs . lol !!!
mes cellules vont de ey2 à ip2 sur 32 lignes
si vous pouvez me donne un coup de main ca serait sympa la je bloque
je recherche a faire une recherche sur une plage de cellule si elle est en couleur mettre 1 pour la fin de ma plage mettre 2 mais voila j'ai des coupures des cellules vide je voudrais que cela mette 2 en début de coupure et 3 a la fin puis 4 a la fin de mes cellules colorées j'avoue que ça fait plus d'un mois que je m'arrache les tifs . lol !!!
mes cellules vont de ey2 à ip2 sur 32 lignes
If [ex2] = 0 Then Exit Sub
Range("ey2").End(xlToRight).Offset(0, 0).Select 'xlDown 'xlToRight
ActiveCell.FormulaR1C1 = "1"
ActiveCell.End(xlToRight).Select
Rows(2).Find("*", , , , , xlPrevious).Offset(0, 0).Select
ActiveCell.FormulaR1C1 = "2"
If [ex3] = 0 Then Exit Sub
Range("ey3").End(xlToRight).Offset(0, 0).Select 'xlDown 'xlToRight
ActiveCell.FormulaR1C1 = "1"
ActiveCell.End(xlToRight).Select
Rows(3).Find("*", , , , , xlPrevious).Offset(0, 0).Select
ActiveCell.FormulaR1C1 = "2"
si vous pouvez me donne un coup de main ca serait sympa la je bloque
2 réponses
-
On avait déjà vu ta discussion http://www.commentcamarche.net/forum/affich-35253121-besoin-de-vos-lumieres-sur-les-cellules-colore
Inutile de la diffuser plusieurs fois.
-
bonjour,
oui effectivement parce que je me suis inscrite après sur le forum donc j'ai penser suivre la discution sur mon compte désolée du dérangement.
si je pouvais avoir de l'aide dans mon fichier cela m'aiderais merci -
-
merci je pense avoir trouver mais j'ai un beug
Dim m, t, u
m = 1
t = 2
u = 3
z = 4
'nom1
'lundi1
If [ex2] = "" Then Exit Sub
Range("ey2").End(xlToRight).Offset(0, 0).Select
ActiveCell.FormulaR1C1 = m
ActiveCell.End(xlToRight).Select
Rows(2).Find("*", , , , , xlPrevious).Offset(0, 0).Select
ActiveCell.FormulaR1C1 = t
'if t
ActiveCell.End(xlToLeft).Offset(0, 0).Select
ActiveCell.FormulaR1C1 = u
ActiveCell.End(xlToLeft).Offset(0, 0).Select
ActiveCell.FormulaR1C1 = t
Rows(2).Find("*", , , , , xlPrevious).Offset(0, 0).Select
ActiveCell.FormulaR1C1 = z
je voudrais mettre que si entre m et t ya du vide alors faire la deuxième partie soit u t z
dur dur mais je m y colle meme si cela reste difficile pour ma tete lol
-
-
bonjour j'ai trouver la solution je la poste sur le forum
Dim m, t, u
Dim nom2
m = 60
t = 61
u = 62
z = 63
'nom1
'lundi1
If [ex2] = "" Then Exit Sub
If Not IsEmpty(Range("gl2")) Then
Range("ey2").End(xlToRight).Offset(0, 0).Select
ActiveCell.FormulaR1C1 = m
ActiveCell.End(xlToRight).Select
ActiveCell.FormulaR1C1 = t
End If
If Not IsEmpty(Range("hn2")) Then
Range("ey2").Select
Rows(2).Find("*", , , , , xlPrevious).Offset(0, 0).Select
ActiveCell.FormulaR1C1 = z
ActiveCell.End(xlToLeft).Offset(0, 0).Select
ActiveCell.FormulaR1C1 = u
End If
merci
