liste de diffusion

[totoche]

Bonjour,

je cherche à créer une application sous excel de Gestion documentaire.

Pour ce faire j'ai une userform qui me permet de saisir les données relatives à mes documents et de les envoyer vers une base.

Le problème arrive au niveau de la liste de diffusion j'ai créer une liste déroulante qui me permet de selectionner le destinataire et de l'envoyer grace a un bouton dans une zone de liste. quan je fais ok pour envoyer les données de ma userform dans ma base de données je souhaiterais que les destinataires sélectionnés (dans la zone de liste) viennent s'écrire dans une cellule bien précise et pas a la suite les uns des autres : cette cellule correspond à une cellule dont le champ de colonne à le même nom que le destinataire.

c'est pour pouvoir faire des filtres élaborés sur les champs destinataires.

Suis je clair dans mes exmplications ?

qquns peut il m'aider ?

HELP !!!

 

[Totoche]

je joint un fichier exemple de ce que je cherche a faire... Car je reconnait que ma demande ne doit pas etre claire !!!

si une ame charitable peut se pencher sur le pb

Amicalement

 

[Totoche]

2eme tentative... :unsure:

 

[Totoche]

comme on dit jamais deux sans trois...

:angry:

[file name=test_20050713163036.zip size=14167]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20050713163036.zip[/file]

 

[totoche]

SNIFFF

Sniffff

je viens tous les jours m'instruire et m'améliorer sous excel grâce aux nombreuses connaissances et compétences des passionés qui fréquentent ce forum. J'ai déjà répondu également à pas mal de personne en prenant sur mon temps...et là je m'apercois que personne ne me répond...je trouve ca trop injuste !!!

EST CE QUE MON PB EST INSOLUTIONABLE !!!

 

[_Thierry]

Bonjour Totoche, le Forum

Nous sommes désolés, ton (tes) posts à la veille du 14 juillet ont dû passer inaperçu.

Je ne suis pas certain d'avoir compris mais voilà déjà une approche :

Private Sub CommandButton3_Click()
Dim C As Byte
Dim i As Byte

    With ListBox1
        For i = 0 To .ListCount - 1
                For C = 2 To 5
                    If Cells(9, C) = .List(i, 0) Then
                        Cells(9, C).Offset(1, 0) = .List(i, 0)
                        Exit For
                    End If
                Next C
        Next i
    End With

End Sub

Maintenant si tu dois écrire en décalage de ligne aussi, une autre version :

Private Sub CommandButton3_Click()
Dim L As Integer
Dim C As Byte
Dim i As Byte

    With ListBox1
        For i = 0 To .ListCount - 1
                For C = 2 To 5
                    If Cells(9, C) = .List(i, 0) Then
                        L = Cells(5000, C).End(xlUp).Row + 1
                        Cells(L, C) = .List(i, 0)
                        Exit For
                    End If
                Next C
        Next i
    End With

Bon Après Midi
[ol]@+Thierry[/ol]

 

[Totoche]

Ah,

merci, je me sentais un peu seul sur le coup...

ton code marche très bien et je suis presque un peu honteux de ne pas l'avoir trouvé tous seul.

au plaisir de pouvoir vous aider une prochaine fois...

Bonne fin de journée