Pour chaque cellule de la ligne

[ptitepo]

Bjr, bjr
J'ai un petit calendrier avec chaque mois sur une feuille excel. Les dates sont allignées en ligne B5 sur toutes mes feuilles. Je voudrais que pour chaque cellule d'une ligne (ma ligne est défini avant dans une selection), mon programme fasse reference a B5 et suivant si le jour est un lundi, un mardi etc, il m'execute des instructions.
Voici, un bout de mon code, il est peut - être bizare, je l'est coupé pour tout rassembler. Se sont les deux lignes en rouge qui me pose problème.

If obt_janvier.Value = True Then
        ligne = Sheets("Janv").Range("A65536").End(xlUp).Row
        Sheets("Janv").Select
         Range("B" & ligne).Select
        Selection.FormatConditions.Delete   

[COLOR="Red"]For Each cell In Selection
        Select Case Cells[/COLOR]
            Case "Lun"
		If obt_lundiM.Value = True And obt_LundiAP.Value = True Then
                    	' appel couleurJ pour les lundis
                    	Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
                   	 "=OU(JOURSEM(B$5)=2)"
		 Selection.FormatConditions(1).Interior.ColorIndex = 45
            Case "Mar"
		‘instructions     
            Case "Mer"
		‘instructions
            Case "Jeu"
		‘instructions
            Case "ven"
		‘instructions
            Case "sam" And "dim"
                	‘instructions
        End Select
    Next cell
Selection.AutoFill Destination:=Range("B" & ligne & ":AF" & ligne), Type:=xlFillDefault
        	Range("B" & ligne & ":AE" & ligne).Select
        	ActiveWindow.LargeScroll ToRight:=-1
Enf if
‘[…] La même chose pour tout les mois

Merci de votre aide

 

[pierrejean]

Re : Pour chaque cellule de la ligne

Bonjour ptitepo

A tester:

[COLOR=blue]For Each cell In Selection
        Select Case Cell.value[/COLOR]

 

[ptitepo]

Re : Pour chaque cellule de la ligne

Ca ne s'arrête plus dessus, mais ca ne marche pas pour autant :S
En fait je veux qu'il collore les cases qui font reférence au lundi de ma ligne B5. Il se mets bien sur la bonne ligne, mais il ne se passe rien. Mais il ne comprend pas mes "case" je crois, je ne sais pas comment lui dire "lun de la ligne B5". Avant je passais par une mise en forme conventionnel, mais je ne peut gerer qu'un seul jour,(sinon ca serait trop long a coder) je souhaite donc passer par chaque cellule de la ligne pour colorer 1 ou plusieurs jour.

If obt_janvier.Value = True Then
        ' recupere la ligne
        ligne = Sheets("Janv").Range("A65536").End(xlUp).Row
        'se place sur la feuille janvier
        Sheets("Janv").Select
        'se place en B, et la ligne correspondante
        Range("B" & ligne & ":AE" & ligne).Select
        For Each Cell In Selection
        Select Case Cell.Value
            Case "Lun"
                If obt_lundiM.Value = True And obt_LundiAP.Value = True Then
                    ' pour les lundis journée
                    With Selection.Interior
                        .ColorIndex = 45
                        .Pattern = xlSolid
                    End With
            Case "Mar"
                If obt_MardiM.Value = True And obt_MardiAP.Value = True Then
                    'appel couleurJ pour les mardis
                    With Selection.Interior
                        .ColorIndex = 44
                        .Pattern = xlSolid
                    End With
[...]

 

[pierrejean]

Re : Pour chaque cellule de la ligne

Re

Je te l'ai deja fait remarquer !!

Il est extremement difficile de debugger un code parcellaire sorti de son contexte
Est-il donc si difficile de faire un petit fichier exemple ???

 

[ptitepo]

Re : Pour chaque cellule de la ligne

Voila, j'ai fait ce que j'ai pu

 

[pierrejean]

Re : Pour chaque cellule de la ligne

Re

Avec le tout le code ce serait un peu plus facile !!

 

[ptitepo]

Re : Pour chaque cellule de la ligne

Bon je ne sais pas pourquoi il ne me prend pas le code du bouton, il efface le formulaire et son code, ca doit être trop gros. Désoler pour le fichier je sais pas comment faire pour le coup :S

 

[pierrejean]

Re : Pour chaque cellule de la ligne

Re

Efface completement les feuilles et zippe le fichier

 

[ptitepo]

Re : Pour chaque cellule de la ligne

Je ne pourais le faire que se soir.

 

[ptitepo]

Re : Pour chaque cellule de la ligne

Re,
J'ai résolu mon problème, c'était :

For Each cell In Selection
    Select Case Cells(4, cell.Column).Value
        Case "Lun" [...]

Merci a bientot

 

[pierrejean]

Re : Pour chaque cellule de la ligne

Re

Content pour toi !!

A ton avis, comment pouvait-on le savoir ???

 

[ptitepo]

Re : Pour chaque cellule de la ligne

Cells(4, cell.Column).Value
Pour chaque cellule de la ligne selectionné, il compare avec la ligne 4 de la colone ou la cellule a comparé se trouve. C'est quelque chose comme ca.