XL pour MAC Naviguer rapidement dans un tableau

job75

XLDnaute Barbatruc

• 16 Octobre 2020

• #2

Bonsoir pilou010,

pilou010 à dit:

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.

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 16 Octobre 2020

• #3

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

 

Vote positif 0 Vote négatif

P

pilou010

XLDnaute Occasionnel

• 16 Octobre 2020

• #4

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.

 

Pièces jointes

• Classeur1.xlsm

  84.9 KB · Affichages: 7

Vote positif 0 Vote négatif

P

pilou010

XLDnaute Occasionnel

• 16 Octobre 2020

• #5

mapomme à dit:

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

Cliquez pour agrandir...

Essai non concluant, c'est toujours en A2

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2020

• #6

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.

 

Vote positif 0 Vote négatif

P

pilou010

XLDnaute Occasionnel

• 17 Octobre 2020

• #7

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: 17 Octobre 2020

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Octobre 2020

• #8

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.

 

Pièces jointes

• pilou010- prem cell vide- v1.xlsm

  89.3 KB · Affichages: 8

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 17 Octobre 2020

• #9

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Octobre 2020

• #10

Bonjour à tous,

Si la méthode Find fonctionne sur MAC :

VB:

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

A+

 

Vote positif 0 Vote négatif

Solution

P

pilou010

XLDnaute Occasionnel

• 17 Octobre 2020

• #11

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

 

Vote positif 0 Vote négatif