> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
58,99 €SSD WD Blue SN550 500 Go (NMVe M.2, 2400 Mo/s) à 58,99 €
Valable jusqu'au 20 Avril

Amazon fait une promotion sur le SSD WD Blue SN550 500 Go (NMVe M.2) qui passe à 58,99 € livré alors qu'on le trouve ailleurs à partir de 75 €. Ce SSD utilise une interface M.2 NVMe PCIe Gen3 x 4 pour une connexion simple et des performances exceptionnelles : jusqu’à 2 400 Mo/s en lecture séquentielle et jusqu’à 1 950 Mo/s en écriture séquentielle. Le SSD est doté de la technologie 3D TLC NAND haute densité offrant une endurance d’écriture durable et assorti d’une garantie de cinq ans. 


> Voir l'offre
99,99 €Barre de son 2.1 Samsung HW-T420 (Bluetooth, optique) avec caisson de basses à 99,99 € (via ODR)
Valable jusqu'au 17 Avril

Cdiscount fait une promotion sur la barre de son 2.1 Samsung HW-K335 avec caisson de basses à 99,99 € alors qu'on la trouve ailleurs autour de 150 €. Cette barre de son dispose d'une connectivité complète avec le bluetooth, une prise optique et une prise USB. 


> Voir l'offre
16,48 €Pack de 2 clés USB 3.0 Kingston DataTraveler 100 G3 - 64 Go à 16,48 €
Valable jusqu'au 18 Avril

Amazon fait une promotion sur le pack de 2 clés USB 3.0 Kingston DataTraveler 100 G3 - 64 Go qui passe à 16,48 € au lieu de 25 euros habituellement.


> Voir l'offre

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