Copier coller sur VBA
Résolu/Fermé
jojobarre
Messages postés
8
Date d'inscription
vendredi 22 février 2013
Statut
Membre
Dernière intervention
30 janvier 2014
-
22 févr. 2013 à 13:14
jojobarre Messages postés 8 Date d'inscription vendredi 22 février 2013 Statut Membre Dernière intervention 30 janvier 2014 - 22 févr. 2013 à 17:07
jojobarre Messages postés 8 Date d'inscription vendredi 22 février 2013 Statut Membre Dernière intervention 30 janvier 2014 - 22 févr. 2013 à 17:07
A voir également:
- Copier coller sur VBA
- Copier coller pdf - Guide
- Copier-coller - Accueil - Windows
- Historique copier-coller android - Guide
- Symbole clavier copier coller - Guide
- Copier une vidéo youtube - Guide
1 réponse
scinarf
Messages postés
1119
Date d'inscription
samedi 18 novembre 2006
Statut
Membre
Dernière intervention
25 septembre 2014
252
Modifié par scinarf le 22/02/2013 à 13:25
Modifié par scinarf le 22/02/2013 à 13:25
voila un code VBA qui fais ce que tu demandes, pour l'utiliser appuyes sur ALT+F11 et créer un nouveau module. Copie ceci dans ce module en initialisant les valeurs comme tu le souhaites
sub copier()
dim j as integer
dim fin as integer
dim ColonneSource as integer
dim ColonneDest as integer
dim maFeuilleSource as String
dim maFeuilleDest as String
'La il faut initialiser ces valeurs
j=1
fin = 10000 'Valeur a laquelle on doit s'arreter de copier/coller
ColonneSource = 1 'Je considere que la colonne source est la colonne A
ColonneDest = 2 'Je considere que la colonne de destinnation est la colonne B
maFeuilleSource = "Feuil1" 'je considere que ma feuille source est la feuille appelée "Feuil1"
maFeuilleDest = "Feuil2" 'je considere que ma feuille de destinationest la feuille appelée "Feuil2"
'Tu dois initialiser toutes ces valeurs avec ce qui correspond (tes colonnes utiles et tes feuilles utiles)
for i = 2 to fin step 5
sheets(maFeuille2).cells(j,ColonneDest) = sheets(maFeuille1).cells(i,colonneSource)
j=j+1 'Ici on indique que sur la feuille de destination on change de ligne tout les i+5
next i
MsgBox("Travail terminé" & " Vous trouverez vos résultats sur la Feuille " & maFeuille2 & "dans la colonne " & colonneDest)
end sub
Si tu as des questions hésite pas
sub copier()
dim j as integer
dim fin as integer
dim ColonneSource as integer
dim ColonneDest as integer
dim maFeuilleSource as String
dim maFeuilleDest as String
'La il faut initialiser ces valeurs
j=1
fin = 10000 'Valeur a laquelle on doit s'arreter de copier/coller
ColonneSource = 1 'Je considere que la colonne source est la colonne A
ColonneDest = 2 'Je considere que la colonne de destinnation est la colonne B
maFeuilleSource = "Feuil1" 'je considere que ma feuille source est la feuille appelée "Feuil1"
maFeuilleDest = "Feuil2" 'je considere que ma feuille de destinationest la feuille appelée "Feuil2"
'Tu dois initialiser toutes ces valeurs avec ce qui correspond (tes colonnes utiles et tes feuilles utiles)
for i = 2 to fin step 5
sheets(maFeuille2).cells(j,ColonneDest) = sheets(maFeuille1).cells(i,colonneSource)
j=j+1 'Ici on indique que sur la feuille de destination on change de ligne tout les i+5
next i
MsgBox("Travail terminé" & " Vous trouverez vos résultats sur la Feuille " & maFeuille2 & "dans la colonne " & colonneDest)
end sub
Si tu as des questions hésite pas
22 févr. 2013 à 17:07
Merci bien.