Bonjour,
Je voudrais savoir s'il est possible de simplifier ce code, dans le cas ou j'aurais 2000 conditions dans mon if, ce serait pratique de ne pas devoir tout taper.
Voici mon code :
Sub test()
For i = 100 To 9 Step -1
If Sheets(1).Cells(2, i).Value <> Sheets(2).Range("D4").Value And Sheets(1).Cells(2, i).Value <> Sheets(2).Range("D4").Value + 1 _
And Sheets(1).Cells(2, i - 1).Value <> Sheets(2).Range("D4").Value And Sheets(1).Cells(2, i - 1).Value <> Sheets(2).Range("D4").Value + 1 _
And Sheets(1).Cells(2, i - 2).Value <> Sheets(2).Range("D4").Value And Sheets(1).Cells(2, i - 2).Value <> Sheets(2).Range("D4").Value + 1 _
And Sheets(1).Cells(2, i - 3).Value <> Sheets(2).Range("D4").Value And Sheets(1).Cells(2, i - 3).Value <> Sheets(2).Range("D4").Value + 1 _
And Sheets(1).Cells(2, i - 4).Value <> Sheets(2).Range("D4").Value And Sheets(1).Cells(2, i - 4).Value <> Sheets(2).Range("D4").Value + 1 _
And Sheets(1).Cells(2, i - 5).Value <> Sheets(2).Range("D4").Value And Sheets(1).Cells(2, i - 5).Value <> Sheets(2).Range("D4").Value + 1 _
And Sheets(1).Cells(2, i - 6).Value <> Sheets(2).Range("D4").Value And Sheets(1).Cells(2, i - 6).Value <> Sheets(2).Range("D4").Value + 1 Then
Sheets(1).Cells(2, i).EntireColumn.Delete shift:=xlUp
End If
Next i
End Sub
Ce qu'il fait : pour chaque cellules de la colonne 9 à 100 de la feuille 1, si la cellule de la ligne 2 de la colonne concerné ainsi que celles de la ligne 2 des 6 colonnes précédentes ne sont pas égales à la cellule D4 de la feuille 2 ou à cette même cellule +1 alors on supprime la colonne concernés
j'aimerais donc savoir s'il est possible d'indiquer en une ligne de code : si la cellule ... et les 6 précédentes sont différentes de ... alors blablabla.
Si qqun peut m'aider ca serait super sympa