Discussion :

[nb_fr31]

salut
je veux récupéré la valeur max d'une colonne dans une var , j'ai ce code mais il fait que l'affichage

Code :

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

1
2
3
Public Sub vev()
MsgBox Application.WorksheetFunction.Max(Range("d1:d" & Range("d65530").End(xlUp).Row))
End Sub

[Alqualonde]

Si j'ai bien compris le problème voici un exemple (pour mettre la valeur max récupérée dans la cellule A1)

Code :

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

1
2
3
Sub essai()
Cells(1, 1).Value = Application.WorksheetFunction.Max(Range("d1:d" & Range("d65530").End(xlUp).Row)) 'Cells(1,1) correspond à la cellule A1
End Sub

[gedechp]

tu affiche le resultat dans une msgbox
met le dans une variable et voila

Code :

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

1
2
3
4
Public Sub vev()
Dim mapetitevariable As Long
mapetitevariable = Application.WorksheetFunction.Max(Range("d1:d" & Range("d65530").End(xlUp).Row))
End Sub

cordialement
gerard

[nb_fr31]

merci pour ta réponce mais moi je veux récupérer cette valeur max pour l'utiliser dans une boucle , autrement dit si ma val max =7 alors for i=2 to 7
et ma boucle va servir à insérer des colonne selon val max de la colonne 1
si val max =7 alors j'insère 7 nouvelles colonne

[Alqualonde]

D'accord et bien tu n'as plus qu'à utiliser le code de gedechp alors

[nb_fr31]

merci à tout le monde mais es que ont peut boucler dans insertion des colonnes???????????

[Alqualonde]

Oui pas de souci (cf ton autre post)