Macro base de données

Bonjour à tous,

Je dispose d'une base de données où à chaque référence j'attribue un numéro de quantile en fonction de son prix.

La base de données ne contient pas forcément tous les quantiles et j'aimerais pour ceux inexistants créer via un bouton, une référence bidon avec le prix min du quantile et une quantité égale à 1

je vous joins mon fichier pour une meilleure compréhension.

merci

oza

Bonjour,

Sub Ajoute()
Dim Lg%, Lg2%, i%, c
    Application.ScreenUpdating = False
        Lg = Range("a" & Rows.Count).End(xlUp).Row
    With Sheets("données")
        For i = 2 To Lg
            Lg2 = .Range("a" & Rows.Count).End(xlUp).Row + 1
            Set c = .Range("e2:e" & Lg2).Find(Cells(i, "a"), LookIn:=xlValues)
            If c Is Nothing Then
                .Range("a" & Lg2) = "bidon" & i - 1 'ref
                .Range("b" & Lg2) = "xxx"           'désign
                .Range("c" & Lg2) = Cells(i, "b")   'prix mini
                .Range("d" & Lg2) = 1               'Qté
                .Range("e" & Lg2) = Cells(i, "a")   'quantile
            End If
        Next i
    End With
End Sub

Amicalement

Claude

merci beaucoup Claude!

Peux tu jeter un œil sur ce fichier, j'aimerais y apporter une modification, conséquence de ma première demande.

lorsque les moyennes sur un quantile sont toutes égales à 1 j'aimerais faire la moyenne du quantile supérieur et inférieur. S'il s'agit du premier quantile on récupère simplement les moyennes du second et idem pour le dernier, on récupère celles de l'avant dernier.

La macro est déjà faite, Banzaï64 m'avait bien aidé dessus. Il faut juste tester si les moyennes sont égales à 1.

Cordialement

oza

Bonsoir,

c'est un autre sujet qui n'a rien à voir avec celui-ci !

tu devrai continuer sur ton poste précédent, çà doit être ce lien :

lien: https://forum.excel-pratique.com/excel/aide-code-macro-t24112.html#p136711

ou ouvre un nouveau poste

désolé !

Claude

Bonjour,

pour en revenir sur ta macro,

est-ce possible de remplacer:

.Range("a" & Lg2) = "bidon" & i - 1 'ref

par

.Range("a" & Lg2) = "" 'ref

penses tu que cela soit possible de ne rien mettre dans référence?

c'est parce qu'après je fais un TCD et j'aimerais qu'il n'y ait rien dans la colonne Nombre de références pour les quantiles que l'on a créés. Afin de ne pas fausser l'utilisateur avec.

je te joins mon fichier avec une illustration.

merci

oza

-- 27 Juil 2011, 00:07 --

Bonsoir Claude,

j'ai une question un peu bête,

si le tableau dans "quantile" démarre en a8 comme sur le fichier ci-joint, où et comment faut-il le préciser dans la macro pour éviter qu'elle ne crée une ligne: 0 x x quantile. (cf fichier)

merci

Bonne soirée

oza