Discussion :

[maymou27]

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

Je vous remercie!

[SfJ5Rpw8]

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
-------------------------------------------------------------

[maymou27]

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!

[Bear the french]

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

[maymou27]

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

[Bear the french]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[maymou27]

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!!

[AlphaScorpi]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[maymou27]

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

[maymou27]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jijie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[gFZT82]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[maymou27]

Oui ça marche merci bcp "gFZT82",

merci aussi jijie pour ton aide!