Appliquer des conditions sur colonnes dynamiques

Hello,

Je dispose d'un tableau à X colonnes et je souhaites appliquer des IF sur des colonnes sélectionnées.

Etant donné que mes colonnes seront amener à bouger, j'ai défini la sélection sur des titres de colonnes plutôt que sur no de colonne.

Ici 3 colonnes seront sélectionnées et 3 conditions seront appliquées. une erreur s'est placée dans mon code

Voici ma prose "Erreur d'execution 13" :

Sub filter()

Dim lastrow As Integer

Dim i As Integer

Dim ct1 As Range

Dim ct2 As Range

Dim ct3 As Range

Set ct1 = Range("A1:BA1").Find(What:="riri", LookIn:=xlValues, LookAt:=xlWhole)

Set ct2 = Range("A1:BA1").Find(What:="fifi", LookIn:=xlValues, LookAt:=xlWhole)

Set ct3 = Range("A1:BA1").Find(What:="loulou", LookIn:=xlValues, LookAt:=xlWhole)

lastrow = ActiveSheet.Range("A100000").End(xlUp).Row

For i = 2 To lastrow

If Cells(i, ct1).Value > 0.04 Or Cells(i, ct2).Value > 1000 Or Cells(i, ct3).Value > 0.3 Then

Cells(i, 12).Value = "x"

Else: Cells(i, 12).Value = ""

End If

Next i

End Sub

Bonjour,

essaye de remplacer

Cells(i, ct1).Value

par

Cells(i, ct1.column).Value

Cela fonctionne, Merci beaucoup.