XL 2013 Insérer valeur dans cellule

[Sonia2020]

Bonjour le forum,

Je cherche à faire si la valeur en G inférieure à H, ET si le nombre de fois qu'apparait cette valeur en colonne A est supérieure à 1 ET la valeur en B est inférieure à 50 ET Valeur en colonne égale à T alors, ajouter la valeur de la colonne D de cette ligne dont B est inférieure à 50, à la valeur D de la ligne du haut si sa valeur en colonne A est identique à cette ligne. Une fois cela, supprimer la ligne entière.

Je ne sais pas si je me suis fait comprendre mais j'espère que oui.

Je vous ai mis un fichier avec des données de départ et un autre onglet avec le résultat attendu.

En vous remerciant par avance
Bon weekend à vous

Sonia

 

[Rouge]

Bonjour,

Les valeurs en colonnes D pour un même article sont-elles toujours dégressives?

En attendant, par rapport à votre exemple

Sub Ajout_Valeur()
    Dim DerLig As Long, i As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    For i = DerLig To 3 Step -1
        If Cells(i, "A") = Cells(i - 1, "A") Then
            If Cells(i - 1, "G") < Cells(i - 1, "H") And Cells(i, "B") < 50 And Cells(i - 1, "F") = "T" Then
                Cells(i - 1, "D") = Cells(i - 1, "D") + Cells(i, "D")
                Rows(i).Delete
            End If
        End If
    Next i
End Sub

Cdlt

 

[Sonia2020]

Bonjour,

Les valeurs en colonnes D pour un même article sont-elles toujours dégressives?

En attendant, par rapport à votre exemple

Sub Ajout_Valeur()
    Dim DerLig As Long, i As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    For i = DerLig To 3 Step -1
        If Cells(i, "A") = Cells(i - 1, "A") Then
            If Cells(i - 1, "G") < Cells(i - 1, "H") And Cells(i, "B") < 50 And Cells(i - 1, "F") = "T" Then
                Cells(i - 1, "D") = Cells(i - 1, "D") + Cells(i, "D")
                Rows(i).Delete
            End If
        End If
    Next i
End Sub

Cdlt

Bonjour Rouge

Décidément vous êtes partout hahahahahah. Très heureuse de vous lire !!!

Oui les valeurs de la colonne D sont toujours dégressives.
Généralement, je n'ai pas plus de 2 valeurs identiques sur une mêmes données.

Merci beaucoup !!! Je vais essayer de tester la macro. Si cela fonctionne donc c'est bon hihi.

Merci Chevalier Rouge hihi

Sonia