Prob select case

[Temjeh]

Bonjour et merci d'avance

Avec ceci ma condition fonctionne à l'envers pourquoi?:

Select Case ActiveCell.Row = 1

Case ActiveCell.Offset(1, 0).Interior.ColorIndex = ActiveCell.Offset(-1, 0).Interior.ColorIndex

...si oui mon code

End select

Avec ce code si ma couleur en dessus et en dessous de ma cell active est pareil il exécute mais pourquoi il fait le contraire !! J'ai pourtant le signe = et non <>

Merci

Temjeh

 

[JYLL]

Re : Prob select case

Bonjour Temjeh et le Forum,

Ta macro fait bien ce que tu lui demandes. Tu tests la cellule au dessus et en dessous de la cellule active et dans le cas de ton classeur Quand tu es sur la cellule sans couleur tu as comme color index -4142. et pou les jaunesr les 6. Si tu es sur la vide entre les jaunes les couleur sont bien identiques; Si tu te place sur La cellule "A" tu as bien -4142 dans les deux qui entourent. Maintenant j'ai complété ton classeur pour l'exemple quand tu cliques sur la bleue tu as 6 et -4142 et sur la bleue 42 et -4142.

Bon test.

 

[JeanMarie]

Re : Prob select case

Bonjour Temjeh

Je ne sais pas si, ce post répondra à ta question.

Logiquement il ne peut y avoir de cellule au-dessus de la ligne 1, donc tu devrais avoir un message d'erreur à l'exécution de la ligne

Case ActiveCell.Offset(1, 0).Interior.ColorIndex = [B]ActiveCell.Offset(-1, 0).Interior.ColorIndex[/B]

Si tu n'as pas cet arrêt d'exécution, tu dois avoir un On Error Resume next quelque part avant ce bloc d'instruction. Place On Error GoTo 0 avant le bloc d'instruction.

@+Jean-Marie

 

[Temjeh]

Re : Prob select case

Merci

Je sais qu,elle peut faire ce que je veut mais dans mon code je lui di <> aulieu de = pour qu'il fonctionne! Pourquoi?

Merci

Temjeh

 

[Temjeh]

Re : Prob select case

Merci prob règler

Mon erreur venais du fait que Select Case ActiveCell.Row = 1 aurais dû être
Select Case ActiveCell.Column = 1 et comme cela il prend le code comme il le faut

Merci beaucoup

Temjeh

Ps

Merci Jean Marie aussi mais pour la gestion de cette erreur j'ai justement un select case avant celui ci qui exécute un code si il est en row 2 et exit sub ...merci pour cette info

 

[JYLL]

Re : Prob select case

re bonjour Temjeh, Pierrot et le Forum,

Voici un code qui gère l'erreur de la ligne 1 et qui est fait avec IF plutôt que select Case qui n'est pas le plus approprié dans ce cas. Idéal lorsqu'il y a beaucoup de tets.

Private Sub CommandButton1_Click()
  If ActiveCell.Row = 1 Then Exit Sub
  If ActiveCell.Offset(1, 0).Interior.ColorIndex = ActiveCell.Offset(-1, 0).Interior.ColorIndex Then
    MsgBox "BON"
  Else
   MsgBox "MAUVAIS"
  End If
End Sub

Bonne lecture.

 

[Temjeh]

Re : Prob select case

Merci pour cette derni^re info

J'ai dèja un code très long et c'était justement pour le simplifier que j'y ai essayé avec des Case pour isoler chaque partie de mon code qui fonctionne très bien avec des IF et END IF.

Merci prob règler

Temjeh