Christian0258
XLDnaute Accro
Bonjour à tout le forum,
Pourriez-vous me dire comment ajouter une condition dans cette macro, de (Dead78), qui supprime les colonnes dès qu'elle trouve le mot "RH" ...donc je souhaite ajouter "F" dans cette action :
Sub Supprime()
Application.EnableEvents = False
Application.ScreenUpdating = False
For I = 4 To 1 Step -1 'disons les 4 premières lignes
For J = 367 To 1 Step -1 'disons les 367 premières colonnes
If Cells(I, J).Value = "RH" Then ' je souhaite ajouter Or .Value = "F" Then mais je n'y arrive pas ? Columns(J).Delete
End If
Next
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Merci pour votre aide.
Bien à vous,
Christian
Pourriez-vous me dire comment ajouter une condition dans cette macro, de (Dead78), qui supprime les colonnes dès qu'elle trouve le mot "RH" ...donc je souhaite ajouter "F" dans cette action :
Sub Supprime()
Application.EnableEvents = False
Application.ScreenUpdating = False
For I = 4 To 1 Step -1 'disons les 4 premières lignes
For J = 367 To 1 Step -1 'disons les 367 premières colonnes
If Cells(I, J).Value = "RH" Then ' je souhaite ajouter Or .Value = "F" Then mais je n'y arrive pas ? Columns(J).Delete
End If
Next
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Merci pour votre aide.
Bien à vous,
Christian