OVH Cloud OVH Cloud

Une ligne ou deux VBA pour inclure dans une macro

9 réponses
Avatar
DC
Bonsoir à tous,.................Excel 2000 sous XP

Merci de me lire.....................bonne soirée,

J'ai un paragraphe de 5 lignes et mon curseur se trouve à 3 lignes en
dessous de la fin du dit paragraphe, comment par un début de macro, aller
placer ce curseur en colonne "A" et première cellule vide, après le
paragraphe, à savoir que j'ai d'autres écritures plus loin au dessus et en
dessous de ce paragraphe. ( Réf. relatives )
**C2**

**C1**
Un petit exemple étant bien souvent plus parlant : C1 vers C2

Cordialement...........Merci d'avance...!!!...bonne soirée.....DC

9 réponses

Avatar
Dédé
Salut DC !

La première cellule vide de la colonne A

Sub test()
MsgBox [A1].End(xlDown).Offset(1, 0).AddressLocal
End Sub


Est-ce que cela te convient ?

Salutations
Dédé

"DC" a écrit dans le message de news:
43ea2dd8$0$23286$
Bonsoir à tous,.................Excel 2000 sous XP

Merci de me lire.....................bonne soirée,

J'ai un paragraphe de 5 lignes et mon curseur se trouve à 3 lignes en
dessous de la fin du dit paragraphe, comment par un début de macro, aller
placer ce curseur en colonne "A" et première cellule vide, après le
paragraphe, à savoir que j'ai d'autres écritures plus loin au dessus et en
dessous de ce paragraphe. ( Réf. relatives )
**C2**

**C1**
Un petit exemple étant bien souvent plus parlant : C1 vers C2

Cordialement...........Merci d'avance...!!!...bonne soirée.....DC




Avatar
JLuc
*Bonjour DC*,
Range("A" & ActiveCell.Offset(-1,0).End(xlup).Row).Select
Cela te conviendrait t'il ?

Bonsoir à tous,.................Excel 2000 sous XP

Merci de me lire.....................bonne soirée,

J'ai un paragraphe de 5 lignes et mon curseur se trouve à 3 lignes en dessous
de la fin du dit paragraphe, comment par un début de macro, aller placer ce
curseur en colonne "A" et première cellule vide, après le paragraphe, à
savoir que j'ai d'autres écritures plus loin au dessus et en dessous de ce
paragraphe. ( Réf. relatives )
**C2**

**C1**
Un petit exemple étant bien souvent plus parlant : C1 vers C2

Cordialement...........Merci d'avance...!!!...bonne soirée.....DC



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
DC
Bonsoir à tous,......................Bonsoir Dédé,

Merci de ta réponse,....................bonne soirée...!!!

Navré Dédé, j'ai l'impression que j'ai dû mal m'exprimer, pourtant après
relecture, enfin bref....!!!........peut être que quelqu'un me trouvera une
solution.............Merci d'y penser...!!!

Cordialement.......Merci d'avance.......au plaisir de vous lire...DC

"Dédé" a écrit dans le message de news:

Salut DC !

La première cellule vide de la colonne A

Sub test()
MsgBox [A1].End(xlDown).Offset(1, 0).AddressLocal
End Sub


Est-ce que cela te convient ?

Salutations
Dédé

"DC" a écrit dans le message de news:
43ea2dd8$0$23286$
Bonsoir à tous,.................Excel 2000 sous XP

Merci de me lire.....................bonne soirée,

J'ai un paragraphe de 5 lignes et mon curseur se trouve à 3 lignes en
dessous de la fin du dit paragraphe, comment par un début de macro, aller
placer ce curseur en colonne "A" et première cellule vide, après le
paragraphe, à savoir que j'ai d'autres écritures plus loin au dessus et
en dessous de ce paragraphe. ( Réf. relatives )
**C2**

**C1**
Un petit exemple étant bien souvent plus parlant : C1 vers C2

Cordialement...........Merci d'avance...!!!...bonne soirée.....DC








Avatar
Dédé
Re DC :-)

Même si ton travail n'est pas tout mâché, la solution se trouve en quelque
sorte dans la réponse de JLuc et la miennne

Au fait, qu'entend tu par "paragraphe" ? On parle en général de paragraphe
dans un traitement de texte et non pas un tableur. Serait-ce un groupe de
cellule ou une cellule contenant plusieur lignes de texte ? ...

Merci de tes prochaines nouvelles

Salutations
Dédé
PS: J't'en prie ;-), de rien, ce fut par plaisir :-)


"DC" a écrit dans le message de news:
43ea4313$0$18342$
Bonsoir à tous,......................Bonsoir Dédé,

Merci de ta réponse,....................bonne soirée...!!!

Navré Dédé, j'ai l'impression que j'ai dû mal m'exprimer, pourtant après
relecture, enfin bref....!!!........peut être que quelqu'un me trouvera
une solution.............Merci d'y penser...!!!

Cordialement.......Merci d'avance.......au plaisir de vous lire...DC

"Dédé" a écrit dans le message de news:

Salut DC !

La première cellule vide de la colonne A

