Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche de la dernière cellule renseignée à droite

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Hugues
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
H

Hugues

XLDnaute Impliqué
Bonjour Le Forum,

Je souhaiterais connaitre le code afin de positionner le curseur sur la dernière cellule renseignée à droite de la ligne 6.

A ce jour, je n'ai trouvé que le code me permettant d'activer la colonne mais pas uniquement la cellule.

Private Sub Worksheet_Activate()
'recherche de la dernière colonne renseignée
dercolonne = Range("HK6").End(xlToLeft).Column
'MsgBox (dercolonne)
Columns(dercolonne + 1).Select
End Sub

Merci par avance pour votre aide,

Hugues
 
Trier par date Trier par votes
Re : Recherche de la dernière cellule renseignée à droite

Bonjour Hugues
Code: 
[COLOR=blue]Sub[/COLOR] test()
Range("HK6").End(xlToLeft).Activate
[COLOR=blue]End Sub[/COLOR]
Cordialement
 
Vote positif 0 Vote négatif
Re : Recherche de la dernière cellule renseignée à droite

Merci Efgé,
Maintenant je souhaiterais positionner le curseur sur la cellule aprés la dernière renseignée.
Avez vous une idée ?

Merci par avance,

hugues
 
Vote positif 0 Vote négatif
Re : Recherche de la dernière cellule renseignée à droite

Re
Code: 
[COLOR=blue]Sub[/COLOR] test2()
[COLOR=green]'recherche de la dernière colonne renseignée[/COLOR]
dercolonne = Range("HK6").End(xlToLeft).Column
[COLOR=green]'MsgBox (dercolonne)[/COLOR]
Cells(6, dercolonne + 1).Select
[COLOR=blue]End Sub[/COLOR]
Que l'on peut réduire à
Code: 
[COLOR=blue]Sub[/COLOR] test2()
Cells(6, Range("HK6").End(xlToLeft).Column + 1).Select
[COLOR=blue]End Sub[/COLOR]
Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
386
Anthony_51
A
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
248
piga25
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
169
CortoXls
C
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
329
papychat1
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
256
un internaute
U
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
157
sylvanu
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
122
un internaute
U
S
  • Résolu(e)
Microsoft 365 Reporter le contenu d'une plage dans une cellule selon un ordre précis
Réponses
4
Affichages
299
sebastien176
S
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
123
patricktoulon
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
264
spike29
S
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
436
Webperegrino
W
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
229
Lu76Fer
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
267
StéphaneDeLà
S
  • Résolu(e)
XL 2016 Mettre la même couleur de la dernière cellule colorée
Réponses
5
Affichages
407
TooFatBoy
D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
224
danielco
D
C
  • Question Question
XL 2013 rechercher la dernière date
Réponses
4
Affichages
237
candido57
C
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
297
Affichages
69 K
NONO14
N
C
  • Résolu(e)
XL 2013 Renvoyer 2 dans la cellule
Réponses
2
Affichages
262
candido57
C
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
263
AlCapone
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
499
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…