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

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

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