Copier coller sur VBA
Résolu
jojobarre
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
jojobarre Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
jojobarre Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaiterais copier-coller des valeurs d'une colonne dans une autre colonne. Le problème, c'est que je dois copier uniquement les valeurs des lignes 2,7,12,17 (donc i+5 avec i=2), et ce jusqu'à 10 000. Est-ce que quelqu'un pourrait m'aider ?
Merci d'avance.
Je souhaiterais copier-coller des valeurs d'une colonne dans une autre colonne. Le problème, c'est que je dois copier uniquement les valeurs des lignes 2,7,12,17 (donc i+5 avec i=2), et ce jusqu'à 10 000. Est-ce que quelqu'un pourrait m'aider ?
Merci d'avance.
A voir également:
- Copier coller sur VBA
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Arobase copier coller - Forum Windows 10
1 réponse
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
Merci bien.