Sub test()
MsgBox [A1].End(xlDown).Offset(1, 0).AddressLocal
End Sub


Est-ce que cela te convient ?

Salutations
Dédé

"DC" a écrit dans le message de news:
43ea2dd8$0$23286$
Bonsoir à tous,.................Excel 2000 sous XP

Merci de me lire.....................bonne soirée,

J'ai un paragraphe de 5 lignes et mon curseur se trouve à 3 lignes en
dessous de la fin du dit paragraphe, comment par un début de macro,
aller placer ce curseur en colonne "A" et première cellule vide, après
le paragraphe, à savoir que j'ai d'autres écritures plus loin au dessus
et en dessous de ce paragraphe. ( Réf. relatives )
**C2**

**C1**
Un petit exemple étant bien souvent plus parlant : C1 vers C2

Cordialement...........Merci d'avance...!!!...bonne soirée.....DC












Avatar
JpPradier
Bonsoir DC

Si j'ai compris :

finPara¬tiveCell.end(xlup).Row+1
Range("A" & finPara).select


j-p
Avatar
Yoyo
Bonsoir,

Pas certain d'avoir bien compris car tu parles de paragraphe, de curseur et
de cellules, c'est un mélange que je ne maîtrise pas bien :-

S'il s'agit de passer de la cellule C1 à la cellule C2, sachant que C1 est
située 3 lignes sous la dernière "cellule" de ton paragraphe (j'ai p't'être
tout faux !) :

-> Range("A" & ActiveCell.Row - 2).Select

Amicalement
Yoyo

"DC" a écrit dans le message de
news:43ea2dd8$0$23286$
Bonsoir à tous,.................Excel 2000 sous XP

Merci de me lire.....................bonne soirée,

J'ai un paragraphe de 5 lignes et mon curseur se trouve à 3 lignes en
dessous de la fin du dit paragraphe, comment par un début de macro, aller
placer ce curseur en colonne "A" et première cellule vide, après le
paragraphe, à savoir que j'ai d'autres écritures plus loin au dessus et en
dessous de ce paragraphe. ( Réf. relatives )
**C2**

**C1**
Un petit exemple étant bien souvent plus parlant : C1 vers C2

Cordialement...........Merci d'avance...!!!...bonne soirée.....DC




Avatar
DC
Bonjour à tous,...................Dédé...JLuc...JpPradier...Yoyo,

Merci de vos réponses...................bonne journée,

A vous lire tous, je vois que je me suis très mal exprimé, aussi je vais
essayé d'être plus simple,
'------------------------------------------------------
Range("A65536").End(xlUp).Offset(1, 0).Activate
'------------------------------------------------------
Cette ligne de code me convient , à part le : Range("A65536")
que j'aimerais remplacer par:("A sur la ligne ou se trouve le curseur")
J'espère avoir été plus clair et vous demande de m'excuser...svp

Cordialement......d'avance Merci...!!!...au plaisir de vous lire...DC

"Yoyo" a écrit dans le message de news:
43ea472e$0$21293$
Bonsoir,

Pas certain d'avoir bien compris car tu parles de paragraphe, de curseur
et
de cellules, c'est un mélange que je ne maîtrise pas bien :-

S'il s'agit de passer de la cellule C1 à la cellule C2, sachant que C1 est
située 3 lignes sous la dernière "cellule" de ton paragraphe (j'ai
p't'être
tout faux !) :

-> Range("A" & ActiveCell.Row - 2).Select

Amicalement
Yoyo

"DC" a écrit dans le message de
news:43ea2dd8$0$23286$
Bonsoir à tous,.................Excel 2000 sous XP

Merci de me lire.....................bonne soirée,

J'ai un paragraphe de 5 lignes et mon curseur se trouve à 3 lignes en
dessous de la fin du dit paragraphe, comment par un début de macro, aller
placer ce curseur en colonne "A" et première cellule vide, après le
paragraphe, à savoir que j'ai d'autres écritures plus loin au dessus et
en
dessous de ce paragraphe. ( Réf. relatives )
**C2**

**C1**
Un petit exemple étant bien souvent plus parlant : C1 vers C2

Cordialement...........Merci d'avance...!!!...bonne soirée.....DC








Avatar
JpPradier
Bonjour DC

Ca correspond à ce que je t'ai répondu.
On peut l'écrire aussi comme ça :

Range("A" & ActiveCell.Row).End(xlUp).Offset(1, 0).Activate


j-p
Avatar
DC
Bonjour à tous, .............................Bonjour JpPradier,

Merci de ta réponse positive,...............bonne journée,

Effectivement, je n'est pas su exploiter ta première réponse, mais là, cette
nouvelle écriture à fonctionnée du premier coup et correspond bien à ce que
je recherchais................un grand Merci...!!!

Cordialement.............Merci...!!!...Merci...!!!...............DC

"JpPradier" a écrit dans le message
de news: OT9II%
Bonjour DC

Ca correspond à ce que je t'ai répondu.
On peut l'écrire aussi comme ça :

Range("A" & ActiveCell.Row).End(xlUp).Offset(1, 0).Activate


j-p