High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Copier/coller en VBA

Dernière réponse le 3 jui 2007 à 10:49:08 Mehdi Ier, le 7 jui 2004 à 11:26:50 
 Signaler ce message aux modérateurs

Bonjour!
J'ai ce code:
comp = 0
For i = 2 To 627

Sheets(4).Activate
If Not IsEmpty(Cells(i, 1)) Then
Cells(i, 1).Select
Selection.Copy
Sheets(5).Activate
Cells(comp + 1, 1).Select
Selection.Paste
comp = comp + 1
End If

Next i

Pour coller, apparemment, ce n'est pas la bonne procédure.
Quelle est la bonne, svp?
Merci.

Meilleures réponses pour « Copier/coller en VBA » dans :
VBA excel problème de copier/coller filtre (Résolu) Voir
[vi/vim] Eviter les tabulations lors d'un copier/coller Voir Par défaut, lorsque vous faîtes un copier-coller dans vi ou vim (par l'intermédiaire d'une session SSH ouverte à distance par exemple), celui-ci ajoute des tabulations incrémentées à chaque ligne. Pour empêcher ce désagrément, il suffit de taper...
Copier/coller sur pages WEB protégé. (Résolu) Voir
Problème de copier-coller sous Firefox VoirDe temps en temps, Firefox refuse de copier ou de coller du contenu ? Adware Pushow Il s'agit probablement d'un adware, appelé pushow**.dll (pushow35.dll, pushow42.dll, etc.) localisé dans c:\windows\system32. Si vous trouvez un tel fichier,...
Ubuntu - Un copier coller rapide VoirUn copier-coller ultra-rapide Sous Ubuntu, Linux, il est très simple de faire un copier coller, encore plus simple qu'un “Ctrl + C” “Ctrl + V” : Il suffit de sélectionner le texte (juste le sélectionner) pour le mettre en mémoire puis de...
Posez votre question Répondre

1

 floy006, le 3 jui 2007 à 10:49:08

Hello,
test avec: 'ActiveSheet' et retire le 'endif'

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

comp = 0

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

End Sub

si ça ne fonctionne pas, aide-toi de l'enregistreur de macro (en le faisant à la main) puis regarde le code après!

   
Répondre à floy006
Posez votre question Répondre
Ils ont besoin de votre aide
Collection CommentÇaMarche.net