Visual basic boucle sous excel
Résolu/Fermé
boboss56
-
14 avril 2010 à 15:31
jejelefou Messages postés 304 Date d'inscription mercredi 21 mai 2008 Statut Membre Dernière intervention 18 février 2016 - 14 avril 2010 à 17:31
jejelefou Messages postés 304 Date d'inscription mercredi 21 mai 2008 Statut Membre Dernière intervention 18 février 2016 - 14 avril 2010 à 17:31
A voir également:
- Visual basic boucle sous excel
- Liste déroulante excel - Guide
- Visual basic download - Télécharger - Langages
- Microsoft 365 basic - Guide
- Microsoft visual c++ runtime - Guide
- Si et excel - Guide
2 réponses
jejelefou
Messages postés
304
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
18 février 2016
42
14 avril 2010 à 15:55
14 avril 2010 à 15:55
Bonjour, si j'ai bien compris : tu veux copier la cellule 'liste prépa cde!C2 dans la page active!e2 ect ...?
a+
jéjé
a+
jéjé
Oui c'est exactement ça.
Et pour la 2ème séquence je veux copier la cellule 'liste prépa cde!C7 dans la page active!e3 ect
Merci
Et pour la 2ème séquence je veux copier la cellule 'liste prépa cde!C7 dans la page active!e3 ect
Merci
jejelefou
Messages postés
304
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
18 février 2016
42
14 avril 2010 à 16:24
14 avril 2010 à 16:24
tu veux copier la valeur, ou faire un lien comme tu as fais?
merci
merci
jejelefou
Messages postés
304
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
18 février 2016
42
14 avril 2010 à 16:29
14 avril 2010 à 16:29
Si tu veux juste recuperer les données essaie ca :
Sub Macro3()
'
' Macro3 Macro
'
x = 0
For i = 2 To 100
Sheets("feuil1").Cells(i, 5) = Sheets("liste prépa cde").Cells(i + x * 4, 3)
Sheets("feuil1").Cells(i, 6) = Sheets("liste prépa cde").Cells(i + x * 4 + 1, 3)
Sheets("feuil1").Cells(i, 7) = Sheets("liste prépa cde").Cells(i + x * 4 + 2, 3)
Sheets("feuil1").Cells(i, 8) = Sheets("liste prépa cde").Cells(i + x * 4 + 3, 3)
Sheets("feuil1").Cells(i, 9) = Sheets("liste prépa cde").Cells(i + x * 4 + 4, 3)
Sheets("feuil1").Cells(i, 10) = Sheets("liste prépa cde").Cells(i + x * 4 + 4, 5)
Sheets("feuil1").Cells(i, 11) = Sheets("liste prépa cde").Cells(i + x * 4 + 4, 7)
Sheets("feuil1").Cells(i, 12) = Sheets("liste prépa cde").Cells(i + x * 4 + 4, 8)
Sheets("feuil1").Cells(i, 13) = Sheets("liste prépa cde").Cells(i + x * 4 + 4, 9)
Sheets("feuil1").Cells(i, 14) = Sheets("liste prépa cde").Cells(i + x * 4 + 4, 4)
x = x + 1
Next
End Sub
Sub Macro3()
'
' Macro3 Macro
'
x = 0
For i = 2 To 100
Sheets("feuil1").Cells(i, 5) = Sheets("liste prépa cde").Cells(i + x * 4, 3)
Sheets("feuil1").Cells(i, 6) = Sheets("liste prépa cde").Cells(i + x * 4 + 1, 3)
Sheets("feuil1").Cells(i, 7) = Sheets("liste prépa cde").Cells(i + x * 4 + 2, 3)
Sheets("feuil1").Cells(i, 8) = Sheets("liste prépa cde").Cells(i + x * 4 + 3, 3)
Sheets("feuil1").Cells(i, 9) = Sheets("liste prépa cde").Cells(i + x * 4 + 4, 3)
Sheets("feuil1").Cells(i, 10) = Sheets("liste prépa cde").Cells(i + x * 4 + 4, 5)
Sheets("feuil1").Cells(i, 11) = Sheets("liste prépa cde").Cells(i + x * 4 + 4, 7)
Sheets("feuil1").Cells(i, 12) = Sheets("liste prépa cde").Cells(i + x * 4 + 4, 8)
Sheets("feuil1").Cells(i, 13) = Sheets("liste prépa cde").Cells(i + x * 4 + 4, 9)
Sheets("feuil1").Cells(i, 14) = Sheets("liste prépa cde").Cells(i + x * 4 + 4, 4)
x = x + 1
Next
End Sub
jejelefou
Messages postés
304
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
18 février 2016
42
14 avril 2010 à 16:52
14 avril 2010 à 16:52
Soit tu change la boucle
For i=2 to 100
en
For i=2 to 10
soit il faut faire un calcul du nombre de ligne, et la comme je n'ai pas ton fichier, je ne sais pas comment faire
For i=2 to 100
en
For i=2 to 10
soit il faut faire un calcul du nombre de ligne, et la comme je n'ai pas ton fichier, je ne sais pas comment faire