Sendkeys avec un control

  • Initiateur de la discussion bichon
  • Date de début
B

bichon

Guest
Salut a tous mon problème et le suivant
j'aimerai copier plusieur cellule d'une feuille donc j'aurai besoin de faire un copier
tout en laissant la touche control activé
j'ai essayé avec le sendkeys mais ca ne marche pa je comprend pas
voici mon code

Dim i As Long
Workbooks.Open FileName:="C:\mon dossier\essai.xls"
For i = 23 To Range("A65536").End(xlUp).Row Step 23
Range("Z" & i).Select
Selection.Copy
SendKeys "^", True
Next i

voila ca copie que la derniere cellule
a l'aide

merci
 
B

bichon

Guest
Yo je te met ca mais ca va pas beaucoup t'aider
o fait merci pour mon problème des indices c'est super
je t'ai mis une autre question sur le fil

bref pour cela mon problème je le repete
j'ai ma boucle
qui va du debut jusqu'a la fin de la feuille et en Z23 jusqu'en Z&i
sachant que i est incrementé de 23 a chaque fois
ben j'aimerai copier le contenu des x cellule que je parcours
pour cela j'avais pensé a faire un control pour garder en mémoire le premier copier mais ca marche pas voila
dans l'exemple ya juste 3 element tt les 23 ligne et j'aimerai que dans mon code ca fasse en fait un control sur le premier Z puis un autre control
et enfin de copier tout les z seléctionné
c bon tu a compris?
 

Pièces jointes

  • montrecopier.xls
    13.5 KB · Affichages: 48
Y

Yo

Guest
Re-Salut,
J'ai bricolé une macro pour faire ce que tu veux.
Jettes un coup d'oeil dans le code du bouton.
 

Pièces jointes

  • Copier-Coller.xls
    23.5 KB · Affichages: 56
  • Copier-Coller.xls
    23.5 KB · Affichages: 57
  • Copier-Coller.xls
    23.5 KB · Affichages: 57
V

Vériland

Guest
Tout est dit...loool

Zip_XLD.gif
 

Discussions similaires

Statistiques des forums

Discussions
314 656
Messages
2 111 606
Membres
111 218
dernier inscrit
Jean-Kev