Discussion :

[nouveauvba]

Bonjour à tous.

Grace à joelevrai un nouvel horizon c'est ouvert à moi. J'ai un code de 8 lignes qui doit tourner 12 fois.

Objectif changer le lieu de stockage de la donnée dans tablo() ca c'est bon
Mais il faut aussi changer le critère "AAAA" par "AAAB" quand i =2 puis "AAAC" quand i =3.... Cela est il possible parce que là je ne vois pas comment à part recopier 12 fois le code et modifier le critère....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For i = 1 To 12
 
            With Application.WorksheetFunction
            tablo(i, 1) = .CountIf(maplage2, "AAAA")
            tablo(i, 2) = .MinIfs(MaPlage, maplage2, "AAAA")
            tablo(i, 3) = .MaxIfs(MaPlage, maplage2, "AAAA")
            tablo(i, 4) = .CountIfs(maplage2, "AAAA", MaPlage, "<1000")
            tablo(i, 5) = .CountIfs(maplage2, "AAAA", MaPlage, ">=1000", MaPlage, "<2000")
            tablo(i, 6) = .CountIfs(maplage2, "AAAA", MaPlage, ">=2000", MaPlage, "<3000")
            tablo(i, 7) = .CountIfs(maplage2, "AAAA", MaPlage, ">=3000")
            tablo(i, 8) = .AverageIfs(MaPlage, maplage2, "AAAA")
    End With
 
next i

Merci par avance.

[joe.levrai]

(Re)bonjour,

utilise les codes de caractères Chr()

En majuscule, A = Chr(65), B = Chr(66) etc....


petit exemple d'alphabet majuscule

Code :

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

1
2
3
4
5
6
Sub ioi()
Debug.Print Chr(65)
    For i = 1 To 26
        Debug.Print Chr(64 + i)
    Next i
End Sub

Je vais pas plus loin, tu nous a démontré tout à l'heure qu'une simple piste te suffisait pour adapter

[nouveauvba]

j'ai trouvé cette solution suis sur qu'il y a plus efficace :

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
 
montext = "AAAA"
For i = 1 To 12
 
            With Application.WorksheetFunction
            tablo(i, 1) = .CountIf(maplage2, montext)
            tablo(i, 2) = .MinIfs(MaPlage, maplage2, montext)
            tablo(i, 3) = .MaxIfs(MaPlage, maplage2, montext)
            tablo(i, 4) = .CountIfs(maplage2, montext, MaPlage, "<1000")
            tablo(i, 5) = .CountIfs(maplage2, montext, MaPlage, ">=1000", MaPlage, "<2000")
            tablo(i, 6) = .CountIfs(maplage2, montext,MaPlage, ">=2000", MaPlage, "<3000")
            tablo(i, 7) = .CountIfs(maplage2, montext, MaPlage, ">=3000")
            tablo(i, 8) = .AverageIfs(MaPlage, maplage2, montext)
    End With
 If i = 1 Then
montext = Replace(montext, "AAAA", "AAAB")
End If
If i = 2 Then
montext = Replace(montext, "AAAB", "AAAC")
End If
If i = 3 Then
montext = Replace(montext, "AAAC", "AAAD")
End If
If i = 4 Then
montext = Replace(montext, "AAAD", "AAAE")
End If
If i = 5 Then
montext = Replace(montext, "AAAE", "AAAF")
End If
 
next i

[nouveauvba]

Rebonjour,

Je vais pas plus loin, tu nous a démontré tout à l'heure qu'une simple piste te suffisait pour adapter

J'essaie , je cherche , je teste, je consulte, je mais avec le temps et les indices qui vont biens....

Merci pour tout

[joe.levrai]

Ok ok, un prolongement de piste, comment on constitue toutes tes chaines finales

Code :

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

1
2
3
4
5
6
Sub UnePiste()
Const MaChaine As String = "AAA"
For i = 1 to 12
    Debug.Print MaChaine & Chr(64 + i)
Next i
End Sub

[nouveauvba]

Merci dysorthographie et joelevrai
Le problème c'est que mon exemple fictif n'est pas bon, car la dernière lettre de mes données ne se suivent pas ...
Du coup ça complexifie beaucoup la chose...

[joe.levrai]

tu vas voir

Code :

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

1
2
3
4
5
6
Sub UnePiste()
Const MaChaine As String = "AAA"
    For Each element In Array("A", "D", "Z", "B")
        Debug.Print MaChaine & element
    Next element
End Sub

tu peux ajouter de la clarté en utilisant une variable tableau pour stocker ton Array

[nouveauvba]

génial:

par contre j'ai pas compris

tu peux ajouter de la clarté en utilisant une variable tableau pour stocker ton Array

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
Sub test()
a = "AAAA"
Mid(a, Len(a), 1) = Chr(Asc(Mid(a, Len(a), 1)) + 1)
Debug.Print a
End Sub

[Invité]

https://www.developpez.net/forums/d1...s/#post8996687