Excel sélection n cellules
Fermé
xerxcor
Messages postés
3
Date d'inscription
lundi 5 mars 2007
Statut
Membre
Dernière intervention
28 juin 2009
-
28 juin 2009 à 18:14
xerxcor - 28 juin 2009 à 21:57
xerxcor - 28 juin 2009 à 21:57
A voir également:
- Excel sélection n cellules
- Liste déroulante excel - Guide
- Formule excel - Guide
- Protéger des cellules excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Déplacer une colonne excel - Guide
3 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
28 juin 2009 à 19:14
28 juin 2009 à 19:14
Bonsoir
essaies:
tu cliques dans la colonne B pour avoir la celllule de départ puis dans A1
essaies:
Function chercher_max(depart As Range, nbre As Byte) As Double
Dim fin As Long
fin = depart.Row + nbre - 1
chercher_max = Application.Large(Range(depart.Address & ":$B$" & fin), 1)
End Function
tu cliques dans la colonne B pour avoir la celllule de départ puis dans A1
Tout d'abord, merci de la rapidité de la réponse.
J'ai testé et ça marche nickel pour la colonne B et en plus c'est super court
Par contre pour réutiliser cette fonction dans une autre colonne (disons C) la plage de recherche comprend alors les colonnes B et C (à cause du $B$). Comment faire pour rester dans la colonne de départ?
En regardant ton modèle, je vois bien une fonction column qui me renvoie le numéro de la colonne de départ mais comment l'appliquer dans la fonction range?
J'ai testé et ça marche nickel pour la colonne B et en plus c'est super court
Par contre pour réutiliser cette fonction dans une autre colonne (disons C) la plage de recherche comprend alors les colonnes B et C (à cause du $B$). Comment faire pour rester dans la colonne de départ?
En regardant ton modèle, je vois bien une fonction column qui me renvoie le numéro de la colonne de départ mais comment l'appliquer dans la fonction range?
j'ai rajouté ça, dites moi ce que vous en pensez
Function chercher_max(depart As Range, nbre As Byte) As Double
Dim fin, colonne As Long
fin = depart.Row + nbre - 1
colonne = depart.Column
'MsgBox "fin =" & fin
'MsgBox "colonne" & colonne
'MsgBox "cellule " & Cells(fin, colonne).Address
chercher_max = Application.Large(Range(depart.Address, Cells(fin, colonne)), 1)
End Function
Function chercher_max(depart As Range, nbre As Byte) As Double
Dim fin, colonne As Long
fin = depart.Row + nbre - 1
colonne = depart.Column
'MsgBox "fin =" & fin
'MsgBox "colonne" & colonne
'MsgBox "cellule " & Cells(fin, colonne).Address
chercher_max = Application.Large(Range(depart.Address, Cells(fin, colonne)), 1)
End Function