Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel faire un choix automatique sur 2 lignes de procèdures

faire un choix automatique sur 2 lignes de procèdures

8 réponses
Avatar
DC
Bonjour à tous,...........................Excel 2000 sous XP

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

Voilà; en début d'éxécution de macro, j'ai 2 choix qui à première vue sont
incompatibles l'un (qui fait monter le curseur) avec l'autre ( qui fait le
contraire ),
Aussi j'aimerais pouvoir y introduire le choix d'un "Ou" ou bien une
condition d'un "Si".........ou peut-être autre chose...???
....................Voici les 2 lignes de choix en question.................
'----------------------------------------------------------------
Range("A" & ActiveCell.Row).End(xlUp).Offset(1, 0).Activate

Range("A" & ActiveCell.Row).End(xlDown).Offset(1, 0).Activate
'-----------------------------------------------------------------
L'objectif étant de retrouver le curseur dans la permière cellule vide vers
le bas de la colonne "A" et ceci, ou qu'il se trouve à l'origine, déja en
dessous ou dans le groupe des colonnes écrites,
A savoir qu'il peut y avoir aussi, d'autres groupes d'écritures en dessous,
un peut plus bas et qu'ils ne doivent pas influencer l'objectif par leurs
présence,
...........Merci d'y penser...!!!
Cordialement.........................d'avance Merci...!!!...........DC
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
poy-poy
Bonjour DC,

Ton problème provient du fait que tu ne sais pas où est ton curseur au
moment de la macro. Par contre, tu sais ou tu veux qu'il aille: Première
cellule vide de la colonne A.

Alors, on contourne le problème :
range("A1").select
(Maintenant tu sais où il est :)

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

Et voilou :P
Cordialement
Benjamin

"DC" wrote:

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

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

Voilà; en début d'éxécution de macro, j'ai 2 choix qui à première vue sont
incompatibles l'un (qui fait monter le curseur) avec l'autre ( qui fait le
contraire ),
Aussi j'aimerais pouvoir y introduire le choix d'un "Ou" ou bien une
condition d'un "Si".........ou peut-être autre chose...???
.....................Voici les 2 lignes de choix en question.................
'----------------------------------------------------------------
Range("A" & ActiveCell.Row).End(xlUp).Offset(1, 0).Activate

Range("A" & ActiveCell.Row).End(xlDown).Offset(1, 0).Activate
'-----------------------------------------------------------------
L'objectif étant de retrouver le curseur dans la permière cellule vide vers
le bas de la colonne "A" et ceci, ou qu'il se trouve à l'origine, déja en
dessous ou dans le groupe des colonnes écrites,
A savoir qu'il peut y avoir aussi, d'autres groupes d'écritures en dessous,
un peut plus bas et qu'ils ne doivent pas influencer l'objectif par leurs
présence,
............Merci d'y penser...!!!
Cordialement.........................d'avance Merci...!!!...........DC






Avatar
Daniel
Bonjour.
Pour trouver la première cellule vide de la colonne A, utilise le code :

Sub test()
Columns(1).Find("", lookat:=xlWhole).Select
End Sub

Cordialement.
Daniel

"DC" a écrit dans le message de news:
43f59d33$0$18309$
Bonjour à tous,...........................Excel 2000 sous XP

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

Voilà; en début d'éxécution de macro, j'ai 2 choix qui à première vue sont
incompatibles l'un (qui fait monter le curseur) avec l'autre ( qui fait le
contraire ),
Aussi j'aimerais pouvoir y introduire le choix d'un "Ou" ou bien une
condition d'un "Si".........ou peut-être autre chose...???
....................Voici les 2 lignes de choix en
question.................
'----------------------------------------------------------------
Range("A" & ActiveCell.Row).End(xlUp).Offset(1, 0).Activate

Range("A" & ActiveCell.Row).End(xlDown).Offset(1, 0).Activate
'-----------------------------------------------------------------
L'objectif étant de retrouver le curseur dans la permière cellule vide
vers le bas de la colonne "A" et ceci, ou qu'il se trouve à l'origine,
déja en dessous ou dans le groupe des colonnes écrites,
A savoir qu'il peut y avoir aussi, d'autres groupes d'écritures en
dessous, un peut plus bas et qu'ils ne doivent pas influencer l'objectif
par leurs présence,
...........Merci d'y penser...!!!
Cordialement.........................d'avance Merci...!!!...........DC





Avatar
DC
Bonjour à tous,...............Bonjour..... Poy-Poy-.....et.....Daniel

