Discussion :

[diss10]

Bonjour a tous

Svp j'ai besoin d'aide pour ecrire dans la dernière ligne non vide et faire ensuite une seppression des doublons qui viennent de s'ajouter .

Le principe de mon fichier etant d'extraire a l'aide d'un bouton init des informations depuis mes mails comme (Date , objet , envoyé par ...)
puis j'ajoute manuellement ma date de réponse a ce mail , sauf que quand un nouveau mail arrive et re-clique sur init , toutes mes dates ce déplace et mes calculs sont faussé .

Le but c que je puissent ajouter a la dernière ligne non vide que le (les) nouveaumails .

une partie de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Ligne=3 
With Sheets("Suivi")
        For Each i In dossiersource.items
 
 
            Ligne = Ligne + 1
            .Cells(Ligne, 1) = i.Subject
            .Cells(Ligne, 2) = i.creationtime
            .Cells(Ligne, 6) = i.Sendername
 
 
        Next i
 
    End With

Voila Merci

[Jean-Philippe André]

Bonjour,

10 secondes de recherches dans la donne une solution
https://excel.developpez.com/faq/?pa...reLigneNonVide
et une autre
https://excel.developpez.com/faq/?page=Doublon