Itinéraire !!!

[boulou]

Avec
activewindow.smallscroll toright:=42
Je suis sur ma colonne.
Comment ensuite réperer la premiere cellule vide de la colonne et remonter de 20 lignes par rapport à celle-ci ?

Merci de votre aide.

 

[JNP]

Re : Itinéraire !!!

Bonjour Boulou 🙂,
Plutôt que de naviguer avec des valeurs relative de déplacement, tu ferais mieux d'utiliser des valeurs absolues

ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollRow = 20

qui te positionne la feuille avec la cellule choisie en haut à gauche.
Bon courage 😎

 

[boulou]

Re : Itinéraire !!!

Bonjour Boulou 🙂,
Plutôt que de naviguer avec des valeurs relative de déplacement, tu ferais mieux d'utiliser des valeurs absolues

ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollRow = 20

qui te positionne la feuille avec la cellule choisie en haut à gauche.
Bon courage 😎

Non.
Je suis obligé de faire référence à ma cellule vide de telle sorte que j'obtienne un décalage constant à chaque fois qu'une donnée supplémentaire est introduite dans ma colonne.

 

[boulou]

File "Itinéraire" à 11:23

Qui voudrait bien se repencher sur ma question restée sans réponse compléte ?

Merci beaucoup aux volontaires.

 

[JNP]

Re : Itinéraire !!!

Re 🙂,

Non.
Je suis obligé de faire référence à ma cellule vide de telle sorte que j'obtienne un décalage constant à chaque fois qu'une donnée supplémentaire est introduite dans ma colonne.

Aucun rapport... Sachant que

Cells(65536, 1).End(xlUp).Row

te renvoie la dernière ligne utilisée, tu fais quoi avec

ActiveWindow.SmallScroll up:=20

???
Alors que

ActiveWindow.ScrollRow = WorksheetFunction.Max(Cells(65536, 1).End(xlUp).Row - 20, 1)

devrait faire ce que tu souhaites....
Petit conseil, analyse les réponses avant d'être catégorique 🙄.
Bon courage 😎

 

[Bebere]

Re : File "Itinéraire" à 11:23

bonjour Boulou


Sub x()
'met le curseur en e1
Range("E1").Activate
'met le curseur 1ère ligne vide
Range("E1").End(xlDown).Offset(1, 0).Activate
'met le curseur 20 lignes plus haut si plus de 20 cellules,sinon reste 1ère ligne vide
If Range("E5").End(xlDown).Row > 20 Then _
ActiveCell.Offset(-20, 0).Activate
End Sub

à bientôt

 

[boulou]

Re : File "Itinéraire" à 11:23

bonjour Boulou


Sub x()
'met le curseur en e1
Range("E1").Activate
'met le curseur 1ère ligne vide
Range("E1").End(xlDown).Offset(1, 0).Activate
'met le curseur 20 lignes plus haut si plus de 20 cellules,sinon reste 1ère ligne vide
If Range("E5").End(xlDown).Row > 20 Then _
ActiveCell.Offset(-20, 0).Activate
End Sub

à bientôt

Bebere, bonjour et merci.

If Range("E5")......
pourquoi E5 ? Quel est sa fonction ?

Dans un fichier test que j'ai créé, ta proposition fonctionne très bien.
Intégrée dans mon projet où j'utilise la colonne BD, c'est l'échec. Il est bien évident que je remplace tes références à la colonne E par BD.

As-tu une explication ?

 

[Bebere]

Re : File "Itinéraire" à 11:23

bonjour Boulou
c'est un copier/coller,oublier de changer 5 en 1,c'est tout
il faut des données ou tu mets le curseur
ou met un exemple de ce que tu fais
à bientôt

 

[PascalXLD]

Re : Itinéraire !!!

Bonjour

J'ai fusionné les 2 fils

Merci de rester sur le même fil sinon on ne comprend plus rien