Export de données dans excel
selestafst
Messages postés
6
Date d'inscription
vendredi 24 juin 2005
Statut
Membre
Dernière intervention
2 novembre 2006
-
12 août 2005 à 16:59
yela Messages postés 16 Date d'inscription mercredi 30 octobre 2002 Statut Membre Dernière intervention 7 août 2007 - 15 août 2005 à 19:13
yela Messages postés 16 Date d'inscription mercredi 30 octobre 2002 Statut Membre Dernière intervention 7 août 2007 - 15 août 2005 à 19:13
A voir également:
- Export de données dans excel
- Connexion base de données - Conseils pratiques -PHP
- Extraire des données d'un fichier excel avec python - Forum Python
- Planning de maintenance préventive excel - Forum VB.NET
- Arctan excel - Forum VBA Office (Excel, Word ...)
- Les fonctions " racines niemmes " et " arctan "et "arccos " et "arcsin" - Forum Visual Basic
1 réponse
yela
Messages postés
16
Date d'inscription
mercredi 30 octobre 2002
Statut
Membre
Dernière intervention
7 août 2007
15 août 2005 à 19:13
15 août 2005 à 19:13
'tu déclares une variable global pour avoir le compte où tu es rendu
public gColCourant as integer
Private sub transfert
'Si c'est le premier tour, initialise la colonne à 'G'
if gColCourant = 0 then
gColCourant = 7
end if
'la valeur de la cellule ligne 1 et colonne gColCourant de la feuille 2 est égale à
'la valeur de la cellule ligne 1, colonne 1 i.e. (A1) de la feuille 1
sheets("nom de la feuille #1").cells(1,
gColCourant ).formula = sheets("nom de la feuille
#2").cells(1,1).formula
'la valeur de la cellule ligne 2 et colonne gColCourant de la feuille 2 est égale à
'la valeur de la cellule ligne 2, colonne 1 i.e. (A2) de la feuille 1
sheets("nom de la feuille #1").cells(2, gColCourant ).formula =
sheets("nom de la feuille #2").cells(2,1).formula
'la valeur de la cellule ligne 3 et colonne gColCourant de la feuille 2 est égale à
'la valeur de la cellule ligne 3, colonne 1 i.e. (A3) de la feuille 1
sheets("nom de la feuille #1").cells(3, gColCourant ).formula =
sheets("nom de la feuille #2").cells(3,1).formula
gColCourant = gColCourant + 1
end sub
public gColCourant as integer
Private sub transfert
'Si c'est le premier tour, initialise la colonne à 'G'
if gColCourant = 0 then
gColCourant = 7
end if
'la valeur de la cellule ligne 1 et colonne gColCourant de la feuille 2 est égale à
'la valeur de la cellule ligne 1, colonne 1 i.e. (A1) de la feuille 1
sheets("nom de la feuille #1").cells(1,
gColCourant ).formula = sheets("nom de la feuille
#2").cells(1,1).formula
'la valeur de la cellule ligne 2 et colonne gColCourant de la feuille 2 est égale à
'la valeur de la cellule ligne 2, colonne 1 i.e. (A2) de la feuille 1
sheets("nom de la feuille #1").cells(2, gColCourant ).formula =
sheets("nom de la feuille #2").cells(2,1).formula
'la valeur de la cellule ligne 3 et colonne gColCourant de la feuille 2 est égale à
'la valeur de la cellule ligne 3, colonne 1 i.e. (A3) de la feuille 1
sheets("nom de la feuille #1").cells(3, gColCourant ).formula =
sheets("nom de la feuille #2").cells(3,1).formula
gColCourant = gColCourant + 1
end sub