Copier une valeur dans une autre feuille en fonction de la lettre dans la case accolée VBA excel 2013

**Akit0** · 31/08/2018, 22h45

Bonsoir,
Je me permet de poster ce message car j'aimerai creer un programme VBA qui me permettrait depuis un fichier nommé "Saisie" de rentrer un montant et sur la colonne suivante une lettre allant de "A" à "O" puis en fonction de cette lettre copier dans une seconde feuille nommée "Centralisation" le montant en fonction de la lettre par exemple pour A copier dans la colonne A de mon fichier Centralisation le montant corespondant a la lettre A dans mon fichier Saisie.
Voila le code que j'ai essayé de bricoler mais qui malheureusement ne fonctionne pas
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
Sub Centralisation()
Dim numCell As Double
Dim numCell2 As Double
numCell2 = 3
numCell = 4
Do While Cells(numCell, 5) <> ""
Select Case Cells(numCell, 5)
    Case "A"
        numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 1).Select
        ActiveSheet.Paste
    Case "B"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 2).Select
        ActiveSheet.Paste
    Case "C"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, numCell2).Select
        ActiveSheet.Paste
    Case "D"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 4).Select
        ActiveSheet.Paste
    Case "E"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 5).Select
        ActiveSheet.Paste
    Case "F"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 6).Select
        ActiveSheet.Paste
    Case "G"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 7).Select
        ActiveSheet.Paste
    Case "H"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 8).Select
        ActiveSheet.Paste
    Case "I"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 9).Select
        ActiveSheet.Paste
    Case "J"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 10).Select
        ActiveSheet.Paste
    Case "K"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 11).Select
        ActiveSheet.Paste
    Case "L"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 12).Select
        ActiveSheet.Paste
    Case "M"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 13).Select
        ActiveSheet.Paste
    Case "N"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 14).Select
        ActiveSheet.Paste
    Case "O"
    numCell = numCell + 1
        Cells(numCell, 4).Select
        Selection.Copy
        Sheets("Centralisation").Select
        Cells(numCell2, 15).Select
        ActiveSheet.Paste
 
 End Select
Loop
End Sub

**eriiic** · 01/09/2018, 08h26

Bonjour,

Code :

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

Sheets("Centralisation").Cells(numCell2, 1).Offset(, Asc(Cells(numCell, 5)) - 65) = Cells(numCell, 4)

eric

**Akit0** · 01/09/2018, 13h17

Envoyé par eriiic

Bonjour,

Code :

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

Sheets("Centralisation").Cells(numCell2, 1).Offset(, Asc(Cells(numCell, 5)) - 65) = Cells(numCell, 4)

eric

Bonjour Eric,
Tout d'abord merci pour ta réponse, ensuite peux tu m'expliquer un minimum ton code parce que je ne vois pas bien comment il fait pour savoir quelle lettre est inscrite ou alors c'est juste un morceau de code ?
Merci pour tes explications !

**patricktoulon** · 01/09/2018, 13h54

Bonjour
je pige pas tres bien le "-65" mais bon si ce n'est que la valeur de la cellule ne corespond pas a sa colonne

mais peut etre que ceci t'aidera a comprendre les outis de convertion que tu a dispo (chr()) et (asc)

Code :

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

1
2
3
4
Sub testx()
MsgBox "la colonne 1 en lettre c'est la " & Chr([A1].Column + 64)
MsgBox "la colonne ""A"" c'est la " & Asc([A1].Column) - 48
End Sub

**Akit0** · 01/09/2018, 15h25

Envoyé par patricktoulon

Bonjour
je pige pas tres bien le "-65" mais bon si ce n'est que la valeur de la cellule ne corespond pas a sa colonne

mais peut etre que ceci t'aidera a comprendre les outis de convertion que tu a dispo (chr()) et (asc)

Code :

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

1
2
3
4
Sub testx()
MsgBox "la colonne 1 en lettre c'est la " & Chr([A1].Column + 64)
MsgBox "la colonne ""A"" c'est la " & Asc([A1].Column) - 48
End Sub

Merci pour ta réponse, je ne comprends toujours pas le + 64 et - 48 donc si tu peux m'éclairer ca m'aiderai beaucoup ! ensuite je me pose une autre question comment je peux faire pour l'incrémenter dans mon code !
Merci de votre aide