XL pour MAC Naviguer rapidement dans un tableau

[pilou010]

Bonjour,
Je suis sous Excel pour Mac.
J'ai un tableau avec de nombreuses lignes et colonnes dans lequel je navigue... Je souhaiterai par une combinaison de touche, voir une macro, aller directement dans la colonne A et sur la première cellule non vide de cette colonne (erreur de ma part) ttes mes excuses à job75
J'ai fait une macro sur PC en revanche sur Mac, je ne trouve pas.
Quelqu’un pourrait-il m'éclairer ?
Merci

 

[job75]

Bonsoir pilou010,

Je souhaiterai par une combinaison de touche, voir une macro, aller directement dans la colonne A et sur la première cellule non vide de cette colonne.

Vous êtes sûr ? Si le tableau commence en A1 il s'agira de A1...

A+

 

[mapomme]

Bonsoir à @pilou010, @job75 😉,

Essayez (on ne tiens pas compte de la cellule d'en-tête en A1) :

Sub first_cell_not_blank()
Dim t, derlig&, i&
   With Sheets("Feuil1")
      If .FilterMode Then .ShowAllData
      derlig = .Cells(.Rows.Count, "a").End(xlUp).Row
      t = Range("a1:a" & derlig + 1).Formula
      For i = 2 To UBound(t)
         If t(i, 1) <> "" Then Application.Goto .Cells(i, "a"): Exit Sub
      Next i
   MsgBox "Aucune cellule avec valeur ou formule.", vbCritical
   End With
End Sub

 

[pilou010]

On y est presque, la macro m’amène en A2, j'aimerai aller en A mais première cellule non vide pour saisir de nouvelles données. Je mets un fichier exemple en PJ.

 

[pilou010]

Sub first_cell_not_blank() Dim t, derlig&, i& With Sheets("Feuil1") If .FilterMode Then .ShowAllData derlig = .Cells(.Rows.Count, "a").End(xlUp).Row t = Range("a1:a" & derlig + 1).Formula For i = 2 To UBound(t) If t(i, 1) <> "" Then Application.Goto .Cells(i, "a"): Exit Sub Next i MsgBox "Aucune cellule avec valeur ou formule.", vbCritical End With End Sub

Essai non concluant, c'est toujours en A2

 

[job75]

A640 n'est pas la la première cellule non vide mais la première cellule vide.

Quand on va sur un forum il faut faire attention à ce qu'on dit !!!

Salut mapomme, tu peux continuer, moi je fatigue.

 

[pilou010]

Toutes mes excuses job75, mais on est vendredi 😉
C'est donc bien sur la première cellule vide que je souhaite aller.
Du coup j'ai fait ça :
Sub Macro1()
Selection.End(xlToLeft).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, col).Select
End Sub

 

[mapomme]

Re;

Voir la macro dans le fichier.
La combinaison des deux touches Ctrl+m a été attribuée à la macro. La touche Ctrl sur PC doit correspondre à la touche "pomme". Sinon attribuez un raccourci de touches directement depuis votre MAC.

 

[soan]

Bonjour mapomme, le fil,

Tu as écrit : « La touche Ctrl sur PC doit correspondre à la touche "pomme". »

non : désormais, la touche Ctrl sur PC correspond sur MAC à la touche "mapomme". 😛

(Apple a fait ce changement sur recommandation expresse du fantôme Steve Jobs)

soan

 

[job75]

Bonjour à tous,

Si la méthode Find fonctionne sur MAC :

Sub a()
[A:A].Find("", , xlValues).Select
End Sub

A+

 

[pilou010]

Bonjour à tous.
Merci de vos réponse ça fonctionne nickel.