Discussion :

[rembliec]

Bonjour à tous,

J'ai un fichier Excel dans lequel mes colonnes sont des années :

Colonne A = Année 2007 Prévu
Colonne B = Année 2007 Payé

Les lignes de chacune de ces colonnées contiennent des formules.

Mes deux dernières colonnes sont :
Colonne X : Total Prévu
Colonne Y : Total Payé

Je souhaite faire une macro qui me permet d'insérer au fil du temps des années, soit 2 colonnes "Année XXXX Prévu" et "Année XXXX Payé" avant mes colonnes "total". Ces 2 colonnes nouvellement créees doivent être un "copier/coller" des 2 dernières colonnes situées avant mes colonnes total.

Je me perds dans le comptage des colonnes en VBA.Pour faire simple je voudrais copier les 2 dernières colonnes situées avant les 2 dernières colonnes de mon tableau, et les insérer avant les 2 dernières colonnes de mon tableau! Dis comme ça cela parait simple mais en fait.....Dur dur.

Quelqu'un peut me donner un coup de main?

Merci par avance.

Merci de votre aide.

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim c As Range
    With Worksheets("Feuil1").Rows(1)
        Set c = .Find("Total")
        If Not c Is Nothing Then
            NoCol = c.Column
        End If
        MsgBox NoCol
    End With
    Columns(NoCol).Insert Shift:=xlToRight
    Columns(NoCol).Insert Shift:=xlToRight

Insert deux colonnes avant la colonne "Total"

[rembliec]

Bonjour ouskel'n'or,

Merci beaucoup pour ta réponse. J'ai essayé ton code. Lorsque je lance la macro j'ai un message Excel avec un bouton "OK" et lorque je clique sur ce bouton j'ai un message d'erreur d'exécution '1004' le debogeur me surligne en jaune la ligne de code suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Columns(NoCol).Insert Shift:=xlToRight

Sais-tu quel peut-être le problème?

[ouskel'n'or]

Oui, j'ai supposé qu'il existait une colonne "Total". Corrige ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim c As Range, NoCol as byte 'integer sur 2007
    With Worksheets("Feuil1").Rows(1)
        Set c = .Find("Total")
        If Not c Is Nothing Then
            NoCol = c.Column
            Columns(NoCol).Insert Shift:=xlToRight
            DoEvents
            Columns(NoCol).Insert Shift:=xlToRight
            DoEvents
        End If
End With

DoEvents n'est peut-être pas nécessaire mais ne nuit pas.
Tu dis

[rembliec]

Tu as bien supposé j'ai une colonne total. ton nouveau code me supprmie la boite de message et c'est mieux. quant au message d'erreur c'est juste que mon total est Row7 et non en Row1.
Pour que ma macro copie les 2 colonnes précédent les 2 colonnes vides insérées, j'ai modifié ton code comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim c As Range, NoCol As Byte 'integer sur 2007
    With Worksheets("Budget Global au réel").Rows(7)
        Set c = .Find("Total")
        If Not c Is Nothing Then
            NoCol = c.Column
            Columns(NoCol).Insert Shift:=xlToRight
            Columns(NoCol - 1).Select
            Selection.Copy            DoEvents
            Columns(NoCol).Insert Shift:=xlToRight
            Columns(NoCol - 1).Select
            Selection.Copy
            DoEvents
        End If
End With

Il me fait bien un copier des deux colonnes que je veux mais j'ai une colonne vide avant mon total. Je peux corriger le code ou il faut que j'ajoute du code pour supprimer ma colonne vide avant le total?

Merci par avance.

[rembliec]

c'est bon. c'est résolu. en mauvais débutant que je suis je faisais n'importe quoi.
Au lieu d'insérer 2 colonnes vides puis faire un copier des 2 colonnes précédentes puis un coller dans les colonnes vides insérées, il fallait copier ma dernière colonne année et l'insérer devant mon total grâce à ton code!

Merci beaucoup.

Bon courage à tous