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

[cathodique]

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.

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

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.

 

[piga25]

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

Bonjour,

Peut-être comme ceci

Sub Macro4()
' Touche de raccourci du clavier: Ctrl+k
   Activecells.End(xlToRight).Select    
End Sub

 

[cathodique]

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

Bonjour Piga25,

je te remercie beaucoup mais il y a une erreur d’exécution 424, objet requis.

 

[JCGL]

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

Bonjour à tous,
Salut Patrick,

Peux-tu essayer :

Cells(ActiveCell.Row, 1).End(xlToRight).Select

Il me semble que Ctrl +k est réservé par XL.

A+ à tous

 

[cathodique]

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.

 

[laetitia90]

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

bonjour cathodique ,JC

un code parmi tant d'autres

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

edit: bonjour piga

 

[cathodique]

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]

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.

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]

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

 

[JCGL]

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]

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 )

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 ?

 

[laetitia90]

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

re tous JM

bizarre chez moi marche??

 

[mapomme]

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]

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.

 

[laetitia90]

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

re tous

je me disais aussi.... ou est le pb... ???

bravo!!! mapomme pour ton sens de l'observation j'avais même pas vu que JM A oublie .row dans son code