selectionner la cellule du dessous si cellule pleine
3 réponses
gregu
Bonjour à tous,
J'aimerai faire une macro qui selectionne la cellule du dessous si la
cellule selectionner n'est pas vide .
Pouriez vous me donner la methode à utiliser ?
Merci d'avance et bravo pour tout !
If Not IsEmpty(ActiveCell.Offset(1, 0)) Then ActiveCell.Offset(1, 0).Select
JB
michdenis
Bonjour Gregu,
Voici un exemple de macro. Cette dernière boucle jusqu'au moment ou la cellule active est vide ...et ce dans la même colonne !!
'-------------------- Sub test() Dim NextCell As Range Set NextCell = ActiveCell Do While NextCell <> "" ActiveCell.Offset(1).Select Set NextCell = ActiveCell Loop Set NextCell = Nothing End Sub '--------------------
Salutations!
"gregu" a écrit dans le message de news: Bonjour à tous,
J'aimerai faire une macro qui selectionne la cellule du dessous si la cellule selectionner n'est pas vide . Pouriez vous me donner la methode à utiliser ? Merci d'avance et bravo pour tout !
Bonjour Gregu,
Voici un exemple de macro. Cette dernière boucle jusqu'au moment
ou la cellule active est vide ...et ce dans la même colonne !!
'--------------------
Sub test()
Dim NextCell As Range
Set NextCell = ActiveCell
Do While NextCell <> ""
ActiveCell.Offset(1).Select
Set NextCell = ActiveCell
Loop
Set NextCell = Nothing
End Sub
'--------------------
Salutations!
"gregu" <gregu@wanadoo.fr> a écrit dans le message de news: eV0XU12TGHA.4300@TK2MSFTNGP14.phx.gbl...
Bonjour à tous,
J'aimerai faire une macro qui selectionne la cellule du dessous si la
cellule selectionner n'est pas vide .
Pouriez vous me donner la methode à utiliser ?
Merci d'avance et bravo pour tout !
Voici un exemple de macro. Cette dernière boucle jusqu'au moment ou la cellule active est vide ...et ce dans la même colonne !!
'-------------------- Sub test() Dim NextCell As Range Set NextCell = ActiveCell Do While NextCell <> "" ActiveCell.Offset(1).Select Set NextCell = ActiveCell Loop Set NextCell = Nothing End Sub '--------------------
Salutations!
"gregu" a écrit dans le message de news: Bonjour à tous,
J'aimerai faire une macro qui selectionne la cellule du dessous si la cellule selectionner n'est pas vide . Pouriez vous me donner la methode à utiliser ? Merci d'avance et bravo pour tout !
gregu
Magnifique ! Merci beaucoup pour votre réponse
"michdenis" a écrit dans le message de news:
Bonjour Gregu,
Voici un exemple de macro. Cette dernière boucle jusqu'au moment ou la cellule active est vide ...et ce dans la même colonne !!
'-------------------- Sub test() Dim NextCell As Range Set NextCell = ActiveCell Do While NextCell <> "" ActiveCell.Offset(1).Select Set NextCell = ActiveCell Loop Set NextCell = Nothing End Sub '--------------------
Salutations!
"gregu" a écrit dans le message de news:
Bonjour à tous,
J'aimerai faire une macro qui selectionne la cellule du dessous si la cellule selectionner n'est pas vide . Pouriez vous me donner la methode à utiliser ? Merci d'avance et bravo pour tout !
Magnifique ! Merci beaucoup pour votre réponse
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eYrPCC3TGHA.4080@TK2MSFTNGP10.phx.gbl...
Bonjour Gregu,
Voici un exemple de macro. Cette dernière boucle jusqu'au moment
ou la cellule active est vide ...et ce dans la même colonne !!
'--------------------
Sub test()
Dim NextCell As Range
Set NextCell = ActiveCell
Do While NextCell <> ""
ActiveCell.Offset(1).Select
Set NextCell = ActiveCell
Loop
Set NextCell = Nothing
End Sub
'--------------------
Salutations!
"gregu" <gregu@wanadoo.fr> a écrit dans le message de news:
eV0XU12TGHA.4300@TK2MSFTNGP14.phx.gbl...
Bonjour à tous,
J'aimerai faire une macro qui selectionne la cellule du dessous si la
cellule selectionner n'est pas vide .
Pouriez vous me donner la methode à utiliser ?
Merci d'avance et bravo pour tout !
Voici un exemple de macro. Cette dernière boucle jusqu'au moment ou la cellule active est vide ...et ce dans la même colonne !!
'-------------------- Sub test() Dim NextCell As Range Set NextCell = ActiveCell Do While NextCell <> "" ActiveCell.Offset(1).Select Set NextCell = ActiveCell Loop Set NextCell = Nothing End Sub '--------------------
Salutations!
"gregu" a écrit dans le message de news:
Bonjour à tous,
J'aimerai faire une macro qui selectionne la cellule du dessous si la cellule selectionner n'est pas vide . Pouriez vous me donner la methode à utiliser ? Merci d'avance et bravo pour tout !
