Lire une cellule ou écrire dans une cellule via Function ou SubRésolu

Question

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

ucfoutu · Answer

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

BABUDROME · Answer

Encore merci.
Pourquoi  faire compliqué ?
 
     bab

Lire une cellule ou écrire dans une cellule via Function ou Sub

2 réponses

Votre réponse

Discussions similaires