Incrémentation d'une colonne dans VBA Excel

Version imprimable

Bonjour

Comme l'indique le titre je veux que mon programme VBA puisse changer de colonne automatiquement.
L,objectif est de changer une valeur A1 en 1, A2 en 2, etc... et placer la valeur numérique dans une case plus loin à droite
J'utilise les valeurs Ascii pour ce faire
Voici ce que j'ai fait jusqu'à maintenant (je sais que mon code n'est pas élégant):

Code:

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
Dim A As Integer
Dim B As Variant
Dim C As Variant
Dim W As Integer
Dim X As Integer
Private Sub CommandButton1_Click()
    A = 3
    W = 66
    X = 79
For i = 1 To 12
    B = Chr(W)
    C = Chr(X)
    If Feuil3.Range(B & A).Value = "A1" Then
        Feuil3.Range(C & A).Value = 1
    ElseIf Feuil3.Range(B & A).Value = "A2" Then
        Feuil3.Range(C & A).Value = 2
    ElseIf Feuil3.Range(B & A).Value = "A3" Then
        Feuil3.Range(C & A).Value = 3
    ElseIf Feuil3.Range(B & A).Value = "A4" Then
        Feuil3.Range(C & A).Value = 4
    ElseIf Feuil3.Range(B & A).Value = "A5" Then
        Feuil3.Range(C & A).Value = 5
    ElseIf Feuil3.Range(B & A).Value = "A6" Then
        Feuil3.Range(C & A).Value = 6
    ElseIf Feuil3.Range(B & A).Value = "A7" Then
        Feuil3.Range(C & A).Value = 7
    ElseIf Feuil3.Range(B & A).Value = "A8" Then
        Feuil3.Range(C & A).Value = 8
    ElseIf Feuil3.Range(B & A).Value = "A9" Then
        Feuil3.Range(C & A).Value = 9
    ElseIf Feuil3.Range(B & A).Value = "A10" Then
        Feuil3.Range(C & A).Value = 10
    ElseIf Feuil3.Range(B & A).Value = "A11" Then
        Feuil3.Range(C & A).Value = 11
    ElseIf Feuil3.Range(B & A).Value = "A12" Then
        Feuil3.Range(C & A).Value = 12
    ElseIf Feuil3.Range(B & A).Value = "A13" Then
        Feuil3.Range(C & A).Value = 13
    ElseIf Feuil3.Range(B & A).Value = "A14" Then
        Feuil3.Range(C & A).Value = 14
    ElseIf Feuil3.Range(B & A).Value = "A15" Then
        Feuil3.Range(C & A).Value = 15
    ElseIf Feuil3.Range(B & A).Value = "A16" Then
        Feuil3.Range(C & A).Value = 16
    ElseIf Feuil3.Range(B & A).Value = "A17" Then
        Feuil3.Range(C & A).Value = 17
    ElseIf Feuil3.Range(B & A).Value = "A18" Then
        Feuil3.Range(C & A).Value = 18
End If
   W = W + 1
   X = X + 1
Next
End Sub

Mon programme fonctionne une seule fois, mais refuse d'effectuer la boucle pour recommencer avec les valeurs incrémentées.
Qu'il y a t'il?
Merci

16/09/2015, 17h28
illight

Bonjour,

C'est étrange, tu fais une boucle For avec une variable i, mais que tu n'utilises nullepart dans ta boucle. Donc forcément, ça va tourner 12 fois, mais ça fera 12 fois la même chose.

Ne comprenant rien à ce que tu veux faire (:mrgreen:), je te laisse déjà corriger ce premier problème, qui va du coup peut-être te débloquer.
16/09/2015, 18h02
isrdum

Merci pour votre réponse,

En fait je veux que le programme s'exécute 12 fois. je croyais que la commande "for i = 1 to 12" était approprié pour faire comprendre à VBA d'exécuter 12 fois le programme.
Quelle commande dois-je utiliser pour ça?

Merci
17/09/2015, 17h30
SfJ5Rpw8

Bonjour,

Dis nous ce que tu veux faire avec ton utilisation de l'ascii et de la fonction chr ..cela nous aideras a t'aider...

Bonjour,

je suis également perplexe sur ton souhait et la méthode que tu utilises

ce que j'ai compris :

- sur la ligne 3 de Feuil3 ... de la colonne B à la colonne M tu as des listes de chaines du type "A" + "Un Nombre"
- tu veux récupérer le nombre et le mettre 13 colonnes plus loin (colonne O à Z) SI le nombre est compris entre 1 et 18

si c'est bien ça, voici une proposition à probablement adapter, puisque je ne pense pas que le cas soit aussi simple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton1_Click() ' boucle sur 12 colonnes For i = 1 To 12 ' Ligne 3 et colonne B à M With Feuil3.Cells(3, 1 + i) ' on exclu le premier caractère (qui est une lettre) ' et on regarde la valeur (le chiffre) de la suite des caractères ' si on est entre 1 et 18 ' on écrit ce chiffre 13 colonnes plus loin If Val(VBA.Mid(.Value, 2)) > 0 And Val(VBA.Mid(.Value, 2)) < 19 Then .Offset(0, 13).Value = Val(VBA.Mid(.Value, 2)) End With Next i End Sub

18/09/2015, 11h00
Igloobel

Bonjour,

Le déplacement d'une colonne à une autre est bien plus facile avec l'objet "Cells" que "Range"

Cells(N°ligne, N°colonne)

on peut même y mettre des variables que l'on incrémente