Select case avec case is et trois conditions!

[Claudy]

Bonjour,
dans la procédure ci dessous, avec select case, le premier case pas de soucis, ça marche, mais le deuxième :

Case Is = "400" And cel.Offset(0, 6) <> 0 ' And cel.Offset(0, 13).Value = "OVER"
Si je veux rajouter un deuxième "And" ça va pas: il ignore totalement mon "case is="

Merci d'avance,
Claudy


Sub test()


derlig = Range("A100000").End(xlUp).Row + 2
For Each cel In Range("A1:A" & derlig)
lig = cel.Row
Select Case Left(cel, 3) 'cel.Value
Case Is = "610" And cel.Offset(0, 10) = "", "611" And cel.Offset(0, 10) = "", "612" And cel.Offset(0, 10) = "", "613" And cel.Offset(0, 10) = ""
cel.EntireRow.Interior.Color = 65535
derlig = Sheets("Log").Range("A100000").End(xlUp)(2).Row
Sheets("Log").Range("A" & derlig) = cel.Value
Sheets("Log").Range("B" & derlig) = cel.Offset(0, 1).Value
Sheets("Log").Range("G" & derlig) = cel.Offset(0, 6).Value
Sheets("Log").Range("J" & derlig) = cel.Offset(0, 9).Value
Sheets("Log").Range("K" & derlig) = cel.Offset(0, 10).Value
Sheets("Log").Range("M" & derlig) = cel.Offset(0, 12).Value
Sheets("Log").Range("N" & derlig) = cel.Offset(0, 13).Value
Sheets("Log").Range("O" & derlig) = cel.Offset(0, 14).Value

Case Is = "400" And cel.Offset(0, 6) <> 0 ' And cel.Offset(0, 13).Value = "OVER"

cel.EntireRow.Interior.Color = 65420
derlig = Sheets("Log").Range("A100000").End(xlUp)(2).Row
Sheets("Log").Range("A" & derlig) = cel.Value
Sheets("Log").Range("B" & derlig) = cel.Offset(0, 1).Value
Sheets("Log").Range("G" & derlig) = cel.Offset(0, 6).Value
Sheets("Log").Range("J" & derlig) = cel.Offset(0, 9).Value
Sheets("Log").Range("K" & derlig) = cel.Offset(0, 10).Value
Sheets("Log").Range("M" & derlig) = cel.Offset(0, 12).Value
Sheets("Log").Range("N" & derlig) = cel.Offset(0, 13).Value
Sheets("Log").Range("O" & derlig) = cel.Offset(0, 14).Value

End Select
Next
End Sub

 

[Guest]

Re : Select case avec case is et trois conditions!

Bonjour,

Je remarque que tu es inscrite depuis 2005 mais que visiblement tu ne connais pas l'éditeur avancé des posts.
Le code copié collé dans un post est imbuvable.

Pour ta question:

'Conversion de la cellule en entier
Select Case CInt(Left(cel, 3))
Case 610 To 613
  If cel.Offset(0, 10) = "" Then
    
  End If

A+

 

[Claudy]

Re : Select case avec case is et trois conditions!

Ha ok ...élémentaire , merci pour la réponse rapide!

Pour ta remarque, pourrais tu me donner un lien pour en apprendre un peu plus sur l'éditeur avancé des posts?

Pour info, en Belgique Claudy est un prénom masculin!
(Bien que ma mère soit française....)
A+
Claudy

 

[Guest]

Re : Select case avec case is et trois conditions!

Re,
Désolé pour le féminin
Pour l ' éditeur avancé tu cliques sur le bouton (entouré de jaune sur l'image) et tu arriveras sur un éditeur avec une barre d'outil enrichie et notament un bouton avec un dièse # qui permet d'insérer les balises [ code ] [/ code ] entre lesquelles tu pourras coller tes lignes VBA

A+Ce lien n'existe plus