Discussion :

[isrdum]

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 :

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

[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 (), je te laisse déjà corriger ce premier problème, qui va du coup peut-être te débloquer.

[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

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

[joe.levrai]

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 :

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

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

[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