Bonjour

J'ai un programme relativement simple que j'applique sur plusieurs lignes d'une même colonne. Une fois terminé, j'aimerais l'appliquer sur d'autre colonne sans avoir a répéter le programme pour chacune des colonnes. (le programme change les "oui" en 1, les "non" et les cases vides en 0)
J'ai utilisé la commande X = Range("S,AC:AE,AK:AM,AN:AP,AR").Select (les lettres sont les plages de colonnes où je désire que le programme s'effectue). Je sais que mon utilisation de cette commande est farfelue, mais je ne sais pas comment l'utiliser autrement, ni comment faire pour l'intégrer à une boucle pour permettre l’incrémentation.

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
Dim Valeur As String
Dim I As Integer
Dim J As Integer
 
Private Sub CommandButton1_Click()
 
'Convertir le OUI en 1, le NON en 0 et les espaces vides en 0
 
    J = Range("S,AC:AE,AK:AM,AN:AP,AR:BC,BE").Select
    For I = 2 To 170
        Valeur = Feuil1.Range(J & I).Value
            If Valeur = "Oui" Then
               Feuil1.Range(J & I) = 1
            ElseIf Valeur = "Non" Or Valeur = NA Then
                Feuil1.Range(J & I) = 0
            End If
    Next I
 
'FIN Convertir le OUI en 1 et le NON en 0
 
End Sub
Merci beaucoup à la communauté