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
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Figer cellule excel - Guide
Faites en sorte que la cellule a1 affiche exactement ce qui est montré sur cette image. quel mot apparaît en b1 ? - Forum Excel

2 réponses

Réponse 1 / 2

Raymond PENTIER Messages postés 58395 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 avril 2024 17 096
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 19010 Date d'inscription dimanche 10 janvier 2016 Statut Modérateur Dernière intervention 24 avril 2024 6 291
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...

Formule Excel : "SI" une cellule contient un mot, alors ?

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

Excel formule : savoir si une cellule contient partie texte

Si couleur, alors...

Discussions similaires

Newsletters