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