Variable sous VBA (suite)

  • Initiateur de la discussion Initiateur de la discussion Philippe
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

Philippe

Guest
Bonjour,

Le problème devient plus compliqué car maintenant, je suis sur une feuille de calcul filtré, et dont les numéros de lignes ne se suivent pas. Ils ne sont plus du stylle 1,2,3,4,5,6 mais plutôt 1,5,6,9,13,21, etc. Comment déplacer ma sélection d'une ligne vers le bas en cliquant sur un bouton alors que les numéros de ligne ne se suivent plus.

Merci à tous pour la réponse que vous pourriez apporter.
 
Bonjour Philippe,

Je vois que tu as déjà ouvert un post à ce sujet : <http://www.excel-downloads.com/html/French/forum/messages/1_52307_52307.htm>
Merci lire la charte de XLD. En effet, le fait d'ouvrir un nouveau post pour le même sujet fait perdre le fil aux personnes du forum qui tentent de te répondre.

Pour ce qui est de ton pb essaie cette macro qui utilise l'instruction "Offset".

Sub DéplaceCellActive()
Dim LigVar, ColVar
LigVar = 1
ColVar = 0
Selection.Offset(LigVar, ColVar).Select
End Sub

Ici on se déplace d'une ligne vers le bas dans la même colonne.

Bon travail.
@+

Dan
 
Tout d'abord, merci Dan.

Mais cela ne marche pas quand une feuille est filtré c'est à dire une feuille ou les numéros de ligne ne se suivent pas 1,3,4,10,15,19, etc... Et en fait je veux passer d'une ligne à l'autre mais seulement celles qui sont visibles à l'écran.
 
Bonjour Philippe,

Juste ta remarque. J'ai fait quelques essais et en effet, ce filtre ne permet pas de faire ce que tu demandes avec ce que je t'ai proposé.
Je vais donc essayer de te trouver une autre soluce.

@+

Dan
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
880
Réponses
5
Affichages
589
Compte Supprimé 979
C
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
806
Retour