Résolu XL pour MAC Naviguer rapidement dans un tableau

pilou010

XLDnaute Nouveau
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
 
Ce fil a été résolu! Aller à la solution…
Dernière édition:

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir à @pilou010, @job75 ;),

Essayez (on ne tiens pas compte de la cellule d'en-tête en A1) :
Code:
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

XLDnaute Nouveau
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.
 

Fichiers joints

pilou010

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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
 
Dernière édition:

soan

XLDnaute Accro
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". :p

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


soan
 

job75

XLDnaute Barbatruc
Bonjour à tous,

Si la méthode Find fonctionne sur MAC :
VB:
Sub a()
[A:A].Find("", , xlValues).Select
End Sub
A+
 
Ce message a été identifié comme étant une solution!

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas