[RESOLU]Aller à la dernière colonne non vide à partir de la cellule active

cathodique

XLDnaute Barbatruc
Bonjour,

j'ai bien essayé avec l'enregistreur de macro, le code obtenu a été une répétition dune même ligne de code = nombre de fois que j'ai fait ctrl+flèche droite.
Code:
Sub Macro4()
' Touche de raccourci du clavier: Ctrl+k
    Range("A21").Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
End Sub
j'ai modifié le code ainsi mais le résultat est le même
Code:
Sub Macro4()
' Touche de raccourci du clavier: Ctrl+k
ActiveCell.End(xlToRight).Select
    
End Sub
j'ai une très grande feuille, je voudrais aller à la dernière colonne non vide à partir de la cellule active, c-à-d rester sur la même ligne que la cellule active. je déclenche la macro par raccourci ctrl+k.

en vous remerciant par avance.
 
Dernière édition:

cathodique

XLDnaute Barbatruc
Re : Aller à la dernière colonne non vide à partir de la cellule active

Bonjour JCGL,

je te remercie beaucoup. le code n'agit pas, la cellule active reste sélectionnée.

Pour le raccourci, j'ai évité ceux que je connais. plus que tu me dis qu'il est réservé pour excel, je vais effectuer une recherche pour connaitre tous les raccourcis réservés d'excel.

mais ton code ne prend en considération que la cellule active qui se trouve en colonne 1. moi je voudrais pour quelque soit la position de la cellule active. comme par exemple avec ctrl+début, on revient à première cellule de la feuille quelque soit la position de la cellule active.

Encore merci. Bon dimanche.
 
Dernière édition:

laetitia90

XLDnaute Barbatruc
Re : Aller à la dernière colonne non vide à partir de la cellule active

bonjour cathodique :),JC:)

un code parmi tant d'autres

Code:
 Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Select


edit: bonjour piga:)
 
Dernière édition:

cathodique

XLDnaute Barbatruc
Re : Aller à la dernière colonne non vide à partir de la cellule active

Oups! je reviens pour donner plus de précision car je viens de faire un test avec le code de JCGL et me suis rendu compte qu'il fonctionne si la cellule active est sur la ligne 2 (entêtes de colonnes).

Alors que moi je voudrais que la macro sélectionne la cellule de la dernière colonne et sur la même ligne que la cellule active.

et ce quelque soit la position de la cellule active. la dernière colonne non vide est celle de la ligne des entêtes (ligne2) pour toutes les lignes.

j'ajoute que le nombre de colonnes peut augmenter.

En vous remerciant.
 

cathodique

XLDnaute Barbatruc
Re : Aller à la dernière colonne non vide à partir de la cellule active

Merci beaucoup, mais je pense que j'ai trouvé une solution. De plus j'ai vérifié le raccourci ctrl+k est bien réservé pour excel, je l'ai modifié en ctrl+e. voici le code ça pourrait peut-être servir.
Code:
Sub Macro4()
' Touche de raccourci du clavier: Ctrl+e
Dim DerCol As Integer
DerCol = Cells(2, Cells.Columns.Count).End(xlToLeft).Column

Cells(ActiveCell.Row, DerCol).End(xlToRight).Select
    
End Sub
 

JCGL

XLDnaute Barbatruc
Re : Aller à la dernière colonne non vide à partir de la cellule active

Bonjour JCGL,

je te remercie beaucoup. le code n'agit pas, la cellule active reste sélectionnée.

Pour le raccourci, j'ai évité ceux que je connais. plus que tu me dis qu'il est réservé pour excel, je vais effectuer une recherche pour connaitre tous les raccourcis réservés d'excel.

mais ton code ne prend en considération que la cellule active qui se trouve en colonne 1. moi je voudrais pour quelque soit la position de la cellule active. comme par exemple avec ctrl+début, on revient à première cellule de la feuille quelque soit la position de la cellule active.

Encore merci. Bon dimanche.

Et non...

Voir le fichier joint

A+ à tous
 

Pièces jointes

  • Dernière colonne non Vide.xlsm
    31.6 KB · Affichages: 29

JCGL

XLDnaute Barbatruc
Re : Aller à la dernière colonne non vide à partir de la cellule active

Bonjour à tous,

Oups! je reviens pour donner plus de précision car je viens de faire un test avec le code de JCGL et me suis rendu compte qu'il fonctionne si la cellule active est sur la ligne 2 (entêtes de colonnes).

Alors que moi je voudrais que la macro sélectionne la cellule de la dernière colonne et sur la même ligne que la cellule active.

et ce quelque soit la position de la cellule active. la dernière colonne non vide est celle de la ligne des entêtes (ligne2) pour toutes les lignes.

j'ajoute que le nombre de colonnes peut augmenter.

En vous remerciant.

Voir mon# 9

A+ à tous
 

Staple1600

XLDnaute Barbatruc
Re : [RESOLU]Aller à la dernière colonne non vide à partir de la cellule active

Bonjour à tous

Pour tuer le temps, en attendant que mon riz au lait expérimental finisse de cuire
Rien de tel qu'un petit coup de VBA ;)

Bon je vous laisse, je m'en retourne surveiller mon micro-onde.

NB: Lancer la macro plusieurs fois de suite, il s'y passe des choses bizarres ;)
(N'est-ce pas, leti ;))
Code:
Sub LastButNotLeast()
Dim vresult$
Cells.Clear
Cells(1, 1).Resize(, Int((Rnd * 50) + 1)) = "=2*COLUMN()"
Cells(3, 1).FormulaArray = "=ADDRESS(1,MAX((R[-2]<>"""")*COLUMN(R[-2])),4)"
Range("A1").Select
vresult = vresult & "JCGL: " & Cells(ActiveCell.Row, 1).End(xlToRight).Address(0, 0) & vbCrLf
vresult = vresult & "leti: " & Cells(ActiveCell, Columns.Count).End(xlToLeft).Address(0, 0) & vbCrLf 'leti
vresult = vresult & "piga25: " & Selection.End(xlToRight).Address(0, 0) & vbCrLf 'piga
vresult = vresult & "staple: " & [A3].Text & vbCrLf 'staple 
'(ou plutôt formule empruntée naguère à Chip Pearson)
MsgBox vresult
End Sub

PS: S'il y a des plages discontinues, le xlToRight posera problème, non ?
 
Dernière édition:

mapomme

XLDnaute Barbatruc
Supporter XLD
Re : [RESOLU]Aller à la dernière colonne non vide à partir de la cellule active

Bonjour à tous,

Dans le dernier message de Staple1600, ne serait-ce pas activecell.row au lieu de activecell dans la formule de laetitia90 ?

Staple1600,
Pour tuer le temps, en attendant que mon riz au lit expérimental finisse de cuire
J'en connais qui regarde la télé au lit, prennent le pti-déj au lit, mais jamais connu quelqu'un qui cuisinait au lit , j'en ris ;)
 

cathodique

XLDnaute Barbatruc
Re : [RESOLU]Aller à la dernière colonne non vide à partir de la cellule active

Bonsoir,

je vous remercie tous autant que vous êtes pour votre précieuse aide. Vos interventions m'ont permis de me rendre compte que j'avais mal exposé mon problème. car en effet, j'avais omis de vous dire que la très grande plage sur laquelle je travaille à des trous (cellules vides).

C'est pour cela que le code proposé ne fait pas l'affaire.

Je vous remercie beaucoup. Mon problème est résolu.

Bonne soirée à tous.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou