E Vba Recopier la formule sur toute la feuille

**ibdiak** · 04/04/2009, 09h35

Bonjour,

Je débute sur macro vba et j'ai besoin de votre aide, en faite ci joint par le tutoriel l'enregistrement de la 1 ere ligne et j'aimerais le recopier pour toutes les lignes du tableau ,commet proceder? CI dessous u fichier attaché excel..Si quelqu'un a une idée de raccourci..merci d'avance

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Sub rib()
 
    Sheets("RIB EUR (2)").Select
    Range("A12").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RIB EUR (2)").Select
    Range("B12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil2").Select
    Range("E6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RIB EUR (2)").Select
    Range("B15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil2").Select
    Range("D6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RIB EUR (2)").Select
    Range("C12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil2").Select
    Range("G6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RIB EUR (2)").Select
    Range("C15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil2").Select
    Range("H6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RIB EUR (2)").Select
    Range("E13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil2").Select
    Range("I6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RIB EUR (2)").Select
    Range("E14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil2").Select
    Range("J6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RIB EUR (2)").Select
    Range("A13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil2").Select
    Range("C6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RIB EUR (2)").Select
    Range("A14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil2").Select
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

**le petit nicolas** · 04/04/2009, 13h10

salut,
la feuille "RIB EUR (2)" ne figure pas dans ton classeur joint, ce qui rend difficile à comprendre ce que tu cherches à faire

1ere remarque : utiliser l'enregistreur de macros c'est très bien, mais apres il faut nettoyer le code résultant, qui est très foisonnant. Ainsi les "select" suivis d'un "selection" peuvent etre supprimés. Ainsi

Code :

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

1
2
3
4
5
6
Sheets("RIB EUR (2)").Select
Range("A12").Select
Selection.Copy
 
'se résume en 
Sheets("RIB EUR (2)").Range("A12").Copy

2eme remarque : pour ce que tu veux faire, point besoin de Copy/Paste. Tu peux directement demander que la valeur de la cellule cible deviennent celle de la cellule source. Ainsi, le code que tu as fourni se résume en :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub rib()
'remarque : dans le code, la 1ere cellule n'est pas précisée. J'ai mis A6 au hasard
Sheets("Feuil2").Range("A6").Value = Sheets("RIB EUR (2)").Range("A12").Value
Sheets("Feuil2").Range("E6").Value = Sheets("RIB EUR (2)").Range("B12").Value
Sheets("Feuil2").Range("D6").Value = Sheets("RIB EUR (2)").Range("B15").Value
Sheets("Feuil2").Range("G6").Value = Sheets("RIB EUR (2)").Range("C12").Value
Sheets("Feuil2").Range("H6").Value = Sheets("RIB EUR (2)").Range("C15").Value
Sheets("Feuil2").Range("I6").Value = Sheets("RIB EUR (2)").Range("E13").Value
Sheets("Feuil2").Range("J6").Value = Sheets("RIB EUR (2)").Range("E14").Value
Sheets("Feuil2").Range("C6").Value = Sheets("RIB EUR (2)").Range("A13").Value
Sheets("Feuil2").Range("B6").Value = Sheets("RIB EUR (2)").Range("A14").Value
End Sub

ensuite, sachant que pour faire référence à une cellule, on peut employer Cells(NumLigne, NumColonne) à la place de Range("Xn"), tu vois qu'en manipulant de manière judicieuse NumLigne et NumColonne, tu pourras parcourir tout ton tableau et traiter toutes les cellules que tu souhaites traiter

Pour cela, il sera probablement utile d'employer des boucles For...Next (voir aide F1). On peut sans problème faire des boucles à l'intérieur des boucles :

Code :

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

1
2
3
4
5
For i = 1 to 10
    For j = 4 to 9
    'faire ce qu'il faut faire
    Next j
next i

**ibdiak** · 04/04/2009, 15h55

Merci, je vais voir ce que je peux faire à ta méthode!

**casefayere** · 04/04/2009, 16h25

Bonjour,
J'ai regardé ton fichier, il me parait bizarre quant aux résultats attendus,

Avec ce que t'a corrigé le petit Nicolas, j'ai fais ceci :

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 rib()
With Sheets("feuil2")
 
.Cells(6, 1) = Sheets("feuil1").Cells(12, 1)
.Cells(6, 2) = Sheets("feuil1").Cells(14, 1)
.Cells(6, 3) = Sheets("feuil1").Cells(13, 1)
.Cells(6, 4) = Sheets("feuil1").Cells(15, 2)
.Cells(6, 5) = Sheets("feuil1").Cells(12, 2)
.Cells(6, 7) = Sheets("feuil1").Cells(12, 3)
.Cells(6, 8) = Sheets("feuil1").Cells(15, 3)
.Cells(6, 9) = Sheets("feuil1").Cells(13, 5)
.Cells(6, 10) = Sheets("feuil1").Cells(14, 5)
End With
End Sub

Par contre, à ce stade, je ne vois pas où mettre une boucle
j'ai remis les lignes de code dans l'ordre (par rapport à feuil2), j'ai remarqué (sauf erreur) que . cells(6,6) est absent mais c'est peut-etre voulu

Bonne journée

**ibdiak** · 04/04/2009, 17h21

En fait ce que je voudrais c'est à travers mon tableau du fichier attaché ci haut, c'est faire mettre en colonne les données e ligne dans un onglet appelé Rib les valeurs suivantes:
FOE
968
L4
l'adresse du beneficiaire
l'adresse de la banque beneficiaire
Iban
Bic

La partie boucle qui me fcomplique un peu...merci encore!

**Qwazerty** · 04/04/2009, 17h52

SAlut
Reprend ton fichier exemple stp, fait un onglet avec situation initial, la feuil1 actuelle je présume, et un onglet avec l'organisation que tu veux obtenir
A++
Qwaz

E Vba Recopier la formule sur toute la feuille

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager