Discussion :

[Antoine_DS]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thautheme]

Bonjour Antoine, bonjour le forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Offset(0, 4).Select

[Édition]
Bonjour Robert on s'est croisé...

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set R = ActiveSheet.Range("$C$4:$G$106")

[Marc-L]

Bonjour, bonjour !

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



__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

Bonjour Marc,
Bien vue; j'ai pas due lire jusqu’à la fin!

[Antoine_DS]

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

Mon problème est résolu

[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é.