[Résolu] Copier-Coller avec temporisation

Paritec

XLDnaute Barbatruc

• 13 Février 2011

• #2

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 😱

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Février 2011

• #3

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.

Code:

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:

Code:

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+ 😎

 

Pièces jointes

• OnTime_MJ.xls

  33 KB · Affichages: 63
• OnTime_MJ.xls

  33 KB · Affichages: 64
• OnTime_MJ.xls

  33 KB · Affichages: 67

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 13 Février 2011

• #4

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 😱

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Février 2011

• #5

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+ 😎

 

Pièces jointes

• OnTime_MJ.xls

  38.5 KB · Affichages: 40
• OnTime_MJ.xls

  38.5 KB · Affichages: 39
• OnTime_MJ.xls

  38.5 KB · Affichages: 37

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Février 2011

• #6

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+ 😎

 

Pièces jointes

• Test.xls

  45 KB · Affichages: 41
• Test.xls

  45 KB · Affichages: 43
• Test.xls

  45 KB · Affichages: 40

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Février 2011

• #7

Re : Copier-Coller avec temporisation

Bonjour Lone-Wolf,

remplace ton code par ceci

Code:

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Février 2011

• #8

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+ 😎

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Février 2011

• #9

Re : Copier-Coller avec temporisation

re,

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

à+
Philippe

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Février 2011

• #10

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+ 😎

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Février 2011

• #11

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+ 😎

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Février 2011

• #12

Re : Copier-Coller avec temporisation

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


A+ 😎

 

Vote positif 0 Vote négatif