Obtenir information d'une cellule d'un autre tableau

Bonjour à tous,
Je vais sans doute vous poser une question qui va sembler stupide mais je débute en VBA. J'effectue en ce moment un stage, et je dois réaliser un programme dans lequel je vais chercher des informations dans X tableaux de X employés. Avec ces informations (présence ou absence jour par jour) je dois réaliser un tableau "base" unique de x lignes (une par employé). Voilà je tâtonne, et je n'arrive pas à partir d'une macro effectuée dans le tableau "résultat" obtenir des données d'un autre tableau. Pour être plus clair je voudrais par exemple que la cellule (i,j) de "résultat" soit égale à 1 si la cellule (i,j) du tableau toto vaut 1. Je ne connais pas la syntaxe VBA pour faire un "cells" dans un autre tableau que celui où je programme.
Voilà j'espère avoir était clair.
Par avance merci
Arno

Bonjour,

Il faut simplement indiquer au compilateur les feuilles que tu souhaite prendre en compte :

Code:

---

1 2	Worksheets("Feuil1").Cells(I, J).Value = Worksheets("Feuil2").Cells(I, J).Value

---

Mais à priori, pour ce que tu veux faire, une simple formule Excel devrait suffire !

Hervé.

Bonjour,
Il faudrait savoir ce que tu appelles par tableau.
Est-ce une plage de données ou un tableau que l'on insère par l'onglet [Insertion], groupe Tableaux, commande Tableau
Si c'est la dernière hypothèse, il faut utiliser l'objet ListObject

Scénario 1 - Lecture d'un tableau
Exemple 1 - On veux lire la cellule de la ligne 1, colonne 2 de la plage de données du tableau nommé monTableau de la feuille nommée [Feuil3]

Code:

---

1 2 3 4 5 6 7 8 9

Sub ListObjectAccess() Dim sht As Worksheet, oList As ListObject Set sht = ThisWorkbook.Worksheets("Feuil3") Set oList = sht.ListObjects("monTableau") With oList MsgBox .DataBodyRange.Cells(1, 2) ' Lecture de la ligne 1, colonne 2 de la plage des valeurs du tableau [monTableau] End With Set sht = Nothing: Set oList = Nothing End Sub

---

Explications Extraites de l'aide (F1))
DataBodyRange : Cette propriété renvoie un objet Range qui représente la plage de valeurs, à l'exception de la ligne d'en-tête dans une table. Type de données en lecture seule
Cells : Cette propriété renvoie un objet Range qui représente les cellules contenues dans la plage spécifiée.

Exemple 2 : On est certain qu'il y a un seul tableau dans toutes les feuilles du classeur (ThisWorkbook) dont le nom commence par [Employe]

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub LectureTableau() Dim sht As Worksheet, olist As ListObject For Each sht In ThisWorkbook.Worksheets If Trim(LCase(Left(sht.Name, 7))) = "employe" Then Set olist = sht.ListObjects(1) MsgBox olist.DataBodyRange.Cells(1, 2) ' Lecture de la ligne 1, colonne 2 de la plage des valeurs du tableau 1 End If Next Set sht = Nothing: Set olist = Nothing End Sub

---

On peut également lire la ligne d'une colonne en donnant le nom de son étiquette.

Scénario 2 - Lecture d'une cellule d'une plage de cellules

Code:

---

1 2 3 4 5 6 7

Sub PLageCellule() Dim sht As Worksheet, rng As Range Set sht = ThisWorkbook.Worksheets("Feuil4") Set rng = sht.Range("A1").CurrentRegion MsgBox rng.Cells(2, 1) ' Lecture de la ligne 2, colonne 1 Set sht = Nothing: Set rng = Nothing End Sub

---

Merci à vous 2 pour cette réponse, je vais m'y plonger pour tenter de comprendre.
J'ai fait un petit test, avec le programme suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub boucle_while() Workbooks.Open Filename:="D:\uzo35o\Mes Documents\Stage\source\feuilletest.xls" Dim ligne As Integer Dim col As Integer ligne = 15 col = 3 While ligne < 30 If Cells(ligne, col) = 1 Then 'pose problème : je voudrais qu'il aille chercher dans un autre tableau Cells(ligne - 2, col + 6) = 1 'pour mettre le résultat dans ce tableau Else Cells(ligne - 2, col + 6) = 0 End If ligne = ligne + 1 Wend End Sub

---

En fait le programme marche, c'est juste que lorsque je fais If Cells(ligne, col) = 1 Then Excel teste la cellule de la feuille dans laquelle je programme alors que je voudrais qu'il teste les cellules se trouvant dans un autre tableau excel ,enregistrer ailleurs : à l'endroit définit au début :

Code:

---

Workbooks.Open Filename:="D:\uzo35o\Mes Documents\Stage\source\feuilletest.xls"

---

Voilà ça doit être évident pour des habitués mais là je sèche!
Merci

Bonjour,

Citation:

---

En fait le programme marche, c'est juste que lorsque je fais "If Cells(ligne, col) = 1 Then" Excel teste la cellule de la feuille dans laquelle je programme alors que je voudrais qu'il teste les cellules se trouvant dans un autre tableau excel ,enregistrer ailleurs : à l'endroit définit au début : Workbooks.Open Filename:="D:\uzo35o\Mes Documents\Stage\source\feuilletest.xls"
Voilà ça doit être évident pour des habitués mais là je sèche!

---

Le problème vient du fait que lorsque tu testes avec cette instruction if Cells(Ligne, Colonne) then, tu ne précises pas de quelle feuille et de quel classeur il s'agit. Donc tu as l'information de la cellule de la feuille active.
Exemple

Code:

---

if Workbooks("NomClasseur").Worksheets("Nomfeuille").Cells(1, 2) = 1 Then ...

---

Un grand merci Philippe ça marche maintenant, tu me retires une grosse épine du pied, je vais pouvoir continuer à avancer (enfin essayer)
Merci !!!

Bonjour,
J'ai bien avancé grâce à tes conseils.
Je me permets une autre question :
Le tableau à partir duquel j'obtiens mes données, que je mets en forme grâce à ma macro, proviens lui même d'une macro excel.
Est-il possible de faire "marcher" la macro du programme d'origine à partir de ma macro.
C'est-à-dire :
- Dans la macro source on choisit d'obtenir des tableaux par employé ensuite on choisit l'employé et enfin on obtient le tableau final que j'utilise.
- est-il possible dans ma macro de lancer la création des tableaux de tous les employés?
Je ne sais pas si j'ai été très clair!

Bonjour,
Je ne sais pas si j'ai bien compris la question.
Ce que l'on appelle macro est en fait une procédure "Sub" et il existe également des "function". Une procédure peut bien entendu appeler une autre procédure.
Soit par son nom suivi de son ou de ses arguments ou bien par le mot clé Call

La procédure nommée Main peut appeler la procédure nommée LectureTableau comme l'exemple ci-dessous.

Code:

---

1 2 3

Sub Main() LectureTableau End Sub

---

Merci pour ta réponse

En fait, je ne pense pas que ce que je voulais faire à l'origine soit possible. Il existe à l'origine une macro VBA qui lorsque l'on clique sur un bouton donne une liste d'employés puis si on clique sur un employé donne son planning.
J'aurais aimé récupérer le planning directement en indiquant à ma macro : "appuyer sur le bouton" puis "sélectionner l'employé X" mais les programme est protégé par un mot de passe. dommage.
Merci tout de même