Bouton action sélection

Bonjour,

Je souhaiterais réaliser (programmer) un bouton d'action me permettant de choisir la colonne et le nombre de ligne à analyser dans cette même colonne.

Par exemple:

Un premier message:

Renseigner la colonne souhaitez-vous analyser?

Un deuxième message:

Renseigner le nombre de ligne que vous souhaitezanalyser?

Est-ce possible?

Pouvez-vous m'aider?

D'avance merci

Bonjour

Voir fichier joins.

Merci!!!!

Mais comment faire une moyenne de la zone sélectionné dans une cellule de mon choix?

d'avance merci

Chahine a écrit :

Bonjour,

Je souhaiterais réaliser (programmer) un bouton d'action me permettant de choisir la colonne et le nombre de ligne à analyser dans cette même colonne.

Par exemple:

Un premier message:

Renseigner la colonne souhaitez-vous analyser?

Un deuxième message:

Renseigner le nombre de ligne que vous souhaitezanalyser?

Est-ce possible?

Pouvez-vous m'aider?

D'avance merci

Sub Mk()
Dim colonne, destination As String
Dim ligne As Integer
Dim plage As Range
colonne = InputBox("Colonne à analyser")
ligne = InputBox("Nombre de ligne à analyser")
Set plage = Range(Cells(1, colonne), Cells(ligne, colonne))
destination = InputBox("Cellule de destination de la moyenne ?")
Cells(Mid(destination, 2, 5), Mid(destination, 1, 1)) = Application.WorksheetFunction.Average(plage)
End Sub

Merci

Mais prenez celui-ci qui est un pouillème optimisé pour éviter un bug...

Sub Mk()
Dim colonne As String
Dim destination As String
Dim ligne As Integer
Dim plage As Range
colonne = InputBox("Colonne à analyser")
ligne = InputBox("Nombre de ligne à analyser")
Set plage = Range(Cells(1, colonne), Cells(ligne, colonne))
destination = InputBox("Cellule de destination de la moyenne ?")
Range(destination) = Application.WorksheetFunction.Average(plage)
End Sub

Message reçu ...

Merci

Est-ce que cela répond exactement à ce que vous voulez ?

Bonjour,

Oui... C'est parfait!!!