Lire une cellule ou écrire dans une cellule via Function ou Sub [Résolu]

BABUDROME 151 Messages postés lundi 16 janvier 2006Date d'inscription 19 avril 2016 Dernière intervention - 8 avril 2016 à 21:44 - Dernière réponse : BABUDROME 151 Messages postés lundi 16 janvier 2006Date d'inscription 19 avril 2016 Dernière intervention
- 8 avril 2016 à 23:10
Bonjour,

J'ai 2 routines :
Sub SetCellule(ByRef Feuil$, ByRef Adr$, Valeur)
If Adr = "" Then Exit Sub
Activer Feuil
Range(Adr).Select
Selection.Value = Valeur
End Sub

Function LireCellule(ByRef Feuil$, ByRef NomCelulle$) As String
Activer Feuil
ActiveSheet.Range(NomCelulle).Select
LireCellule = Selection.Value
End Function

que j'utilisais dans un classeur à multiples feuilles avec les fonctions suivantes :
SetCellule ("Param", "NomClasseur", "Toto.xls"
ou
j = LireCellule("Feuil2", "MaxiLignes")
Dans une nouvelle application, je peux avoir en présence un second classeur.
Je souhaiterai réaliser les mêmes fonctions en citant le nom du classeur (ou son index).
Je suis perdu avec les Workbooks.activate , sheets.activate ou ... je ne sais plus.
Puis-je avoir un conseil ?

Merci d'avance. bab
Afficher la suite 

Votre réponse

2 réponses

ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention - 8 avril 2016 à 21:49
0
Merci
Bonjour,
Workbooks("toto").worksheets("titi").range("C5") se réfère directement à la cellule C5 de la feuille titi du classeur toto
sa propriété value est accessible en lecture/ecriture
Commenter la réponse de ucfoutu
BABUDROME 151 Messages postés lundi 16 janvier 2006Date d'inscription 19 avril 2016 Dernière intervention - 8 avril 2016 à 23:10
0
Merci
Encore merci.
Pourquoi faire compliqué ?

bab
Commenter la réponse de BABUDROME

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.