Lecture de case sous différentes feuilles excel. [Résolu]

Signaler
Messages postés
30
Date d'inscription
vendredi 20 mai 2005
Statut
Membre
Dernière intervention
18 août 2005
-
Messages postés
30
Date d'inscription
vendredi 20 mai 2005
Statut
Membre
Dernière intervention
18 août 2005
-
Salut à tous.
Voici mon problème:
J'aimerais pouvoir lire des données inséré dans des cases quelquonce, mais sous différentes feuille, sous visual basic.
En effet, je voudrais avoir un code permettant la lecture de la cellule (1,1)de la feuille1 et la cellule (1,1) de la feuille2.
Merci d'avance pour votre aide.

8 réponses

Messages postés
318
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
30 décembre 2005

Dim maFeuille As Worksheet

maFeuille = ActiveWorkbook.Sheets(1)

maFeuille.Cells(1, 1) = "Ma Valeur"



Dans cet exemple :

- ActiveWorkbook donne le classeur actif

- Sheets(1) revoie la première feuille du classeur actif

- maFeuille (variable typée en feuille) permet d'avoir l'aide à la
saisie pour la dernière ligne. Sinon, ActiveWorkbook.Sheets(1) est de
type Object, donc pas très parlant...
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
7
Salut JonJon91









Essais avec ça et dis moi si ça te vas ..



Dim tonTexte As String

Dim ligne As Integer

Dim colone As Integer



tonTexte = "ma valeur"

ligne = 1

colone = 1



Dim My_XL As Excel.Application

Set My_XL = New Excel.Application



'Cacher le classeur

My_XL.Visible = False



My_XL.Workbooks.Add



'Définition des noms des feuilles

My_XL.ActiveWorkbook.Sheets(1).Name = "feuille Un"

My_XL.ActiveWorkbook.Sheets(2).Name = "feuille Deux"



'Selectionnner la feuille 1

My_XL.ActiveWorkbook.Sheets(1).Select

My_XL.Cells(ligne, colone) = tonTexte & "1"



' Selectionner la feuille 2

My_XL.ActiveWorkbook.Sheets(2).Select

My_XL.Cells(ligne + 1, colone + 1) = tonTexte & "2"



' Rendre visible

My_XL.Visible = True





++



Zlub
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Messages postés
318
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
30 décembre 2005

Salut,



La propriété Sheets (au souvenir) du WorkBook (disponible facilement
avec ActiveWorkBook mais il ne faut pas travailler avec plusieurs
classeurs en même temps) devrait faire l'affaire.
Messages postés
30
Date d'inscription
vendredi 20 mai 2005
Statut
Membre
Dernière intervention
18 août 2005

Oui mais je n'y connait rien.
A tu un exemple de code à donnée.
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
7
Salut JonJon91









Essais avec ça et dis moi si ça te vas ..



Dim tonTexte As String

Dim ligne As Integer

Dim colone As Integer



tonTexte = "ma valeur"

ligne = 1

colone = 1



Dim My_XL As Excel.Application

Set My_XL = New Excel.Application



'Cacher le classeur

My_XL.Visible = False



My_XL.Workbooks.Add



'Définition des noms des feuilles

My_XL.ActiveWorkbook.Sheets(1).Name = "feuille Un"

My_XL.ActiveWorkbook.Sheets(2).Name = "feuille Deux"



'Selectionnner la feuille 1

My_XL.ActiveWorkbook.Sheets(1).Select

My_XL.Cells(ligne, colone) = tonTexte & "1"



' Selectionner la feuille 2

My_XL.ActiveWorkbook.Sheets(2).Select

My_XL.Cells(ligne + 1, colone + 1) = tonTexte & "2"



' Rendre visible

My_XL.Visible = True





++



Zlub
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
7
Salut JonJon91









Essais avec ça et dis moi si ça te vas ..



Dim tonTexte As String

Dim ligne As Integer

Dim colone As Integer



tonTexte = "ma valeur"

ligne = 1

colone = 1



Dim My_XL As Excel.Application

Set My_XL = New Excel.Application



'Cacher le classeur

My_XL.Visible = False



My_XL.Workbooks.Add



'Définition des noms des feuilles

My_XL.ActiveWorkbook.Sheets(1).Name = "feuille Un"

My_XL.ActiveWorkbook.Sheets(2).Name = "feuille Deux"



'Selectionnner la feuille 1

My_XL.ActiveWorkbook.Sheets(1).Select

My_XL.Cells(ligne, colone) = tonTexte & "1"



' Selectionner la feuille 2

My_XL.ActiveWorkbook.Sheets(2).Select

My_XL.Cells(ligne + 1, colone + 1) = tonTexte & "2"



' Rendre visible

My_XL.Visible = True





++



Zlub
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
7
désolé pour le multi post ... le serveur semblait planter ... mais les post sont en fait passés ...
Messages postés
30
Date d'inscription
vendredi 20 mai 2005
Statut
Membre
Dernière intervention
18 août 2005

Merci à tous les deux pour vos conseils.
tous marche, je vais réussir à me débrouiller avec.
Merci encore.