Discussion :

[IssZiper]

Bonjour, je suis débutant en VBA sous Excel, et je souhaiterais automatiser une tâche:

j'ai un tableau excel avec les colonnes A, B, C, D, E, F, G, H, I, J, K, L
parmi ces colonnes (A ,F, H, I) certaines contiennent des valeurs (1 et 2) correspondant respectivement ( 1 = "oui" et 2 = "non") et d'autre colonnes contiennent les quantités.
mon travail consiste à remplacer les 1 par oui et 2 par non alors j'ai écrit un code.Mais dans certaines colonnes il y a des chiffres que je ne souhaite pas modifier. j'aurais besoin d'un code qui s’exécute uniquement sur les colonnes concernés (A, F, H, I) par exemple.
je suis obligé de "changer manuellement" la valeur de la variable COLONNE.
voici le code que j'utilise ;
Sub Oui_Non()
Dim colonne As String
Dim deb, fin, i As Integer

deb = 2
fin = 10
colonne = "A"

For i = deb To fin
If (Range(colonne + CStr(i)).Value = "1") Then
Range(colonne + CStr(i)).Value = "Oui"
ElseIf (Range(colonne + CStr(i)).Value = "2") Then
Range(colonne + CStr(i)).Value = "Non"
End If
Next

End Sub

[parmi]

Bonjour,

Tu pourrais essayer ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Oui_Non()
    Dim I As Integer
    Dim arrColonnes
 
    arrColonnes = Array(1, 6, 8, 9)  'colonnes à modifier
    For I = 0 To UBound(arrColonnes)
        Columns(arrColonnes(I)).Replace 1, "Oui"
        Columns(arrColonnes(I)).Replace 2, "Non"
    Next
End Sub

[vinc_bilb]

Bonjour,

Le VBA marche bien, mais un simple replace excel tout aussi bien ou presque....

Vous avez-juste à sauver toutes les colonnes à modifier dans un range nommé et à faire le remplacement dans ce range ....
et .... suggestion, évitez de passer par un String pour une colonne .... c'est un peu dommage

Bonne journée

Vincent

[IssZiper]

Merci a toi parmi

[vinc_bilb]

et en passant par le VBA (sans passer colonne par colonne):

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
 
Sub ReplaceRng()
 
Dim SrcRng As Range
 
    Set SrcRng = Range("A:A,F:F,H:H,I:I")
    ActiveWorkbook.Names.Add Name:="Rng_Repl", RefersTo:=SrcRng     ' Sauve le range as named range
 
    Set SrcRng = SrcRng.SpecialCells(xlCellTypeConstants)    ' Cells non vides
    Debug.Print SrcRng.AddressLocal
 
    With SrcRng
        .Replace 1, "Oui", xlWhole
        .Replace 2, "Non", xlWhole
    End With
 
End Sub