Loope trop longue

[Temjeh]

Bonjour le forum
Enfin de retour!!!!!!!!!
Longue vie à ce site

J'aimerais juste un peu d'aide pour cette loope qui prend trop de temps a s'exécutée:

Dim MaValeur, compteur
MaValeur = ComboBox1.Value
For compteur = 1 To 500
Range('E' & compteur).Select
Selection.EntireRow.Cut
Windows('Transfert').Range('A65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste


Y-a-t-il une facon de la mettre plus rapide

Merci beaucoup pour vos suggestions


Moi à 40 ans


Dieu nous a donné deux extrémités :
l'une pour s'asseoir, l'autre pour réfléchir.
La vie dépend de celle qu'on utilise :
face on gagne, pile on perd.

[Paul-Emile Victor]


A++

Temjeh

 

[Temjeh]

Encore moi

Aussi cette loope ne prend pas en considération la valeur de la combo

Merci

Temjeh

 

[justine]

bonsoir le forum, temjeh

rows('1:' & range('e65536').end(xlup).row).cut
Windows('Transfert').Range('A65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

 

[Temjeh]

Merci justine pour ton aide mais j'ai un bug sur cette ligne:

Windows('Transfert').Range('A65536').End(xlUp).Offset(1, 0).Select

Temjeh

 

[Temjeh]

Rebonsoir

Pour plus simplevoici la macro total:

Ouvre le classeur du nom de la combo(la ca va) et coupe les lignes qui on la valeur du combo et colle dans ce classeur variable ouvert:

Private Sub CommandButton1_Click()
Dim Nom_Fichier

Dim chemin
Nom_Fichier = ComboBox1
chemin = ActiveWorkbook.Path

Dim Wbk As Workbook
Set Wbk = ActiveWorkbook

ChDir chemin

Workbooks.Open FileName:= _
chemin & '\\' & Nom_Fichier & '.xls'

Wbk.Activate
Dim MaValeur, compteur
MaValeur = ComboBox1.Value
For compteur = 1 To 25
If Range('E' & compteur) = ComboBox1.Value Then
Range('E' & compteur).Select
Selection.EntireRow.Cut
Windows(MaValeur).Activate
Range('A65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Wbk.Activate
End If

Next compteur

End Sub

Merci de vos idées

Temjeh

 

[Temjeh]

Rebonsoir

J'ai un Usform bouton combobox:

Clic sur le bouton...
Ouvre le classeur du nom qui est dans la combo(la ca va) reviens a ma feuille de départ(Wbk.Activate) et coupe les lignes qui on la valeur du combo et retourne dans le classeur ouvert par la valeur de la combo et colle dans ce classeur variable ouvert a la suite:


Merci

Temjeh

 

[Temjeh]

rebonsoir
Désolé si je ne me relie pas
Je voulais dire un BOUTON et une COMBOBOX

Je te joint une démo
Si tu veut ouvrir le 'ne plus faire' et il ouvrira l'autre sur demande

Une image vaut milles mots

Merci beaucoup [file name=Coupe_et_colle.zip size=14256]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Coupe_et_colle.zip[/file]

 

[Temjeh]

Merci beaucoup c'est la perfection !!!

Désolé encore pour le manque de clarté

Bravo!

Temjeh

 

[Test]

Ceci est un test de couleur:



Dim MaValeur, compteur
MaValeur = ComboBox1.Value
For compteur = 1 To 500
Range("E" & compteur).Select
Selection.EntireRow.Cut
Windows("Transfert&quot.Range("A65536&quot.End(xlUp).Offset(1,
0).Select
ActiveSheet.Paste

 

[Temjeh]

Test
Dim MaValeur, compteur
MaValeur = ComboBox1.Value
For compteur = 1 To 500
Range("E" & compteur).Select
Selection.EntireRow.Cut
Windows("Transfert&quot.Range("A65536&quot.End(xlUp).Offset(1,
0).Select
ActiveSheet.Paste