tranformation

[mimi]

bonsoir le forum,

Dans la colonne B d'une feuille il y a soit 'Oui' soit 'Non' comment transformer en VB le 'Oui' en 200 et le 'Non' en 11.

merci pour votre aide a un novice !!!!

 

[Dan]

Bonsoir,

Vas en VBA et place cette macro dans un module

Option Compare Text
Sub Tranforme()
Dim c As Range
For Each c In Range('B1:B10')
Select Case c
Case Is = 'Oui'
c.FormulaR1C1 = 200
Case Is = 'Non'
c.FormulaR1C1 = 11
End Select
Next c
End Sub

NB :
- Range B1:B10 est la plage où se trouve les Oui et Non.
- Place bien 'Option compare text' avant Sub ... cela permet à la macro de lire les lettres en cas d'un mélange majuscules et minuscules (ex : Oui, oui, NON, noN) - Merci à Hervé de m'avoir donné cette instruction.

Si pb n'hésite pas



Message édité par: dan, à: 14/11/2005 23:10

 

[Bebere]

bonsoir Mimi

Sub Oui200Non11()
Dim L As Integer, C As Range
'dernière cellule non vide
'si tu as donné un nom à ta feuille tu changes Feuil1 par ce nom
with Sheets('Feuil1')
L = .Range('B65536').End(xlUp).Row
For Each C In .Range('B1:B' & L) 'la plage de cellules
If C.Value = 'Oui' Or C.Value = 'oui' Or C.Value = 'OUI' Then C.Value = 200
If C.Value = 'Non' Or C.Value = 'non' Or C.Value = 'NON' Then C.Value = 11
Next C
End Sub

à bientôt

 

[Mimi]

Merci pour vos reponses
A+