Insertion de colonnes

Bonjour,

J'ai une problématique d'insertion de colonnes ; et je suis novice en VBA .

J'ai un tableau qui commence à la deuxième ligne de ma feuille et qui s'arrête en colonne E.

J'aimerais insérer autant de colonnes que de mois écoulés jusqu’aujourd’hui avant la colonne E et écrire ces mois sur la première ligne laissée vide.

Merci pour votre aide à ce sujet

Sans fichier, il sera difficile de répondre entièrement à ta question.

Cependant, un début de réponse pour l'insertion des colonnes.

Faire ALT F11 pour ouvrier l'éditeur VBE et voir module Feuil1 (Feuil1).

A te relire.

Cdlt

Option Explicit
Private Sub cmdInsererMois_Click()
Dim nbMois As Integer, i As Integer
    Application.ScreenUpdating = False
    nbMois = Month(Date)
    For i = 1 To nbMois
        Columns(1).Insert
    Next
    For i = 1 To nbMois
        With Cells(2, i)
            .Value = DateSerial(Year(Date), i, 1)
            .NumberFormat = "mmmm"
        End With
    Next
End Sub

Bonjour, Jean-Eric

Excellent ce petit programme pour insérer les mois de l'année

Une question : Comment déplacer le bouton de commande "Go"qui se déplace vers la droite avec les colonnes ?

J'ai pu déplacer la ligne d'affichage des dates dans la macro

Un grand merci d'avance pour ta réponse.

Bonne journée

Papy Pierrot de Belgique

Bonjour,

Je crains de ne pas comprendre ta question.

Quoiqu'il en soit :

Menu Développeur / Mode création

Clic-droit sur le contrôle ActiveX

Format de contrôle / Propriétés

Tu as alors 3 possibilités de positionnement du contrôle

Après avoir effectué ton choix, tu valides et tu quittes le mode création.

Cdlt.

Re-bpnjour, Jean-Eric,

C'est parfait, je fais démarrer la macro dans la deuxième colonne et comme cela, le bouton de commande reste en colonne A

Merci de ta réponse et de ta gentillesse

Amicalement

Pierrot

Merci Jean Eric pour ce code qui fonctionne bien.

Par contre, comment modifier la cellule à partir de laquelle commence l'insertion des mois ?

J'aimerais que ça commence à partir de la colonne E1 de ma feuille. J'ai vu que tu as mis :

 With Cells(2, i)

et donc ça commence à la deuxième ligne de ma feuille ; je souhaite que ça commence à la première ligne à partir de la cellule E1.

Merci encore

Bonjour,

 With Cells(1, i + 4)

aussi simple que ça

Merci beaucoup. Je reviendrai certainement parce que je suis en train de construire des reportings de fou

Comment on fait pour mettre "Résolu" ?

Bon je me suis avancé trop vite à dire que c'était résolu.

En PJ, mon fichier excel dans lequel je ferai l'insertion de mois. quand je lance ta macro, elle me décale mes tableaux...

En fait, j'aimerais que dans ma première ligne entre les colonnes Objectif et Evolution vs M-1, les mois s'insèrent jusqu'au mois en cours.

J'espère que je suis plus clair.

Merci encore

Re,

Tu peux clore ce sujet et en ouvrir un autre car les questions sont différentes.

Profite pour modifier ton fichier et expliquer correctement ce que tu souhaites (avec un exemple de résultat).

Cdlt