Vba ActiveCell

[Calvus]

Bonsoir le Forum,

Pourquoi ce code fonctionne t'il ?

c = Sheets("Feuil1").Range("A2").Value
MsgBox (c)

Et pas celui-ci ?

c = Sheets("Feuil1").ActiveCell.Value
MsgBox (c)

ActiveCell étant la cellule A2 bien évidemment.

Merci.

 

[Dranreb]

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.

 

[Calvus]

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

 

[Dranreb]

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

 

[Calvus]

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

 

[Dranreb]

Re : Vba ActiveCell

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

 

[Calvus]

Re : Vba ActiveCell

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

Merci et bonne nuit.

 

[DoubleZero]

Re : Vba ActiveCell

Bonjour, Calvus , Dranreb , le Forum,

... 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...

Une suggestion en pièce jointe.

A bientôt

 

[Calvus]

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.

 

[Calvus]

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.

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

Que ce soit ça :

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

Ou ça :

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

ça ouvre le classeur mais c'est tout.

Merci

 

[Dranreb]

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.

 

[Calvus]

Re : Vba ActiveCell

Merci,

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

Sub Choisir_Onglet()
On Error Resume Next

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

End Sub

Fonctionne

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

 

[DoubleZero]

Re : Vba ActiveCell

Re-bonjour,

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

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

A bientôt

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

 

[Dranreb]

Re : Vba ActiveCell

c = Sheets(Selection.Text).Activate

ne veut rien dire.
C = ActiveCell.Value

 

[Calvus]

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