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

Résolu
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -  
cousinhub29 Messages postés 1065 Date d'inscription   Statut Membre Dernière intervention   -

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 1065 Date d'inscription   Statut Membre Dernière intervention   360
 

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 1065 Date d'inscription   Statut Membre Dernière intervention   360
 

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   Statut Membre Dernière intervention   21
 

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 1065 Date d'inscription   Statut Membre Dernière intervention   360
 

Re-,

Tu supprimes la virgule et le True...


1
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 

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

Exemple : Le nom = "test"

0
cousinhub29 Messages postés 1065 Date d'inscription   Statut Membre Dernière intervention   360
 

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