C
carlos
Guest
Salut,
J'aimerais SIMPLIFIER la macro suivante par une boucle sur les Titres de 1 à 8 , du genre
For Titre = 1 to 8 etc ...
Sub Eliminer_champs_inutiles()
Application.ScreenUpdating = False
'Titre des entetes pour le choix des colonnes à conserver
'Sur la feuille"listes" :
Sheets("listes").Select
TITRE1 = Worksheets("listes").Cells(1, 4)
TITRE2 = Worksheets("listes").Cells(2, 4)
TITRE3 = Worksheets("listes").Cells(3, 4)
TITRE4 = Worksheets("listes").Cells(4, 4)
TITRE5 = Worksheets("listes").Cells(5, 4)
TITRE6 = Worksheets("listes").Cells(6, 4)
TITRE7 = Worksheets("listes").Cells(7, 4)
TITRE8 = Worksheets("listes").Cells(8, 4)
'Sur la feuille"f_ele" :
Sheets("F_ELE").Select
For i = 1 To 12
For La_colonne = 1 To 150
Le_Titre = Cells(1, La_colonne).Value
If Le_Titre <> TITRE1 And Le_Titre <> TITRE2 And Le_Titre <> TITRE3 And Le_Titre <> TITRE4 And Le_Titre <> TITRE5 And Le_Titre <> TITRE6 And Le_Titre <> TITRE7 And Le_Titre <> TITRE8 Then
Cells(1, La_colonne).EntireColumn.Delete
End If
Next
Range("A1").Select
Next
End Sub
C'est un peu embrouillé dans ma tete.
C peut etre normal le 1 janvier.
Merci
J'aimerais SIMPLIFIER la macro suivante par une boucle sur les Titres de 1 à 8 , du genre
For Titre = 1 to 8 etc ...
Sub Eliminer_champs_inutiles()
Application.ScreenUpdating = False
'Titre des entetes pour le choix des colonnes à conserver
'Sur la feuille"listes" :
Sheets("listes").Select
TITRE1 = Worksheets("listes").Cells(1, 4)
TITRE2 = Worksheets("listes").Cells(2, 4)
TITRE3 = Worksheets("listes").Cells(3, 4)
TITRE4 = Worksheets("listes").Cells(4, 4)
TITRE5 = Worksheets("listes").Cells(5, 4)
TITRE6 = Worksheets("listes").Cells(6, 4)
TITRE7 = Worksheets("listes").Cells(7, 4)
TITRE8 = Worksheets("listes").Cells(8, 4)
'Sur la feuille"f_ele" :
Sheets("F_ELE").Select
For i = 1 To 12
For La_colonne = 1 To 150
Le_Titre = Cells(1, La_colonne).Value
If Le_Titre <> TITRE1 And Le_Titre <> TITRE2 And Le_Titre <> TITRE3 And Le_Titre <> TITRE4 And Le_Titre <> TITRE5 And Le_Titre <> TITRE6 And Le_Titre <> TITRE7 And Le_Titre <> TITRE8 Then
Cells(1, La_colonne).EntireColumn.Delete
End If
Next
Range("A1").Select
Next
End Sub
C'est un peu embrouillé dans ma tete.
C peut etre normal le 1 janvier.
Merci