Colonnes invisibles

Bonjour le forum,

je suis novice en excel et encore plus en VBA. je viens vers vous pour demander de l'aide afin de trouver une solution à mon problème. (SVP)

j'ai un fichier avec plusieurs colonnes de A à Z. J'aimerai en garder 11 (C N P Q R S T U V W Z) et après en rajouter 7 nouvelles.

j'ai essayé en cvréant une macro et j'ai pu le faire mais le problème c'est que dans nouveau tableau j'ai un saut de colonnes (je passe de la colonne K à la colonne Q directement). Ceci cause un pbm quand j'exécute la macro dans un autre classeur.

J'ai joint le fichier en question. dans le feuillet "test" se trouve le tableau de départ et dans le feuillet "filtrage" se trouve le tableau après exécution de la macro.

PS: j'arrive pas à insérer un menu déroulant (oui/non) dans la colonne opération réalisée. une astuce???

je vous remercie d'avance pour le coup de main.

Bonjour

Dans la feuille test, pourquoi les colonnes entre Z à AF sont-elles masquées ??

Crdlt

je ne sais pas tout me parvient comme cela d'un logiciel dont l'accès m'est interdit.

Bonjour,

Je te propose ceci, les colonnes masquées entre Z et AF sont le souci à mon avis.

Sub Test()

'Suppression des colonnes
Range("A:B,D:M,O:O,X:Y").Select
    Selection.Delete Shift:=xlToLeft
'Intégration des valeurs aux cellules d'entête
    Range("L5").Value = "Opération réalisée"
    Range("M5").Value = "Prévue"
    Range("N5").Value = "Demande"
    Range("O5").Value = "Accord"
    Range("P5").Value = "Restitution prévue"
    Range("Q5").Value = "Restituée"
    Range("R5").Value = "Observations (notamment motif si accord tardif)"
    Range("M4").Value = "Heures"
'Fusion de certaines cellules
Range("L4:L5,M4:Q4,R4:R5").Select
    Selection.Merge
    Columns("L:R").EntireColumn.AutoFit
'Réglage police d'écriture
Range("L4:R5").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
'Réglage Couleur de fond
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
'Réglage position du texte
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
'Quadrillage du tableau
Range("A4:R387").Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

Range("L6:L387").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="oui,non"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Teste et dis nous si ça fonctionne !

@+

@ Reco , ça fonctionne .

Merci à tous