Merci de vos réponses........( j'ai omis de précicer que.....!!!.....)

Ayant le même résultat sur vos 2 réponses "A2", signifie un manque de ma
part, j'ai oublié de préciser, qu'il pouvait y avoir aussi, d'autres groupes
d'écritures au dessus, un peut plus haut et qu'ils ne doivent pas
influencer, non plus, l'objectif par leurs présence,
Par contre au départ, le curseur se trouve toujours dans la zone d'un groupe
avec ses quelques lignes vides du bas et c'est ce groupe qui devient
actif,..........Merci d'y penser...!!!

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

"Daniel" a écrit dans le message de news:

Bonjour.
Pour trouver la première cellule vide de la colonne A, utilise le code :

Sub test()
Columns(1).Find("", lookat:=xlWhole).Select
End Sub

Cordialement.
Daniel

"DC" a écrit dans le message de news:
43f59d33$0$18309$
Bonjour à tous,...........................Excel 2000 sous XP

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

Voilà; en début d'éxécution de macro, j'ai 2 choix qui à première vue
sont
incompatibles l'un (qui fait monter le curseur) avec l'autre ( qui fait
le contraire ),
Aussi j'aimerais pouvoir y introduire le choix d'un "Ou" ou bien une
condition d'un "Si".........ou peut-être autre chose...???
....................Voici les 2 lignes de choix en
question.................
'----------------------------------------------------------------
Range("A" & ActiveCell.Row).End(xlUp).Offset(1, 0).Activate

Range("A" & ActiveCell.Row).End(xlDown).Offset(1, 0).Activate
'-----------------------------------------------------------------
L'objectif étant de retrouver le curseur dans la permière cellule vide
vers le bas de la colonne "A" et ceci, ou qu'il se trouve à l'origine,
déja en dessous ou dans le groupe des colonnes écrites,
A savoir qu'il peut y avoir aussi, d'autres groupes d'écritures en
dessous, un peut plus bas et qu'ils ne doivent pas influencer l'objectif
par leurs présence,
...........Merci d'y penser...!!!
Cordialement.........................d'avance Merci...!!!...........DC









Avatar
Daniel
Pour fixer les idées. Si les cellules A2 et A5 sont seules renseignées, que
doit-on trouver ? A3 ou A6 ?
Daniel
"DC" a écrit dans le message de news:
43f5f050$0$6650$
Bonjour à tous,...............Bonjour..... Poy-Poy-.....et.....Daniel

Merci de vos réponses........( j'ai omis de précicer que.....!!!.....)

Ayant le même résultat sur vos 2 réponses "A2", signifie un manque de ma
part, j'ai oublié de préciser, qu'il pouvait y avoir aussi, d'autres
groupes d'écritures au dessus, un peut plus haut et qu'ils ne doivent pas
influencer, non plus, l'objectif par leurs présence,
Par contre au départ, le curseur se trouve toujours dans la zone d'un
groupe avec ses quelques lignes vides du bas et c'est ce groupe qui
devient actif,..........Merci d'y penser...!!!

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

"Daniel" a écrit dans le message de news:

Bonjour.
Pour trouver la première cellule vide de la colonne A, utilise le code :

Sub test()
Columns(1).Find("", lookat:=xlWhole).Select
End Sub

Cordialement.
Daniel

"DC" a écrit dans le message de news:
43f59d33$0$18309$
Bonjour à tous,...........................Excel 2000 sous XP

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

Voilà; en début d'éxécution de macro, j'ai 2 choix qui à première vue
sont
incompatibles l'un (qui fait monter le curseur) avec l'autre ( qui fait
le contraire ),
Aussi j'aimerais pouvoir y introduire le choix d'un "Ou" ou bien une
condition d'un "Si".........ou peut-être autre chose...???
....................Voici les 2 lignes de choix en
question.................
'----------------------------------------------------------------
Range("A" & ActiveCell.Row).End(xlUp).Offset(1, 0).Activate

Range("A" & ActiveCell.Row).End(xlDown).Offset(1, 0).Activate
'-----------------------------------------------------------------
L'objectif étant de retrouver le curseur dans la permière cellule vide
vers le bas de la colonne "A" et ceci, ou qu'il se trouve à l'origine,
déja en dessous ou dans le groupe des colonnes écrites,
A savoir qu'il peut y avoir aussi, d'autres groupes d'écritures en
dessous, un peut plus bas et qu'ils ne doivent pas influencer l'objectif
par leurs présence,
...........Merci d'y penser...!!!
Cordialement.........................d'avance Merci...!!!...........DC













Avatar
AV
| Pour fixer les idées. Si les cellules A2 et A5 sont seules renseignées, que
| doit-on trouver ? A3 ou A6 ?

Juste comme ça, jette un oeil à la demande d'éclaircissement que j'ai faite dans
le fil du 15/02/2006 11:42:00
;-)
AV
Avatar
Alain CROS
Bonjour,

Sub ChoixAuto()
Dim Rg As Range
Set Rg = Range("A" & ActiveCell.Row)
With Rg
If Evaluate("ISBLANK(" & .Address & ")") Then
.End(xlUp)(2).Activate
Else
.End(xlDown)(2).Activate
End If
End With
Set Rg = Nothing
End Sub

Alain CROS

"DC" a écrit dans le message de news: 43f5f050$0$6650$
| Bonjour à tous,...............Bonjour..... Poy-Poy-.....et.....Daniel
|
| Merci de vos réponses........( j'ai omis de précicer que.....!!!.....)
|
| Ayant le même résultat sur vos 2 réponses "A2", signifie un manque de ma
| part, j'ai oublié de préciser, qu'il pouvait y avoir aussi, d'autres groupes
| d'écritures au dessus, un peut plus haut et qu'ils ne doivent pas
| influencer, non plus, l'objectif par leurs présence,
| Par contre au départ, le curseur se trouve toujours dans la zone d'un groupe
| avec ses quelques lignes vides du bas et c'est ce groupe qui devient
| actif,..........Merci d'y penser...!!!
|
| Cordialement,.......Merci d'avance.....au plaisir de vous lire....DC
|
Avatar
DC
Bonsoir à tous,.........et..........Daniel........AV........Alain CROS,

Merci pour l'ensemble de vos réponses,........bonne soirée,

En éffet, j'ai opté pour la réponse de, Alain CROS, qui aprés de multiples
essais, à démontrée corresponde exactement à ce que je recherchais, elle
fonctionne à merveille avec tous les critères énumérés dans mes demandes
successives ( je vous demande de m'excuser Messieurs, d'avoir eus tant de
mal à m'expliquer clairement )....................un grand Merci...!!!

Cordialement,........Merci...!!!...............bon WE.............DC

"Alain CROS" a écrit dans le message de news:
ONUIrV%
Bonjour,

Sub ChoixAuto()
Dim Rg As Range
Set Rg = Range("A" & ActiveCell.Row)
With Rg
If Evaluate("ISBLANK(" & .Address & ")") Then
.End(xlUp)(2).Activate
Else
.End(xlDown)(2).Activate
End If
End With
Set Rg = Nothing
End Sub

Alain CROS

"DC" a écrit dans le message de news:
43f5f050$0$6650$
| Bonjour à tous,...............Bonjour..... Poy-Poy-.....et.....Daniel
|
| Merci de vos réponses........( j'ai omis de précicer que.....!!!.....)
|
| Ayant le même résultat sur vos 2 réponses "A2", signifie un manque de ma
| part, j'ai oublié de préciser, qu'il pouvait y avoir aussi, d'autres
groupes
| d'écritures au dessus, un peut plus haut et qu'ils ne doivent pas
| influencer, non plus, l'objectif par leurs présence,
| Par contre au départ, le curseur se trouve toujours dans la zone d'un
groupe
| avec ses quelques lignes vides du bas et c'est ce groupe qui devient
| actif,..........Merci d'y penser...!!!
|
| Cordialement,.......Merci d'avance.....au plaisir de vous lire....DC
|




Avatar
Alain CROS
Bonjour,

Je suis bien content pour toi si tu es arrivé à tes fins.
Mais un peu moins de ... et bonne soirée et grand Merci et ...
et j'en passe donnerais un peu plus de lisibilité à tes interventions.
Merci.

Alain CROS

"DC" a écrit dans le message de news: 43f624a8$0$20178$
| Bonsoir à tous,.........et..........Daniel........AV........Alain CROS,
|
| Merci pour l'ensemble de vos réponses,........bonne soirée,
|
| En éffet, j'ai opté pour la réponse de, Alain CROS, qui aprés de multiples
| essais, à démontrée corresponde exactement à ce que je recherchais, elle
| fonctionne à merveille avec tous les critères énumérés dans mes demandes
| successives ( je vous demande de m'excuser Messieurs, d'avoir eus tant de
| mal à m'expliquer clairement )....................un grand Merci...!!!
|
| Cordialement,........Merci...!!!...............bon WE.............DC