Retrouver une valeur dans une base de donnée

Bonjour,

dans le fichier joint, je souhaite pourvoir faire apparaitre dans la feuille "inscription" en colonne "o" pour l'ensemble des num adhérent (clé commune aux 2 tables) la valeur "start prog" qui figure (pour certain num adhérent) dans la colonne G de la feuille "journal de ventes. Le problème que je rencontre est que dans cette même colonne plusieur svaleurs peuvent être attribuées au num adhérent.

En espérant avoir été assez clair .

pourriez m'aidez sur ce sujet.

d'avance merci

xavier

Bonjour

Si j'ai bien compris

=SI(NB.SI.ENS('journal des ventes'!B:B;inscription!A2;'journal des ventes'!G:G;"Start prog")>0; "Start prog";"")

Salut,

une proposition en vba, si j'ai bien compris la demande.

Ne pas oublier de cocher "Microsoft Scripting Runtime" dans l'onglet "Tools", option "References" de l'éditeur VBA

Sub try()

Application.ScreenUpdating = False
Dim dico As Variant
Set dico = CreateObject("scripting.dictionary")

Dim aa As Variant
aa = Sheets("journal des ventes").Range("A1").CurrentRegion

Dim i As Long
For i = LBound(aa) To UBound(aa)
    If aa(i, 7) = "START PROG" Then
        dico(aa(i, 2)) = ""
    End If
Next i

Dim dl As Integer
With Sheets("inscription")
    dl = .Range("A" & Rows.Count).End(xlUp).Row

    For i = 2 To dl
        If dico.Exists(.Cells(i, 1).Value) Then
            .Cells(i, 15) = "START PROG"
        End If
    Next i
End With

Application.ScreenUpdating = True

End Sub

bonjour

un essai sans conviction sur la base de déductions

cordialement

Merci à vous pour vos retour je test tout ça.

Excellente déduction

merci infiniment de votre aide

tulipe_4 a écrit :

bonjour

un essai sans conviction sur la base de déductions

xavier22.xlsx

cordialement

je test cela

merci bcp de votre aide

Game Over a écrit :

Salut,

une proposition en vba, si j'ai bien compris la demande.

Ne pas oublier de cocher "Microsoft Scripting Runtime" dans l'onglet "Tools", option "References" de l'éditeur VBA

Sub try()

Application.ScreenUpdating = False
Dim dico As Variant
Set dico = CreateObject("scripting.dictionary")

Dim aa As Variant
aa = Sheets("journal des ventes").Range("A1").CurrentRegion

Dim i As Long
For i = LBound(aa) To UBound(aa)
    If aa(i, 7) = "START PROG" Then
        dico(aa(i, 2)) = ""
    End If
Next i

Dim dl As Integer
With Sheets("inscription")
    dl = .Range("A" & Rows.Count).End(xlUp).Row

    For i = 2 To dl
        If dico.Exists(.Cells(i, 1).Value) Then
            .Cells(i, 15) = "START PROG"
        End If
    Next i
End With

Application.ScreenUpdating = True

End Sub

c'est bien compris ;)

merci infiniment pour votre retour

78chris a écrit :

Bonjour

Si j'ai bien compris

=SI(NB.SI.ENS('journal des ventes'!B:B;inscription!A2;'journal des ventes'!G:G;"Start prog")>0; "Start prog";"")

tout roule au top merci à vous trois pour votre temps

au plaisir de futurs échanges