Sélectionner une cellule dans un onglet en 1 seule ligne vba

Résolu/Fermé
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - 16 mars 2023 à 11:38
cousinhub29 Messages postés 882 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 25 avril 2024 - 16 mars 2023 à 13:46

Bonjour,

Comment peux t on en vba sélectionner en 1 seule ligne , la sélection d'un onglet et d'une cellule ?

Worksheets("Feuil1").select

Range("A1").Select

en

Worksheets("Feuil1").Range("A1").Select 'sort en erreur.....

Merci d'avance !


Windows / Firefox 91.0

A voir également:

4 réponses

cousinhub29 Messages postés 882 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 25 avril 2024 334
16 mars 2023 à 13:46

Et dans un code, la plus courte syntaxe n'est pas forcément la plus rapide...

Très peu de gain, à part l'usure moins prononcée des touches du clavier...


2
cousinhub29 Messages postés 882 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 25 avril 2024 334
16 mars 2023 à 13:01

Bonjour,

Même s'il est rarement nécessaire d'utiliser la méthode Select (sauf pour consultation éventuelle), avec ce code, tu devrais y arriver :

Sub en_une_ligne()
Application.Goto Sheets("Feuil1").Range("A1"), True
End Sub

Le True en fin d'instruction correspond au Scroll (la cellule sélectionnée va se positionner en haut à gauche)


1
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
Modifié le 16 mars 2023 à 13:11

Bonjour cousinhub29,

Merci pour cette solution! Est ' il possible de ne pas déplacer la cellule en haut à gauche.

Exemple :

Application.Goto Sheets("Feuil1").Range("K15"), True

La cellule K15 devra être sélectionnée, mais non se positionner en haut à gauche ?

Cordialement,

0
cousinhub29 Messages postés 882 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 25 avril 2024 334
16 mars 2023 à 13:18

Re-,

Tu supprimes la virgule et le True...


1
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
Modifié le 16 mars 2023 à 13:39

Merci ! Si la cellule K15, je la nomme ? est-ce plus court en syntaxe ....

Exemple : Le nom = "test"

0
cousinhub29 Messages postés 882 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 25 avril 2024 334
16 mars 2023 à 13:44

Dans ce cas, tu n'es plus sur une ligne...(car il vaut mieux toujours déclarer les variables...)

Mais rien ne t'empêches de faire le test...

Sub une_autre_ligne()
Dim Cel As Range
Set Cel = Sheets("Feuil1").Range("K15"): Application.Goto Cel
End Sub

1