Discussion :

[ccadic]

Bonjour à tous,

J'aimerai réaliser une macro permettant une boucle avec plusieurs conditions.
Je m'explique, en fait j'aimerai que lorsqu'on rentre qqch dans une case, genre A, B ou C, alors la case d'à coté correspond la valeur correspondante.
Par exemple, A = 1, B = 3, C = 4, D = 6 et E = 7, j'aimerai une condition du genre Si la case B2 = A ou B ou ... E, alors la case B3 vaut la valeur correspondante.

Merci d'avance

[Theze]

Bonjour,

A mettre dans le module de la feuille et faire des tests en colonne A. Utilise la fonction "Asc" qui retourne un Integer selon la lettre entrée :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    'en colonne A
    If Target.Column <> 1 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
 
    'une seule lettre dans la cellule
    If Len(Target) > 1 Then Exit Sub
 
    'lettre en majuscule
    If Target <> UCase(Target) Then Exit Sub
 
    'A = 1, B = 2, C = 3, etc...
    Target.Offset(, 1) = Asc(Target) - 64
 
End Sub

Si les valeurs doivent être propres à chaque lettres, une possibilité est d'utiliser la fonction Switch :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    'en colonne A
    If Target.Column <> 1 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
 
    'une seule lettre dans la cellule
    If Len(Target) > 1 Then Exit Sub
 
    'lettre en majuscule
    If Target <> UCase(Target) Then Exit Sub
 
    Target.Offset(, 1) = Switch(Target = "A", 1, Target = "B", 3, Target = "C", 6, Target = "D", 8)
 
End Sub

Hervé.