Remplir un tableau à partir d'une liste dans un autre onglet

Bonjour,
Je souhaiterai a partir d'une macro pouvoir compléter un tableau a partir de la valeur dans une liste.

Je vous remercie!

Bonsoir,

un peu d'effort S.V.P décrit ton tableau et montre nous la partie du code qui cause problème entre balises de [code] [/code]
------------------------------------------------------
Fichier joint dans vos discussions
-------------------------------------------------------------

Bonsoir;

le tableau avec ces 3 niveaux existe déjà vide mais je veux juste depuis les données de la feuille 1 remplir ce tableau et avoir le résultat comme j'ai mis dans le 2ème onglet de mon fichier Excel.

j'ai essayé de programmer mais j'ai pas trouvé la solution!

merci pour votre aide!

Bonsoir maymou27,

Qu'est ce que tu appelles un tableau à trois niveaux ? Trois lignes ? Trois colonnes ?

Veux tu apprendre comment lire une cellule en feuille1, faire un calcul avec et remplir un tableau avec le résultat en feuille 2 ?

Bertrand

Bonsoir,

oui j'ai un tableau avec trois colonne et je veux apprendre comment lire une cellule en feuille1, faire un calcul avec et remplir un tableau avec le résultat en feuille 2


je vous remercie infiniment

Bonsoir,

La route est longue, mais s'agissant de la base, il me parait plus simple d'aller directement consulter un didacticiel sur le thème.

Enfin, pour satisfaire ta curiosité bien légitime, je t'ai traité un petit exemple :
Prendre la valeur de la cellule A1 de la feuille 1, puis multiplier par 2 et ajouter mille, puis affecter le résultat dans la cellule A1 de la feuille 2. (les commentaires peuvent être supprimés, ils sont précédés d'un ')

Code:

---

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

Sub macroapprentissagebase()   'déclaration des variables x et resultat servant de support au calcul, un "As Long" = format chiffre Dim x, resultat As Long   ' affecte à la variable x le contenu de la cellule "A1" de l'onglet "feuil1" ' Cells(1,1) --> premier chiffre correspond au n° de ligne, le deuxième à la colonne x = Sheets("feuil1").Cells(1, 1).Value   ' La formule pour faire le calcul resultat = x * 2 + 1000   ' affecte au contenu de la cellule "A1" de l'onglet "feuil2" le résultat du calcul Sheets("feuil2").Cells(1, 1).Value = resultat   End Sub

---

Sans les variables, pour un résultat similaire, tu peux remplacer la macro par

Code:

---

1 2 3 4 5

Sub macroapprentissagebase2()   Sheets("feuil2").Cells(1, 1).Value = Sheets("feuil1").Cells(1, 1).Value * 2 + 1000   End Sub

---

Apprendre à coder, c'est comme apprendre une langue étrangère : les mathématiques et les logiques sont communes/à comprendre mais les syntaxes et les vocabulaires/expressions sont à apprendre.

Bertrand

Je vous remerci monsieur Bertrand pour votre aide.

SVP je veux créer un macro qui va parcourir les cellule(A1:A10), et il va copier dans une autre feuille que les cellule qu'ils ont le couleur jaune!!

Code:

---

1 2 3

For each c in Range("A1:A10") If c.interior.color = RGB(255,255,0) then ....

---

je voudrais copier les valeur des cellule jaune qu'on a trouvé aprés le test dans la première colonne de la feuille 2!
merci

Bonjour,

j'ai réaliser un test qui va me detecter les cellule jaune après il va me copier ces cellule dans une colonne d'une autre feuille!

je voudrai qu'il me fasse un remplissage ligne par ligne et qu'il commence son remplissage depuis la cellule (3,1).

Voici mon code source:

Code:

---

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

Sub Macro1() ' ' Macro1 Macro For i = 3 To 100   If Cells(6, i).Interior.ColorIndex = 6 Then   Sheets("feuil3").Cells(3, 1).Value = Cells(6, i) Sheets("feuil3").Cells(3, 1).Interior.ColorIndex = 6 i = i + 1   End If Next i End Sub

---

Merci

Slt !

Je ne comprends pas ! tu compare la 6ème ligne avec au dpart la 3ème colonne et tu donne son résultat (valeur et couleur) tjours au même endroit c'est à dire a3 feuil3

ce n'est pas ça plutôt!

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For i = 3 To 100   If Cells(i, 6).Interior.ColorIndex = 6 Then   Sheets("feuil3").Cells(i, 1).Value = Cells(i, 6) Sheets("feuil3").Cells(i, 1).Interior.ColorIndex = 6 i = i + 1   End If Next i End Sub

---

à vérifier car il y a des plus pro que moi !

Bonjour,

Si j'ai bien compris ta demande, ton code devrait ressembler à ça :

Code:

---

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

Option Explicit Sub Macro1() Dim i As Byte, j As Byte Dim WsSource As Worksheet, WsCible As Worksheet Set WsSource = Worksheets("Feuil1") Set WsCible = Worksheets("Feuil3") j = 3 'Première ligne où sera effectuée la copie dans la feuille 3 For i = 3 To 100 If WsSource.Cells(6, i).Interior.ColorIndex = 6 Then With WsCible .Cells(j, 1).Value = Cells(6, i) .Cells(j, 1).Interior.ColorIndex = 6 End With j = j + 1 'On incrémente la numéro de ligne où sera effectuée la copie dans la feuille 3 End If Next i End Sub

---

Cordialement.

Oui ça marche merci bcp "gFZT82",

merci aussi jijie pour ton aide!