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

Signaler
Messages postés
151
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
19 avril 2016
-
Messages postés
151
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
19 avril 2016
-
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

2 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
237
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
Messages postés
151
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
19 avril 2016

Encore merci.
Pourquoi faire compliqué ?

bab