plus grande valeur d'une colonne

[GiBus]

[RESOLU]
Bonjour,

comment dans un projet VBA, rajouter un nb de colonne en fonction de la plus grande valeur d'un colonne.

Si la plus grande valeur de la colonne A est 12, rajouter 13 colonne a partir de la colonne C

Merci

 

[jp14]

Re : plus grande valeur d'une colonne

Bonjour

Il faudrait expliciter le terme "rajouter 13 colonne a partir de la colonne C".

Un exemple serait le bienvenu.

JP

 

[Robert]

Re : plus grande valeur d'une colonne

Bonjour Gibus, JP14, bonjour le forum,

Je te porpose la macro suivante :

Sub Macro1()
Dim nm As Integer 'déclare la variable nm (Nombre Maximum)
nm = Application.WorksheetFunction.Max(Range("A1:A" & Range("A65536").End(xlUp).Row))
Columns("D:D").Select 'sélectionne la colonne D
For x = 1 To nm +1 'boucle sur le nombre maximum plus 1
    Selection.Insert Shift:=xlToRight 'insère une colonne après
Next x 'prochaine valeur incrémentée de 1
End Sub

 

[GiBus]

Re : plus grande valeur d'une colonne

ça marche nickel
merci