Discussion :

[maryonc]

Bonjour,

Je dois automatiser un fichier excel mais mes compétences techniques sont assez limitées.

J'ai un fichier qui contient plusieurs feuilles.

Sur une des feuilles je dois me positionner en cellule A3 copier un code produit, le coller en valeur en cellule A1 afin que cela calcule des données sur une autre feuille.

Les données calculées sur cette feuille doivent ensuite être collées sur une autre. Et ainsi de suite pour tous les codes produits. Cela commence en A3 et fini en A393.

Je cherche un code afin de ne pas avoir à faire les copier/coller à la main.

Voici le code avec l'enregistreur de macros, en faisant l'opération sur quelques lignes :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub Macro5()
'
' Macro5 Macro
'
 
'
    Range("E3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("IRIS").Select
    Range("BT1:BV1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("test").Select
    Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H1").Select
    Sheets("Param").Select
    Range("E4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("IRIS").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("test").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Param").Select
    Range("E5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("IRIS").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("test").Select
    Range("K1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N1").Select
    Sheets("Param").Select
End Sub

Merci de votre aide !

[Alex020181]

Bonjour,

Sur le fond rien de compliqué mais on va y aller par étapes.

D'abord voici comment attribuer à une cellule la valeur d'une autre cellule.

Ton code avec l'enregistreur de macro

Code :

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

1
2
3
4
5
6
Range("E3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Alors OK ça marche mais c'est lent et tu perds ce que tu as éventuellement dans le presse papier.

Il te suffit de faire

Code :

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

Range("E3")=Range("A2")

C'est tout mais ça reste incomplet.
Comme le nom de la feuille n'est pas précisé c'est sur la feuille active (celle ouverte devant toi au moment du lancement du code) que le code s'exécutera. Il est nettement préférable de préciser le nom des feuilles source et destination.

Pour insérer la valeur d'une cellule dans une autre;

Code :

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

Sheets("IRIS").Range("E3")=Sheets("IRIS").Range("A2")

Ici la valeur de ta cellule "E3" de ta feuille "IRIS" prend la valeur de ta cellule "A2" de ta feuille "IRIS" (même feuille donc).

Pour travailler sur plusieurs feuilles le principe est le même

Code :

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

Sheets("IRIS").Range("E3")=Sheets("test").Range("A2")

Ici la valeur de ta cellule "E3" de ta feuille "IRIS" prend la valeur de ta cellule "A2" de ta feuille "test" (feuille différente donc).

Ah, et pour travailler sur une zone de ta feuille

Code :

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

Sheets("IRIS").Range("E3:J5").Value=Sheets("test").Range("A2:F4").Value

Ici la valeur des cellules de ta zone "E3:J5" de ta feuille "IRIS" prend la valeur des cellules de ta zone "A2:F4" de ta feuille "test" (feuille différente donc).

Voilà. Pour le moment on ne traite pas encore la boucle mais je te laisse déjà faire ces premières corrections.

J'ai repris le nom de tes feuilles mais pas forcément les cellules voulues. A toi de corriger. Je te montre uniquement la syntaxe.

[Alex020181]

As-tu fais les adaptations ?
Peux-tu poster ta nouvelle macro ?
Ensuite on voit la problématique de la boucle.