Lire une valeur VBA

Fermé
clemandrieu - 12 mars 2010 à 08:31
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 16 mars 2010 à 11:06
Bonjour,

J'aurai besoin d'un petit coup de pouce car je suis novice en VBA.
J'ai besoin d'utiliser la valeur d'une cellule contenue dans une feuille excel.
Pour le moment j'écrit la valeur de la cellule manuellement dans le code.

Comment écrire sous VBA "le nombre est celui contenu dans la case A1 de la feuille nommée Bilan"?

Merci beaucoup pour vos réponses.
A voir également:

1 réponse

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 750
16 mars 2010 à 11:06
Salut,
S'agissant d'un nombre, il faut faire attention au type de variable que l'on va utiliser pour stocker la valeur contenue dans la cellule.
Il en existe plusieurs : mes sources

- Integer
Données contenant des nombres entiers stockés, de 2 octets, compris entre -32 768 et 32 767.
Remarque:
Si vous écrivez "Dim X As Integer", alors que la valeur est décimale (par exemple X=5,9), la valeur renvoyée sera égale à 6.
- Long
Nombre entier codé sur 4 octets (32 bits) et dont la valeur est comprise entre -2 147 483 648 et 2 147 483 647.
- Currency
Données dont la plage de valeurs s'étend de -922 337 203 685 477,5808 à 922 337 203 685 477,5807.
Ce type de données est utilisé dans les calculs monétaires ou dans les calculs à virgule fixe pour lesquels une grande précision est requise.
- Single
Type de données qui regroupe des variables à virgule flottante en simple précision sous forme de nombres à virgule flottante codés sur 32 bits (4 octets), dont la valeur est comprise entre -3,402823E38 et -1,401298E-45 pour les
valeurs négatives, et entre 1,401298E-45 et 3,402823E38 pour les valeurs positives.
- Double
Type de données stockant sur 64 bits les nombres à virgule flottante en double précision compris entre -1,79769313486231E308 et -4,94065645841247E-324 pour les valeurs négatives, et entre 4,94065645841247E-324 et 1,79769313486232E308 pour les valeurs positives.

Une fois déterminé le type de données que tu va entrer dans ta cellule, la syntaxe est simple :
Dim X As Double 'par exemple
X =  Sheets("Bilan").Range("A1").Value 'X = Feuille(Bilan).Cellule(A1).Valeur


N'hésite pas si tu souhaites des précisions.
0