Aide formule

[apdf1]

Re Bonjour,

Alors voilà, comme la dernière fois vous avez résolu mon souci en moins de temps qu'il ne faut pour le dire, je reviens vers vous.

Je suis à la recherche d'une formule : J’ai bouton sur feuille qui se rend vers la dernière cellule pleine ou non vide je ne sais pas comment on dit,
j’ai un deuxième bouton que j’aimerais qui retourne a la première cellule qui à des valeurs soit la A6?
Je ne sais pas si je me suis bien expliquer ?

Je joins mon fichier qui certainement plus parlants

Merci par avance !!!

Cordialement

Max

 

[mth]

Re : Aide formule

Bonsoir,

Pour ton premier bouton, comme tu es sur 2007 et afin de ne pas être limité à 65530 lignes, tu peux peut-être remplacer par ça:

Private Sub CommandButton1_Click()
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub

Pour le second bouton:

Private Sub CommandButton2_Click()
    Cells(1, 1).End(xlDown).Select
End Sub

Bien à toi,

mth

Edit: Bonsoir papou, Softmama, kjin 🙂
Contente de lire votre approche 🙂

papou, tu as raison, tu m'as bien fait rire, je me prends pour un Shadok 🙂
(que j'adore d'ailleurs)

​

Bonne soirée à tous 🙂
m​

 

[Paritec]

Re : Aide formule

Bonsoir Mireille🙂 apdf1,
pour le deuxième pourquoi faire simple quand on peut faire compliqué!!
a+
papou 🙂

Private Sub CommandButton2_Click()
    Cells(6, 1).Select
End Sub

 

[Softmama]

Re : Aide formule

Bonjour,

Pour qu'il te redescende en bas de la colonne où se trouve la cellule active :

Private Sub CommandButton2_Click()
   Range(65536, Activecell.Column).End(xlUp).Select
End Sub

 

[kjin]

Re : Aide formule

Bonsoir,

Private Sub CommandButton1_Click()
Dim c As Range
Set c = ActiveSheet.UsedRange
c.SpecialCells(xlCellTypeLastCell).Select
End Sub

Private Sub CommandButton2_Click()
Dim c As Range
Set c = ActiveSheet.UsedRange
c.Cells(1, 1).Select
End Sub

A+
kjin

 

[apdf1]

Re : Aide formule

Bonsoir a tous

Je vous remercie ces très sympa
@+

Max

 

[apdf1]

Re : Aide formule

Bonjour à tous

Je vous remercie encore pour votre temps que vous nous données.

J’ai un petit souci au niveau du bouton vers le bas.
Le problème il est que j’ai une liste de code postal et ville sur les colonnes AF1 au AG38946que je ne peu pas les déplacer.

Alors que moi je travail que sur les colonnes de A9 à R1000. Donc quand je click sur le bouton vers le bas il descend a la ligne 38947.

Y a t-il une solution a ce problème

Merci d’avance pour tous

Cordialement

Max

 

[Softmama]

Re : Aide formule

Bonjour,

Pour qu'il te redescende sur la dernière cellule de la colonne où se trouve la cellule active :

Private Sub CommandButton2_Click()
   Range(65536, Activecell.Column).End(xlUp).Select
End Sub

 

[apdf1]

Re : Aide formule

Bonjour Softmama

il me met Erreur 1004 la méthode de l’objet worksheet a échoué.

Je pense qu’il faudrait le faire agir sur la colonne A !!!

Je suis loin d'être un expert ces justes une hypothèse.

@+

Max