Remplir une colonne avec VBA en fonction des autres colonnes

Question

Bonsoir Je suis heureux de revenir sur ce forum après tout ce qu'il m'a apporté pour l'écriture d'un algorithme de trading sur excel. Je n'imaginais pas qu'Excel allait me donner une telle avance sur les marchés financiers Mille Merci une fois de plus et bonne année par anticipation pour tous les membres Ce soir mon probleme est le suivant je souhaite remplir par VBA un tableau qui enregistre les ordres placé selon les conditions suivantes. - Remplir la colonne "OUT" avec "GAGNANT" si la colonne "EN COURS" = "OK" et la colonne "ETATS" = "POSITIF" - Remplir la colonne "OUT2" avec "PERDANT" si la colonne "EN COURS" = "OK" et la colonne "ETATS" = "NEGATIF" - Ne rien faire si aucune condition n'est remplie...

Dan · Accepted Answer

Re

Dans votre fichier posté ici https://forum.excel-pratique.com/s/goto/1111588, ajoutez le code ci-dessous

Sub maj()
Dim cel As Range
Dim lig As Integer

With Worksheets("Feuil2").ListObjects("POSITION")
    lig = .HeaderRowRange.Row
    .ListColumns(6).DataBodyRange.ClearContents
    .ListColumns(7).DataBodyRange.ClearContents
    .ListColumns(9).DataBodyRange.ClearContents

    For Each cel In .ListColumns(3).DataBodyRange
        If UCase(cel) = "OK" Then
            Select Case UCase(cel.Offset(0, 1))
                Case Is = "NEGATIF": .DataBodyRange(cel.Row - lig, 7) = "PERDANT"
                Case Is = "POSITIF": .DataBodyRange(cel.Row - lig, 6) = "GAGNANT"
            End Select
            .DataBodyRange(cel.Row - lig, 9) = .DataBodyRange(cel.Row - lig, 8)
        End If
    Next cel

End With
End Sub

Ensuite associez-le à un bouton placé sur votre feuille.

Pour la mise à jour, cliquez sur ce bouton pour exécuter le code

Cordialement

Dan · Answer

Mettez ces formules : - en D2 --&gt; =SI(ET(&#91;@&#91;EN COURS&#93;&#93;="Ok";&#91;@ETATS&#93;="POSITIF"); "GAGNANT";"") - en E2 --&gt; =SI(ET(&#91;@&#91;EN COURS&#93;&#93;="Ok";&#91;@ETATS&#93;="NEGATIF"); "PERDANT";"") Si ok --&gt; Crdlt...

Nordik_Nation · Answer

LINSONN, une façon de faire vois si cela te convient...dès que tu vas entrer tes 2 conditions tout se fait automatiquement Les colonnes "I,J,K,L,M " sont masquées pour accélérer le traitement Bonne soirée...

Dan · Answer

Cela n'a pas de sens vous avez un tableau structuré. Si vous appliquez les deux formules en D2 et E2 comme je vous l'ai expliqué, tout le tableau sera mis à jour automatiquement. Il en va de même en cas d'ajout de ligne. A quoi bon compliquer... Le tableau structuré permet de se passer de VBA dans votre cas. C'est complètement "dynamique" pour reprendre vos termes. A noter que si vous supprimez une ligne dans tableau structuré, vous devez toujours sélectionner les données dans le tableau uniquement, puis faire click droite --&gt; Supprimer --&gt; "Lignes de tableau" (vous devez toujours voir "lignes de tableau" - très important !) Que voulez-vous dire par là ? Cordialement...

Dan · Answer

La solution par formule fonctionne très bien et vous évite le VBA qui, comme je vous l'ai précisé ne vous sert pas dans le cas de votre tableau structuré

Exemple : dans votre fichier rajoutez un donnée en ligne 190, vous verrez de suite que les formules que je vous ai données vont être automatiquement adaptées dans cette nouvelle ligne

Dan · Answer

Des formules ? Je ne vois pas de formule en colonne A et B
Juste pour bien comprendre comment vous fonctionnez, expliquez moi comment vous entrez les données en colonne A et B ou comment le tableau est complété
Vous faites un copier coller ?

Dan · Answer

1. Les données sont entrées dans quelles colonnes de votre tableau ? 2. Les colonnes A et B sont complétées par code ? Peut être voir votre code d'importation aiderait à vous donner la meilleur solution Cordialement...

Dan · Answer

Le OK est placé manuellement ?

Si oui, on peut faire agir le code par rapport à cela ou alors vous voulez via un bouton ?

Rem : chose importante, ne jamais avoir de lignes sans données dans un tableau struturé. les lignes 6 et 7 sont à supprimer

Nordik_Nation · Answer

LINSONN, le fichier que je vous ai proposé au post # 4 remplissait vos demandes initiales je pense, vous n'avez jamais donné vos impressions ou commentaires j'aimerais savoir si c'est ce que vous recherchiez en fin de compte... Bonne journée ...

Dan · Answer

Je n'ai pas compris. Ce n'était pas l'objet ma question dans mon post --&gt; https://forum.excel-pratique.com/s/goto/1111601 Le code que je vous ai préparé ira vérifier que le OK se trouve dans la cellule avant de mettre les informations "Perdant", "gagnant et "volume" dans les colonnes respectives. Cela implique qu'il faut que le OK soit présent. A voir si cela est correct pour vous ou pas. Si le Ok est placé avec la macro (comme vous le dites), sur base de quel critère le code doit mettre le OK ou EN ATTENTE dans cette colonne E ? Désolé de mes questions mais si vous voulez un code il faut que je comprenne comment vous fonctionnez Cordialement...