Macro insertion de colonne

[xade]

Bonjour,

je souhaiterais avoir une macro qui insère une colonne, et donne une valeur définie pour chaque cellule (ici la valeur entière de la cellule sur la colonne suivante/100).

Je débute en VBA donc je sais faire la macro via l'enregistreur de macro, et cela marche très bien. Mais si le nombre de lignes de ma base de données change, alors soit il me manque des valeurs, ou soit j'en ai en trop.

A la limite, ce qui serait parfait c'est la colonne qui s'insère soit sur la gauche (donc colonne -1) de ma cellule active.

Je joins un fichier exemple en espèrant être clair.

Merci d'avance pour toute aide

 

[frangy]

Re : Macro insertion de colonne

Bonjour,

J’ai ajouté la détermination du numéro de la dernière ligne renseignée en colonne A.

Sub InsereColonne()
Dim DerLigne As Long
    With Worksheets("Feuil1")
        DerLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        .Columns("A:A").Insert Shift:=xlToRight
        .Range("A1") = "Famille"
        .Range("A2").Formula = "=INT($B2/100)"
        .Range("A2").AutoFill Destination:=.Range("A2:A" & DerLigne)
    End With
    Set Plage = Nothing
End Sub

A+

 

[xade]

Re : Macro insertion de colonne

Bonjour Frangy,

merci cela fonctionne très bien. Y-a-t'il moyen de pousser le code pour que cela marche avec n'importe quelle colonne? Par exemple, je clic en D2, donc je souhaite que la colonne avec le calcul s'insère en C. Dans le même esprit, il faudrait que ce code fonctionne quelque que soit le nom de la feuille.

Merci

 

[frangy]

Re : Macro insertion de colonne

Dans l’exemple suivant, l’insertion s’effectue par rapport à la feuille active et la colonne de la cellule active.

Sub InsereColonne()
Dim DerLigne As Long
Dim Colonne As String
    With ActiveSheet
        Colonne = Split(ActiveCell.Offset(0, 1).Address, "$")(1)
        ActiveCell.EntireColumn.Insert Shift:=xlToRight
        DerLigne = .Range(Colonne & .Rows.Count).End(xlUp).Row
        .Cells(1, ActiveCell.Column) = "Famille"
        .Cells(2, ActiveCell.Column).Formula = "=INT(" & Colonne & "2/100)"
        .Cells(2, ActiveCell.Column).AutoFill Destination:=.Range(Cells(2, ActiveCell.Column), .Cells(DerLigne, ActiveCell.Column))
    End With
    Set Plage = Nothing
End Sub

A+

 

[xade]

Re : Macro insertion de colonne

Génial, merci beaucoup Frangy !

C'est exactement ce que je voulais, merci encore