Désolé je ne sais pas si mon message est dans la bonne rubrique ou non
car mon aide VBA ne connait pas EntireColumn
On Error Resume Next '(pour le cas où aucune vide) Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete On Error GoTo 0
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOn Error Resume Next '(pour le cas où aucune vide) Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete On Error GoTo 0
Sub testcolonne() Dim feuille(1 To 3) As String feuille(1) = "test1" feuille(2) = "test2" feuille(3) = "test3" On Error Resume Next '(pour le cas où aucune vide) Sheets(feuille(1)).Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete Sheets(feuille(2)).Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete Sheets(feuille(3)).Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete On Error GoTo 0 End Sub
Sheets("test1").Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete Sheets("test2").Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete Sheets("test3").Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
Sheets(feuille(i)).Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
Dim I as Integer, arrFeuilles as Variant arrfeuilles = Array("test1", "test2", "test3") For I = 0 to Ubound(arrFeuilles) Sheets(arrFeuilles(i)).Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete Next
For I = 1 to 3 sheets("test" & i).Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete Next
Sheets(feuille(1)).Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete Sheets(feuille(2)).Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete Sheets(feuille(3)).Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
Sheets(feuille(2)).Range("B2:K2").SpecialCells(xlErrRef).EntireColumn.Delete
Sheets(feuille(1)).Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
Sub testcolonne() Dim feuille(1 To 3) As String feuille(1) = "test1" feuille(2) = "test2" feuille(3) = "test3" On Error Resume Next '(pour le cas où aucune vide) Sheets(feuille(1)).Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True Sheets(feuille(2)).Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True Sheets(feuille(3)).Range("B2:K2").SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True On Error GoTo 0 End Sub
Alors non j'ai pas créé d'array
Dim feuille(1 To 3) As String