Vba ActiveCell

Dranreb

XLDnaute Barbatruc

• 4 Janvier 2016

• #2

Re : Vba ActiveCell

Bonsoir.
Parce que ActiveCell n'est pas une propriété de l'objet Worksheet.
C'est une propriété de l'objet Application. Elle est de type Range et représente la cellule active de la feuille active du classeur actif.
Avec ActiveSheet on a plus de chance: c'est une propriété de l'objet Workbook.

 

Dernière édition: 4 Janvier 2016

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 4 Janvier 2016

• #3

Re : Vba ActiveCell

Bonsoir Dranreb,

Merci.
Alors y a t'il un moyen de contourner le problème ?
J'imagine que vous avez saisi ce que je souhaite faire ? Je voudrais (dans un 1er temps) afficher le nom inscrit dans une cellule.
Le but à terme, est de sélectionner un onglet défini dans une cellule.

Merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Janvier 2016

• #4

Re : Vba ActiveCell

Non, je n'ai pas compris ce que vous souhaitez faire.
Pour activer une feuille dont le nom est porté dans la cellule active c'est Sheets(ActiveCell.Value).Activate

 

Dernière édition: 4 Janvier 2016

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 4 Janvier 2016

• #5

Re : Vba ActiveCell

Ok,

Je joins le fichier.
Je souhaite simplement afficher le nom d'une cellule.
J'avais pensé à ActiveCell pour me permettre de choisir une cellule par la suite.
Tout ceci n'en n'est qu'aux tests pour le moment.
Cdt

 

Pièces jointes

• ActiveCell.xlsm

  17.5 KB · Affichages: 76

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Janvier 2016

• #6

Re : Vba ActiveCell

MsgBox ActiveCell.Value affiche le contenu de la cellule active si ce n'est pas une valeur d'erreur.

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 4 Janvier 2016

• #7

Re : Vba ActiveCell

Merci. Ça fonctionne. Pas le reste évidemment. C'était trop simple...
Je verrai ça demain.

Merci et bonne nuit.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 4 Janvier 2016

• #8

Re : Vba ActiveCell

Bonjour, Calvus 🙂, Dranreb 🙂, le Forum,

Calvus à dit:

... Je voudrais (dans un 1er temps) afficher le nom inscrit dans une cellule.
Le but à terme, est de sélectionner un onglet défini dans une cellule...

Cliquez pour agrandir...

Une suggestion en pièce jointe.

A bientôt 🙂

 

Pièces jointes

• 00 - Calvus - Onglet sélectionner.xlsm

  21.3 KB · Affichages: 75

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 4 Janvier 2016

• #9

Re : Vba ActiveCell

Bonjour le Forum, Double Zéro ! 🙂🙂🙂

Bonne anne et bonne santé ! 😉

00, pourquoi est ce si facile pour toi ??
Merci, c'est un bon début de piste. Je vais voir comment je peux avancer avec ça, pour aller ouvrir l'onglet d'n autre classeur.

Merci et bonne journée. 🙂🙂

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 4 Janvier 2016

• #10

Re : Vba ActiveCell

Re,

Double Zéro, comment faire pour sélectionner un onglet d'un autre classeur ?
Le chemin fonctionne et ouvre le classeur mais je n'arrive pas à sélectionner la feuille en question avec ton code.

Code:

Workbooks.Open Filename:= _
        "C:\XXXX"

Que ce soit ça :

Code:

Sheets(Selection.Text).Activate
Workbooks.Open Filename:= _
        "C:\XXX"

Ou ça :

Code:

Workbooks.Open Filename:= _
        "C:\XXX"
Sheets(Selection.Text).Activate

ça ouvre le classeur mais c'est tout.

Merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Janvier 2016

• #11

Re : Vba ActiveCell

Notez le nom de la feuille dans une variable avant d'ouvrir le classeur alors.
car une fois ouvert la sélection aura changé, forcément.

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 4 Janvier 2016

• #12

Re : Vba ActiveCell

Merci,

Ça fonctionne dans le classeur ouvert, mais pas le second.

Code:

Sub Choisir_Onglet()
On Error Resume Next

Dim c As String
c = Sheets(Selection.Text).Activate

End Sub

Fonctionne

Code:

Sub Choisir_Onglet()
On Error Resume Next

Dim c As String
c = Sheets(Selection.Text).Activate

Workbooks.Open Filename:=   "C:\XXX"
Sheets(c).Activate
End Sub

Ne fonctionne pas.

A moins que ce ne soit pas cela que vous appeliez noter le nom dans une variable.

Merci

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 4 Janvier 2016

• #13

Re : Vba ActiveCell

Re-bonjour,

Calvus à dit:

... sélectionner un onglet d'un autre classeur ?...

Cliquez pour agrandir...

Voir les fichier joints (adapter les nom et emplacement).

A bientôt 🙂🙂

P. S. : Bonne ânée et bonne santé, itou 😀 !

 

Pièces jointes

• 00 - Calvus - Onglet d'un autre ficher ....xlsm

  23.6 KB · Affichages: 53
• Piano.xlsm

  12.7 KB · Affichages: 47
• Piano.xlsm

  12.7 KB · Affichages: 42

Dernière édition: 4 Janvier 2016

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Janvier 2016

• #14

Re : Vba ActiveCell

c = Sheets(Selection.Text).Activate

Cliquez pour agrandir...

ne veut rien dire.
C = ActiveCell.Value

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 4 Janvier 2016

• #15

Re : Vba ActiveCell

Re,

Merci 00 !!! ça marche impec !!

Merci Dranreb, je comprends un peu mieux. Je vais tenter d'avancer un peu tout seul en m'aidant du fichier de Double Zéro.

A bientôt 🙂

 

Vote positif 0 Vote négatif