La cellule active est donc la première cellule vide après ma liste. A partir
de cette cellule, je veux ajouter les noms. J'avais pensé à un truc du genre
:
Range("ActiveCells" & mavar).Select
Mais sans trop de surprise, ça ne marche pas !
Question : comment détermine-t-on en vba la cellule active ? Comment puis-je
en partant de la cellule active et en ajoutant n cellules (ou "n" sera une
variable) déterminer une nouvelle plage ?
la colonne, la plage commence à la deuxième ligne. Ceci corrige
'--------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1 If derlg = 2 And [a1] = "" Then derlg = 1 n = 5 'A adapter Range("a" & derlg & ":a" & derlg + n - 1).Select End Sub '------- JJ
"j-pascal" a écrit dans le message de news: O4Y%
Re,
Je viens de m'apercevoir que lorsqu'il n'y a pas de données initiales dans la colonne, la plage commence à la deuxième ligne. C'est normal ?
JP
Jacky wrote:
Re....
.... néanmoins ce que je cherche, c'est sélectionner la plage qui part de la première cellule vide (après la dernière cellule pleine !) + "n" '---------
Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1 n = 5 'A adapter Range("a" & derlg & ":a" & derlg + n).Select End Sub '-------
"j-pascal" a écrit dans le message de news: %
Bonsoir Jacky,
Ta procédure décale bien de "n" cellules en dessous de la dernière cellule pleine ; néanmoins ce que je cherche, c'est sélectionner la plage qui part de la première cellule vide (après la dernière cellule pleine !) + "n" cellules. J'ai essayé plein de trucs et ça ne marche pas (erreur de compilation !).
Peut-être @ + ?
JP
wrote:
Bonjour, Essaie ceci: '----------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row Range("a" & derlg).Select MsgBox "Dernière cellule occupée de la feuille 1 colonne A est : " & ActiveCell.Address(0, 0) decalage = 5 Range("a" & derlg + decalage).Select MsgBox "La selection décalée de : " & decalage & " lignes" & Chr(10) & "Cellule : " & ActiveCell.Address(0, 0) End Sub '----------
"j-pascal" a écrit dans le message de news: u8%
Bonjour,
Je souhaiterais ajouter un certain nombre de noms à la fin d'une liste. J'ai ceci :
La cellule active est donc la première cellule vide après ma liste. A partir de cette cellule, je veux ajouter les noms. J'avais pensé à un truc du genre :
Range("ActiveCells" & mavar).Select
Mais sans trop de surprise, ça ne marche pas !
Question : comment détermine-t-on en vba la cellule active ? Comment puis-je en partant de la cellule active et en ajoutant n cellules (ou "n" sera une variable) déterminer une nouvelle plage ?
Merci d'avance pour vos (éventuelles) réponses.
JP
Re..
la colonne, la plage commence à la deuxième ligne.
Ceci corrige
'---------
Sub jj()
derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1
If derlg = 2 And [a1] = "" Then derlg = 1
n = 5 'A adapter
Range("a" & derlg & ":a" & derlg + n - 1).Select
End Sub
'-------
JJ
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
O4Y%232nM5GHA.3576@TK2MSFTNGP02.phx.gbl...
Re,
Je viens de m'apercevoir que lorsqu'il n'y a pas de données initiales dans
la colonne, la plage commence à la deuxième ligne. C'est normal ?
JP
Jacky wrote:
Re....
.... néanmoins ce que je cherche, c'est sélectionner la plage qui
part de la première cellule vide (après la dernière cellule pleine
!) + "n"
'---------
Sub jj()
derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1
n = 5 'A adapter
Range("a" & derlg & ":a" & derlg + n).Select
End Sub
'-------
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
%23Dq47RK5GHA.3836@TK2MSFTNGP06.phx.gbl...
Bonsoir Jacky,
Ta procédure décale bien de "n" cellules en dessous de la dernière
cellule pleine ; néanmoins ce que je cherche, c'est sélectionner la
plage qui part de la première cellule vide (après la dernière
cellule pleine !) + "n" cellules. J'ai essayé plein de trucs et ça
ne marche pas (erreur de compilation !).
Peut-être @ + ?
JP
wrote:
Bonjour,
Essaie ceci:
'-----------
Sub jj()
derlg = Sheets("Feuil1").Range("a65536").End(3).Row
Range("a" & derlg).Select
MsgBox "Dernière cellule occupée de la feuille 1 colonne A est : "
& ActiveCell.Address(0, 0)
decalage = 5
Range("a" & derlg + decalage).Select
MsgBox "La selection décalée de : " & decalage & " lignes" &
Chr(10) & "Cellule : " & ActiveCell.Address(0, 0)
End Sub
'----------
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de
news: u8%23JUIG5GHA.3444@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je souhaiterais ajouter un certain nombre de noms à la fin d'une
liste. J'ai ceci :
La cellule active est donc la première cellule vide après ma
liste. A partir de cette cellule, je veux ajouter les noms.
J'avais pensé à un truc du genre :
Range("ActiveCells" & mavar).Select
Mais sans trop de surprise, ça ne marche pas !
Question : comment détermine-t-on en vba la cellule active ?
Comment puis-je en partant de la cellule active et en ajoutant n
cellules (ou "n" sera une variable) déterminer une nouvelle plage ?
la colonne, la plage commence à la deuxième ligne. Ceci corrige
'--------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1 If derlg = 2 And [a1] = "" Then derlg = 1 n = 5 'A adapter Range("a" & derlg & ":a" & derlg + n - 1).Select End Sub '------- JJ
"j-pascal" a écrit dans le message de news: O4Y%
Re,
Je viens de m'apercevoir que lorsqu'il n'y a pas de données initiales dans la colonne, la plage commence à la deuxième ligne. C'est normal ?
JP
Jacky wrote:
Re....
.... néanmoins ce que je cherche, c'est sélectionner la plage qui part de la première cellule vide (après la dernière cellule pleine !) + "n" '---------
Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1 n = 5 'A adapter Range("a" & derlg & ":a" & derlg + n).Select End Sub '-------
"j-pascal" a écrit dans le message de news: %
Bonsoir Jacky,
Ta procédure décale bien de "n" cellules en dessous de la dernière cellule pleine ; néanmoins ce que je cherche, c'est sélectionner la plage qui part de la première cellule vide (après la dernière cellule pleine !) + "n" cellules. J'ai essayé plein de trucs et ça ne marche pas (erreur de compilation !).
Peut-être @ + ?
JP
wrote:
Bonjour, Essaie ceci: '----------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row Range("a" & derlg).Select MsgBox "Dernière cellule occupée de la feuille 1 colonne A est : " & ActiveCell.Address(0, 0) decalage = 5 Range("a" & derlg + decalage).Select MsgBox "La selection décalée de : " & decalage & " lignes" & Chr(10) & "Cellule : " & ActiveCell.Address(0, 0) End Sub '----------
"j-pascal" a écrit dans le message de news: u8%
Bonjour,
Je souhaiterais ajouter un certain nombre de noms à la fin d'une liste. J'ai ceci :
La cellule active est donc la première cellule vide après ma liste. A partir de cette cellule, je veux ajouter les noms. J'avais pensé à un truc du genre :
Range("ActiveCells" & mavar).Select
Mais sans trop de surprise, ça ne marche pas !
Question : comment détermine-t-on en vba la cellule active ? Comment puis-je en partant de la cellule active et en ajoutant n cellules (ou "n" sera une variable) déterminer une nouvelle plage ?
Merci d'avance pour vos (éventuelles) réponses.
JP
j-pascal
PARFAIT !!
Merci infiniment Jacky, ce code m'est très précieux. J'avais déjà pensé à une autre forme de test conditionnel, mais c'était assurément plus lourd ;-)
Question bête, mais à quoi sert le (3) après ".End" (End(3).Row) ?
JP
Jacky wrote:
Re..
la colonne, la plage commence à la deuxième ligne. Ceci corrige
'--------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1 If derlg = 2 And [a1] = "" Then derlg = 1 n = 5 'A adapter Range("a" & derlg & ":a" & derlg + n - 1).Select End Sub '------- JJ
"j-pascal" a écrit dans le message de news: O4Y%
Re,
Je viens de m'apercevoir que lorsqu'il n'y a pas de données initiales dans la colonne, la plage commence à la deuxième ligne. C'est normal ? JP
Jacky wrote:
Re....
.... néanmoins ce que je cherche, c'est sélectionner la plage qui part de la première cellule vide (après la dernière cellule pleine !) + "n" '---------
Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1 n = 5 'A adapter Range("a" & derlg & ":a" & derlg + n).Select End Sub '-------
"j-pascal" a écrit dans le message de news: %
Bonsoir Jacky,
Ta procédure décale bien de "n" cellules en dessous de la dernière cellule pleine ; néanmoins ce que je cherche, c'est sélectionner la plage qui part de la première cellule vide (après la dernière cellule pleine !) + "n" cellules. J'ai essayé plein de trucs et ça ne marche pas (erreur de compilation !).
Peut-être @ + ?
JP
wrote:
Bonjour, Essaie ceci: '----------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row Range("a" & derlg).Select MsgBox "Dernière cellule occupée de la feuille 1 colonne A est : " & ActiveCell.Address(0, 0) decalage = 5 Range("a" & derlg + decalage).Select MsgBox "La selection décalée de : " & decalage & " lignes" & Chr(10) & "Cellule : " & ActiveCell.Address(0, 0) End Sub '----------
"j-pascal" a écrit dans le message de news: u8%
Bonjour,
Je souhaiterais ajouter un certain nombre de noms à la fin d'une liste. J'ai ceci :
La cellule active est donc la première cellule vide après ma liste. A partir de cette cellule, je veux ajouter les noms. J'avais pensé à un truc du genre :
Range("ActiveCells" & mavar).Select
Mais sans trop de surprise, ça ne marche pas !
Question : comment détermine-t-on en vba la cellule active ? Comment puis-je en partant de la cellule active et en ajoutant n cellules (ou "n" sera une variable) déterminer une nouvelle plage ? Merci d'avance pour vos (éventuelles) réponses.
JP
PARFAIT !!
Merci infiniment Jacky, ce code m'est très précieux.
J'avais déjà pensé à une autre forme de test conditionnel, mais c'était
assurément plus lourd ;-)
Question bête, mais à quoi sert le (3) après ".End" (End(3).Row) ?
JP
Jacky wrote:
Re..
la colonne, la plage commence à la deuxième ligne.
Ceci corrige
'---------
Sub jj()
derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1
If derlg = 2 And [a1] = "" Then derlg = 1
n = 5 'A adapter
Range("a" & derlg & ":a" & derlg + n - 1).Select
End Sub
'-------
JJ
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
O4Y%232nM5GHA.3576@TK2MSFTNGP02.phx.gbl...
Re,
Je viens de m'apercevoir que lorsqu'il n'y a pas de données
initiales dans la colonne, la plage commence à la deuxième ligne.
C'est normal ? JP
Jacky wrote:
Re....
.... néanmoins ce que je cherche, c'est sélectionner la plage qui
part de la première cellule vide (après la dernière cellule pleine
!) + "n"
'---------
Sub jj()
derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1
n = 5 'A adapter
Range("a" & derlg & ":a" & derlg + n).Select
End Sub
'-------
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de
news: %23Dq47RK5GHA.3836@TK2MSFTNGP06.phx.gbl...
Bonsoir Jacky,
Ta procédure décale bien de "n" cellules en dessous de la dernière
cellule pleine ; néanmoins ce que je cherche, c'est sélectionner la
plage qui part de la première cellule vide (après la dernière
cellule pleine !) + "n" cellules. J'ai essayé plein de trucs et ça
ne marche pas (erreur de compilation !).
Peut-être @ + ?
JP
wrote:
Bonjour,
Essaie ceci:
'-----------
Sub jj()
derlg = Sheets("Feuil1").Range("a65536").End(3).Row
Range("a" & derlg).Select
MsgBox "Dernière cellule occupée de la feuille 1 colonne A est : " &
ActiveCell.Address(0, 0)
decalage = 5
Range("a" & derlg + decalage).Select
MsgBox "La selection décalée de : " & decalage & " lignes" &
Chr(10) & "Cellule : " & ActiveCell.Address(0, 0)
End Sub
'----------
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de
news: u8%23JUIG5GHA.3444@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je souhaiterais ajouter un certain nombre de noms à la fin d'une
liste. J'ai ceci :
La cellule active est donc la première cellule vide après ma
liste. A partir de cette cellule, je veux ajouter les noms.
J'avais pensé à un truc du genre :
Range("ActiveCells" & mavar).Select
Mais sans trop de surprise, ça ne marche pas !
Question : comment détermine-t-on en vba la cellule active ?
Comment puis-je en partant de la cellule active et en ajoutant n
cellules (ou "n" sera une variable) déterminer une nouvelle
plage ? Merci d'avance pour vos (éventuelles) réponses.
Merci infiniment Jacky, ce code m'est très précieux. J'avais déjà pensé à une autre forme de test conditionnel, mais c'était assurément plus lourd ;-)
Question bête, mais à quoi sert le (3) après ".End" (End(3).Row) ?
JP
Jacky wrote:
Re..
la colonne, la plage commence à la deuxième ligne. Ceci corrige
'--------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1 If derlg = 2 And [a1] = "" Then derlg = 1 n = 5 'A adapter Range("a" & derlg & ":a" & derlg + n - 1).Select End Sub '------- JJ
"j-pascal" a écrit dans le message de news: O4Y%
Re,
Je viens de m'apercevoir que lorsqu'il n'y a pas de données initiales dans la colonne, la plage commence à la deuxième ligne. C'est normal ? JP
Jacky wrote:
Re....
.... néanmoins ce que je cherche, c'est sélectionner la plage qui part de la première cellule vide (après la dernière cellule pleine !) + "n" '---------
Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1 n = 5 'A adapter Range("a" & derlg & ":a" & derlg + n).Select End Sub '-------
"j-pascal" a écrit dans le message de news: %
Bonsoir Jacky,
Ta procédure décale bien de "n" cellules en dessous de la dernière cellule pleine ; néanmoins ce que je cherche, c'est sélectionner la plage qui part de la première cellule vide (après la dernière cellule pleine !) + "n" cellules. J'ai essayé plein de trucs et ça ne marche pas (erreur de compilation !).
Peut-être @ + ?
JP
wrote:
Bonjour, Essaie ceci: '----------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row Range("a" & derlg).Select MsgBox "Dernière cellule occupée de la feuille 1 colonne A est : " & ActiveCell.Address(0, 0) decalage = 5 Range("a" & derlg + decalage).Select MsgBox "La selection décalée de : " & decalage & " lignes" & Chr(10) & "Cellule : " & ActiveCell.Address(0, 0) End Sub '----------
"j-pascal" a écrit dans le message de news: u8%
Bonjour,
Je souhaiterais ajouter un certain nombre de noms à la fin d'une liste. J'ai ceci :
La cellule active est donc la première cellule vide après ma liste. A partir de cette cellule, je veux ajouter les noms. J'avais pensé à un truc du genre :
Range("ActiveCells" & mavar).Select
Mais sans trop de surprise, ça ne marche pas !
Question : comment détermine-t-on en vba la cellule active ? Comment puis-je en partant de la cellule active et en ajoutant n cellules (ou "n" sera une variable) déterminer une nouvelle plage ? Merci d'avance pour vos (éventuelles) réponses.
JP
Jacky
Re...
mais à quoi sert le (3) après ".End" (End(3).Row) ? C'est le raccourci de "end(xlup)"
Salutations JJ
"j-pascal" a écrit dans le message de news:%
PARFAIT !!
Merci infiniment Jacky, ce code m'est très précieux. J'avais déjà pensé à une autre forme de test conditionnel, mais c'était assurément plus lourd ;-)
Question bête, mais à quoi sert le (3) après ".End" (End(3).Row) ?
JP
Jacky wrote:
Re..
la colonne, la plage commence à la deuxième ligne. Ceci corrige
'--------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1 If derlg = 2 And [a1] = "" Then derlg = 1 n = 5 'A adapter Range("a" & derlg & ":a" & derlg + n - 1).Select End Sub '------- JJ
"j-pascal" a écrit dans le message de news: O4Y%
Re,
Je viens de m'apercevoir que lorsqu'il n'y a pas de données initiales dans la colonne, la plage commence à la deuxième ligne. C'est normal ? JP
Jacky wrote:
Re....
.... néanmoins ce que je cherche, c'est sélectionner la plage qui part de la première cellule vide (après la dernière cellule pleine !) + "n" '---------
Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1 n = 5 'A adapter Range("a" & derlg & ":a" & derlg + n).Select End Sub '-------
"j-pascal" a écrit dans le message de news: %
Bonsoir Jacky,
Ta procédure décale bien de "n" cellules en dessous de la dernière cellule pleine ; néanmoins ce que je cherche, c'est sélectionner la plage qui part de la première cellule vide (après la dernière cellule pleine !) + "n" cellules. J'ai essayé plein de trucs et ça ne marche pas (erreur de compilation !).
Peut-être @ + ?
JP
wrote:
Bonjour, Essaie ceci: '----------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row Range("a" & derlg).Select MsgBox "Dernière cellule occupée de la feuille 1 colonne A est : " & ActiveCell.Address(0, 0) decalage = 5 Range("a" & derlg + decalage).Select MsgBox "La selection décalée de : " & decalage & " lignes" & Chr(10) & "Cellule : " & ActiveCell.Address(0, 0) End Sub '----------
"j-pascal" a écrit dans le message de news: u8%
Bonjour,
Je souhaiterais ajouter un certain nombre de noms à la fin d'une liste. J'ai ceci :
La cellule active est donc la première cellule vide après ma liste. A partir de cette cellule, je veux ajouter les noms. J'avais pensé à un truc du genre :
Range("ActiveCells" & mavar).Select
Mais sans trop de surprise, ça ne marche pas !
Question : comment détermine-t-on en vba la cellule active ? Comment puis-je en partant de la cellule active et en ajoutant n cellules (ou "n" sera une variable) déterminer une nouvelle plage ? Merci d'avance pour vos (éventuelles) réponses.
JP
Re...
mais à quoi sert le (3) après ".End" (End(3).Row) ?
C'est le raccourci de "end(xlup)"
Salutations
JJ
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de
news:%23aUcM9X5GHA.2292@TK2MSFTNGP04.phx.gbl...
PARFAIT !!
Merci infiniment Jacky, ce code m'est très précieux.
J'avais déjà pensé à une autre forme de test conditionnel, mais c'était
assurément plus lourd ;-)
Question bête, mais à quoi sert le (3) après ".End" (End(3).Row) ?
JP
Jacky wrote:
Re..
la colonne, la plage commence à la deuxième ligne.
Ceci corrige
'---------
Sub jj()
derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1
If derlg = 2 And [a1] = "" Then derlg = 1
n = 5 'A adapter
Range("a" & derlg & ":a" & derlg + n - 1).Select
End Sub
'-------
JJ
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
O4Y%232nM5GHA.3576@TK2MSFTNGP02.phx.gbl...
Re,
Je viens de m'apercevoir que lorsqu'il n'y a pas de données
initiales dans la colonne, la plage commence à la deuxième ligne.
C'est normal ? JP
Jacky wrote:
Re....
.... néanmoins ce que je cherche, c'est sélectionner la plage qui
part de la première cellule vide (après la dernière cellule pleine
!) + "n"
'---------
Sub jj()
derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1
n = 5 'A adapter
Range("a" & derlg & ":a" & derlg + n).Select
End Sub
'-------
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de
news: %23Dq47RK5GHA.3836@TK2MSFTNGP06.phx.gbl...
Bonsoir Jacky,
Ta procédure décale bien de "n" cellules en dessous de la dernière
cellule pleine ; néanmoins ce que je cherche, c'est sélectionner la
plage qui part de la première cellule vide (après la dernière
cellule pleine !) + "n" cellules. J'ai essayé plein de trucs et ça
ne marche pas (erreur de compilation !).
Peut-être @ + ?
JP
wrote:
Bonjour,
Essaie ceci:
'-----------
Sub jj()
derlg = Sheets("Feuil1").Range("a65536").End(3).Row
Range("a" & derlg).Select
MsgBox "Dernière cellule occupée de la feuille 1 colonne A est : " &
ActiveCell.Address(0, 0)
decalage = 5
Range("a" & derlg + decalage).Select
MsgBox "La selection décalée de : " & decalage & " lignes" &
Chr(10) & "Cellule : " & ActiveCell.Address(0, 0)
End Sub
'----------
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de
news: u8%23JUIG5GHA.3444@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je souhaiterais ajouter un certain nombre de noms à la fin d'une
liste. J'ai ceci :
La cellule active est donc la première cellule vide après ma
liste. A partir de cette cellule, je veux ajouter les noms.
J'avais pensé à un truc du genre :
Range("ActiveCells" & mavar).Select
Mais sans trop de surprise, ça ne marche pas !
Question : comment détermine-t-on en vba la cellule active ?
Comment puis-je en partant de la cellule active et en ajoutant n
cellules (ou "n" sera une variable) déterminer une nouvelle
plage ? Merci d'avance pour vos (éventuelles) réponses.
mais à quoi sert le (3) après ".End" (End(3).Row) ? C'est le raccourci de "end(xlup)"
Salutations JJ
"j-pascal" a écrit dans le message de news:%
PARFAIT !!
Merci infiniment Jacky, ce code m'est très précieux. J'avais déjà pensé à une autre forme de test conditionnel, mais c'était assurément plus lourd ;-)
Question bête, mais à quoi sert le (3) après ".End" (End(3).Row) ?
JP
Jacky wrote:
Re..
la colonne, la plage commence à la deuxième ligne. Ceci corrige
'--------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1 If derlg = 2 And [a1] = "" Then derlg = 1 n = 5 'A adapter Range("a" & derlg & ":a" & derlg + n - 1).Select End Sub '------- JJ
"j-pascal" a écrit dans le message de news: O4Y%
Re,
Je viens de m'apercevoir que lorsqu'il n'y a pas de données initiales dans la colonne, la plage commence à la deuxième ligne. C'est normal ? JP
Jacky wrote:
Re....
.... néanmoins ce que je cherche, c'est sélectionner la plage qui part de la première cellule vide (après la dernière cellule pleine !) + "n" '---------
Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row + 1 n = 5 'A adapter Range("a" & derlg & ":a" & derlg + n).Select End Sub '-------
"j-pascal" a écrit dans le message de news: %
Bonsoir Jacky,
Ta procédure décale bien de "n" cellules en dessous de la dernière cellule pleine ; néanmoins ce que je cherche, c'est sélectionner la plage qui part de la première cellule vide (après la dernière cellule pleine !) + "n" cellules. J'ai essayé plein de trucs et ça ne marche pas (erreur de compilation !).
Peut-être @ + ?
JP
wrote:
Bonjour, Essaie ceci: '----------- Sub jj() derlg = Sheets("Feuil1").Range("a65536").End(3).Row Range("a" & derlg).Select MsgBox "Dernière cellule occupée de la feuille 1 colonne A est : " & ActiveCell.Address(0, 0) decalage = 5 Range("a" & derlg + decalage).Select MsgBox "La selection décalée de : " & decalage & " lignes" & Chr(10) & "Cellule : " & ActiveCell.Address(0, 0) End Sub '----------
"j-pascal" a écrit dans le message de news: u8%
Bonjour,
Je souhaiterais ajouter un certain nombre de noms à la fin d'une liste. J'ai ceci :
La cellule active est donc la première cellule vide après ma liste. A partir de cette cellule, je veux ajouter les noms. J'avais pensé à un truc du genre :
Range("ActiveCells" & mavar).Select
Mais sans trop de surprise, ça ne marche pas !
Question : comment détermine-t-on en vba la cellule active ? Comment puis-je en partant de la cellule active et en ajoutant n cellules (ou "n" sera une variable) déterminer une nouvelle plage ? Merci d'avance pour vos (éventuelles) réponses.
