Création d'une variable dichotomique

Bonjour,

Je veux mettre en place une macro pour la création d'une nouvelle variable dichotomique. Par exemple, sur la base ci-dessous, je veux établir les suivantes critères: pour la variable Age(colonne B, si la valeur est dans l'intervalle 15-29 ans, la nouvelle variable(elle doit apparaître dans la colonne C) doit avoir la variante de réponse''Oui". Puis, si la meme valeur n'est pas inclue dans l'intervalle 30-50 ans, on doit avoir la valeur "Non".

J'ai besoin de votre aide, si c'est possible.

Merci d'avance.

Bonsoir,

Et ceux qui ne sont pas dans ces intervalles et ne seront ni oui ni non, on en fait quoi !?

La condition est que toutes les valeurs doivent être inclues dans un intervalle. Ensuite, on peut considérer les suivantes catégories: "<30 ans" et ">=30 ans".

Bjr,

qu'est-ce qui a de "dichotomique" ?

C'est une variable avec les réponses: oui et non.

donc binaire plus que dichotomique ... enfin c'est ma définition !

Oui, d'accord.

Bonjour,

Pourquoi VBA, une simple formule Excel ne suffit pas ?

=SI(ET(B1>15;B1<=30);"Oui";SI(ET(B1>30;B1<=50);"Non";"Ni l'un, ni l'autre !"))

Je dois créer plusieurs variables comme celle-ci et après je dois importer toute la base dans le programme Sql, c'est la condition.

Re,

...la nouvelle variable(elle doit apparaître dans la colonne C)...

A tester :

Sub Test()

    Dim Plage As Range
    Dim Cel As Range
    Dim Valeur As String

    'défini la plage sur la colonne B de la feuille "Feuil1"
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp)): End With

    For Each Cel In Plage

        Select Case Cel.Value

            Case 15 To 30: Valeur = "Oui"
            Case 30 To 50: Valeur = "Non"
            Case Else: Valeur = "Ni l'un, ni l'autre !"

        End Select

        'résultat en colonne C
        Cel.Offset(, 1).Value = Valeur

    Next Cel

End Sub