Cellule coloree avec coupure

Résolu/Fermé

pat-bl33 Messages postés 4 Date d'inscription dimanche 11 mars 2018 Statut Membre Dernière intervention 18 mars 2018 - 11 mars 2018 à 15:17
pat-bl33 Messages postés 4 Date d'inscription dimanche 11 mars 2018 Statut Membre Dernière intervention 18 mars 2018 - 18 mars 2018 à 16:02

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


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

A voir également:

Cellule coloree avec coupure
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Fusionner cellule excel avec texte - Guide
Diviser une cellule excel en deux horizontalement ✓ - Forum Excel

2 réponses

Réponse 1 / 2

Raymond PENTIER Messages postés 58834 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 22 janvier 2025 17 273
11 mars 2018 à 17:47

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.

pat-bl33 Messages postés 4 Date d'inscription dimanche 11 mars 2018 Statut Membre Dernière intervention 18 mars 2018
11 mars 2018 à 17:58

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

Xileh Messages postés 19212 Date d'inscription dimanche 10 janvier 2016 Statut Modérateur Dernière intervention 21 janvier 2025 6 371
11 mars 2018 à 18:20

Bonjour

J'ai supprimé l'autre conversation, autant continuer sur celle-ci où le demandeur est inscrit (plus facile à suivre...)

pat-bl33 Messages postés 4 Date d'inscription dimanche 11 mars 2018 Statut Membre Dernière intervention 18 mars 2018
11 mars 2018 à 21:06

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

Réponse 2 / 2

pat-bl33 Messages postés 4 Date d'inscription dimanche 11 mars 2018 Statut Membre Dernière intervention 18 mars 2018
18 mars 2018 à 16:02

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

Discussions similaires

Excel si cellule contient texte alors...

Quel fonction faire en b1 par rapport à a1

Excel formule : savoir si une cellule contient partie texte

Freebox POP coupure en 2.5gb...

Excel : colorer une cellule sous condition d'une autre ?