[Résolu] Copier-Coller avec temporisation

[Lone-wolf]

Bonjour à tous,

est-il possible de faire un copier-coller avec une temporisation des cellules avec des texts différents et de les afficher de la même manière (temporisés) dans une ListBox?


Merci pour vos réponses.


A+ 😎

 

[Paritec]

Re : Copier-Coller avec temporisation

bonsoir LonWolf le forum
Perso je ne comprend pas bien la demande, mais si tu nous mets un petit fichier avec des explications dans le fichier de ce que tu as et de ce que tu souhaites obtenir on pourra t'aider
a+
Papou 😱

 

[Lone-wolf]

Re : Copier-Coller avec temporisation

Bonjour Paritec,

merci d'avoir répondu.

Voilà le fichier exemple (Temporisation) de MJ13. Les texts doivent être copier en colonne C.

Ensuite les noms en [C] doivent s'incrémenter dans la ListBox.

A la fermeture du Formulaire celle-ci doit se vider,
je pense que Listbox1.ListIndex = "" doit suffir.

Private Sub UserForm_Initialize()
    Worksheets("Feuil1").Activate
    Set Sht = Sheets("Feuil1")
    Sht.[C1:C10].Sort key1:=Sht.[C1]    ' Trie la BD
    Me.ListBox1.List = Range(Sht.[C1], Sht.[C10].End(xlUp)).Value
    Me.ListBox1.ListIndex = 0
End Sub


Private Sub ListBox1_Activate()
    Set Sht = Sheets("Feui1")
    ligne = [C1].Offset(ListBox1.ListIndex, 0).Row
    Me.ListBox1.Text = Sht.Cells(ligne, 1)
 End Sub

Est-ce que ce code ferait l'affaire pour l'affichage des noms?

Ensuite pour le Copier Coller:

Sub copier_coller()
Dim i As Integer
Dim comp As Integer

comp = 0

For i = 2 To 11
Sheets(1).Activate
If Not IsEmpty(Cells(i, 1)) Then
Cells(i, 1).Select
Selection.Copy
Sheets(1).Activate
Cells(comp + 1, 3).Select
ActiveSheet.Paste
comp = comp + 1
End If
Next i

End Sub

A+ 😎

 

[Paritec]

Re : Copier-Coller avec temporisation

Bonjour LoneWolf,
bon alors OK tu temporises, mais on ne sait toujours pas pourquoi? et surtout elle est ou la listbox ?
dans l'attente de tes explications
a+
papou 😱

 

[Lone-wolf]

Re : Copier-Coller avec temporisation

Pourqoui?

As-tu déjà fait un exe avec WinRar?
Quand tu clique sur celui-ci qu'est-ce que tu vois???

C'est le résultat que j'aimerais obtenir 😉

J'ai mis un USF et une ListBox


A+ 😎

 

[Lone-wolf]

Re : Copier-Coller avec temporisation

Coucou! Il y a quelqu'un?? 😕

Voilà, j'ai réussi à obtenir ce que je recherchais, mais il faudrais simplifier le code
(en API) par exemple.



A+ 😎

 

[phlaurent55]

Re : Copier-Coller avec temporisation

Bonjour Lone-Wolf,

remplace ton code par ceci

Sub test()
For i = 1 To Range("A65535").End(xlUp).Row
    t = Timer + 1: Do Until Timer > t: DoEvents: Loop
    Range("A" & i).Select
    Selection.Copy
    Range("C" & i).Select
    ActiveSheet.Paste
Next i
End Sub

à quoi cela va-t'il te servir à part perdre du temps au remplissage ???????

à+
Philippe

 

[Lone-wolf]

Re : Copier-Coller avec temporisation

Bonjour phlaurent55,

comme je l'ai expliqué dans mon précédent post,
je cherchais à obtenir le même effet que WinRar ou encore SevenRemix.

Ces .exe montre l'installation des fichiers.


A+ 😎

 

[phlaurent55]

Re : Copier-Coller avec temporisation

re,

ça ne me dit toujours pas si la réponse apportée te convient

à+
Philippe

 

[Lone-wolf]

Re : Copier-Coller avec temporisation

Oooopppss!! Désolé Philippe 😱

Oui impeccable, comme toujours.

Merci beaucoup pour ton intervention.

Au faite, serait-il possible de faire de même mais avec des fichiers réels.
C'est à dire copier les fichiers vers un autre dossier et afficher leurs noms dans la listbox.



A+ 😎

 

[Lone-wolf]

Re : Copier-Coller avec temporisation

Désolé pour le retard du post, j'ai du m'occuper d'autres choses. 😱

Je n'arrive pas à arrêter la temporisation, suite à la mise en place du bouton Annuler.

Quelqu'un pourrais y jeter un coup d'oeil? Merci infiniment.

Fichier: Installation_fichiers


A+ 😎

 

[Lone-wolf]

Re : Copier-Coller avec temporisation

J'ai trouvé. Problème résolu.


A+ 😎