Utiliser un Index de ligne

Version imprimable

Bonjour,

Je suis nouveau en VBS et j'essaye de faire un macro simple.

L'idée, c'est que j'ai une colonne C, reprenant différent types de produits : L55, P95 et L95.

Leur fermentation prend des durées différentes et je voudrais, dans la colonne G vérifier si elle ne dépasse pas un seuil critique (différent pour chaque type). Si tel est le cas, je veux colorer les cellules en rouge.

La macro est la suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Fermentation_efficiency95() ' ' Range("C4:C105").Select ActiveSheet.Range("$C$4:$C$106").AutoFilter Field:=1, Criteria1:="=L95", _ Operator:=xlOr, Criteria2:="=P95" Selection.SpecialCells(xlCellTypeVisible).Select ' ' Je ne sais pas quoi faire à partir d'ici ' End Sub
Je voudrais pouvoir déplacer cette sélection de cellules visibles vers ma colonne G (en ne sélectionnant que les lignes pour lesquelles la colonne C contient "L95" ou "P95"). Dès lors, je pourrais décider d'un critère pour les colorer en rouge, ou non.

Je présume que cette façon de procéder n'est pas très élégante, mais je ne connais pas ce langage; je suis évidemment ouvert à tout conseil/solution qui me permettrait d'améliorer ce code!

Merci d'avance pour vos réponses :)

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Fermentation_efficiency95()
Dim i As Long
Dim R As Range
Set R = ActiveSheet.Range("$C$4:$G$106")
For i = 1 To R.Rows.Count
    Select Case UCase(Trim("" & R(i, 1)))
            Case "L55"
                R(i, 5) = fermentationL55
            Case "P95"
                R(i, 5) = fermentationP95
            Case "L95"
                R(i, 5) = fermentationL95
    End Select
Next
End Sub

07/01/2015, 08h50
Thautheme

Bonjour Antoine, bonjour le forum,

Pas sûr d'avoir bien compris mais essaie en rajoutant la ligne :

Code:

Selection.Offset(0, 4).Select

[Édition]
Bonjour Robert on s'est croisé...
07/01/2015, 09h03
Invité

Bonjour Thauthème et bonne année,
évites de luis suggérer d'utiliser des select mais des variable objets!

Code:

Set R = ActiveSheet.Range("$C$4:$G$106")
07/01/2015, 10h09
Marc-L

Bonjour, bonjour !

Normalement un code est inutile avec la mise en forme conditionnelle !

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
07/01/2015, 10h16
Invité

Bonjour Marc,
Bien vue; j'ai pas due lire jusqu’à la fin!
07/01/2015, 10h18
Antoine_DS

Merci pour toutes ces réponses rapides et de bonne heure!

Mon problème est résolu :)
07/01/2015, 10h57
Antoine_DS

Citation:

Envoyé par Antoine_DS

Merci pour toutes ces réponses rapides et de bonne heure!

Mon problème est résolu :)

Je préférerai effectivement utiliser une méthode plus élégante de mise en forme conditionelle, mais je ne sais pas comment l'appliquer. Il faudrait que chaque cellule prenne une forme dépendant ET de sa valeur ET de la valeur de la cellule se trouvant deux colonnes à côté.