> Tous les forums > Forum Bureautique
 Renvoi à la dernière cellule non vide d'une ligneSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
babyboum
  Posté le 24/02/2009 @ 18:38 
Aller en bas de la page 
Petite astucienne

Bonsoir ... me revoili !

Dans une marco que j'utilise actuellement, la ligne suivante Range("BT83").Select renvoie mon curseur à la cellule BT83 .... oui, je sais que vous l'aviez compris

Ma question : Comment modifier cette formule de façon à ce que mon curseur arrive non pas à la cellule 83 de la ligne BT, mais à la dernière cellule non vide de la ligne dans laquelle se trouve mon curseur avant l'exécution de la macro ?

En plus clair : si je suis en A52 faire que la macro envoie mon curseur en dernière cellule non vide de la ligne 52 ; si je suis en A75 envoyer mon curseur en dernière cellule non vide de la ligne 75 etc..... donc en dernière cellule non vide de la ligne active quoi....

A toutes fins utiles, voici la macro en question :

ActiveWindow.LargeScroll Down:=1
Range("BT83").Select
End Sub

Merci à vous de m'aider là !



Modifié par babyboum le 24/02/2009 18:43
Publicité
galopin01
 Posté le 24/02/2009 à 21:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonsoir,

cette macro renvoie le curseur à la dernière colonne non vide de la ligne en cours :

Sub Test()
Dim i&
i = ActiveCell.Row
Cells(i, 256).End(1).Select
End Sub



Modifié par galopin01 le 24/02/2009 21:43
babyboum
 Posté le 24/02/2009 à 21:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

merci Galopin... mais quand j'exécute la macro, que j'ai recopiée intégralement jusque et y compris le end Sub, j'ai un message popup qui me dit "erreur de compilation End sub attendu" !



Modifié par babyboum le 24/02/2009 21:53
galopin01
 Posté le 25/02/2009 à 08:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour,

tu as probablement collé ma macro au beau milieu d'une autre...

ce qui donne quelque chose comme ça :

Sub machin()
...

Sub Test()
Dim i&
i = ActiveCell.Row
Cells(i, 256).End(1).Select
End Sub

End Sub

Alors évidemment ça marche moins bien !



Modifié par galopin01 le 25/02/2009 08:12
babyboum
 Posté le 25/02/2009 à 10:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

En cherchant un peu, j'ai trouvé l'erreur...

Voici la macro, qui fonctionne parfaitement maintenant :

Sub ALLERA()
Dim i&
i = ActiveCell.Row
Cells(i, 256).End(1).Select
End Sub

Voili voilà ! Merci à toi Galopin Ier ...



Modifié par babyboum le 25/02/2009 12:00
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Rechercher dernière cellule non vide d'une ligne
copier ligne si cellule vide
selectionner derniere cellule non vide.
Une feuille blanche pour une ligne vide en fin de document
Rendre une cellule vide
imprimer si ligne non vide
Supprimer la ligne de la cellule active sauf une cellule
Incrémentation automatique d'une cellule à chaque nouvelle ligne
Renvoi de cellule Excel / VBA
sélectionner la première cellule vide d'une colonne
Plus de sujets relatifs à Renvoi à la dernière cellule non vide d''une ligne
 > Tous les forums > Forum Bureautique