Boucles imbriquées pour lire un tableau cellule par cellule
cs_archibald78
Messages postés
3
Date d'inscription
lundi 27 avril 2009
Statut
Membre
Dernière intervention
29 avril 2009
-
27 avril 2009 à 18:09
cs_archibald78 Messages postés 3 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 29 avril 2009 - 29 avril 2009 à 12:04
cs_archibald78 Messages postés 3 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 29 avril 2009 - 29 avril 2009 à 12:04
A voir également:
- Boucles imbriquées pour lire un tableau cellule par cellule
- Afficher un tableau php en html - Conseils pratiques -PHP
- Vba récupérer valeur cellule d'une autre feuille - Forum Visual Basic
- Dernière cellule non vide vba ✓ - Forum Visual Basic 6
- Excel vba récupérer valeur cellule active ✓ - Forum Visual Basic 6
- Cellule hachurée excel - Forum Delphi / Pascal
4 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
27 avril 2009 à 23:49
27 avril 2009 à 23:49
Salut
Regarde la fonction transpose qui permet de passer d'un classement horizontal à vertical (et surement l'inverse aussi)
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Regarde la fonction transpose qui permet de passer d'un classement horizontal à vertical (et surement l'inverse aussi)
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
cs_archibald78
Messages postés
3
Date d'inscription
lundi 27 avril 2009
Statut
Membre
Dernière intervention
29 avril 2009
28 avril 2009 à 17:06
28 avril 2009 à 17:06
Merci Jack
Je connais cette fonction mais elle est difficile à utiliser sur un grand nombre de ligne et surtout avec des colonnes intermédiaires qui ne nous servent pas dans le fichier cible.
Si tu avais un petit bout de code, je suis preneur. De plus j'ai plusieurs fichiers de ce type à créer avec des nombres de lignes différents, donc une macro VBA m'irai nickel.
Merci d'avance
Archi
Je connais cette fonction mais elle est difficile à utiliser sur un grand nombre de ligne et surtout avec des colonnes intermédiaires qui ne nous servent pas dans le fichier cible.
Si tu avais un petit bout de code, je suis preneur. De plus j'ai plusieurs fichiers de ce type à créer avec des nombres de lignes différents, donc une macro VBA m'irai nickel.
Merci d'avance
Archi
cs_Orohena
Messages postés
577
Date d'inscription
vendredi 26 septembre 2008
Statut
Membre
Dernière intervention
20 novembre 2010
4
28 avril 2009 à 21:53
28 avril 2009 à 21:53
Salut
Peux-tu essayer le code (à adapter) ci-dessous ?
<hr size="2" width="100%" />Sub transposition()
Dim lig1 As Integer ' no de ligne de la feuille source
Dim lig2 As Integer ' no de ligne de la feuille de destination
Dim col As Integer ' pointeur colonnes D-I
With WorkSheets("fDest")
For lig1 = 1 To 1600
For col = 4 To 9 ' colonnes D-I
lig2 = lig2 + 1
.Cells(lig2, 1).Value = WorkSheets("fSource").Cells(lig1, 1).Value
.Cells(lig2, 6).Value = WorkSheets("fSource").Cells(lig1,3).Value
.Cells(lig2,10).Value = WorkSheets("fSource").Cells(lig1, col).Value
Next col
Next lig1
End With
End Sub
<hr size="2" width="100%" />Amicalement
Peux-tu essayer le code (à adapter) ci-dessous ?
<hr size="2" width="100%" />Sub transposition()
Dim lig1 As Integer ' no de ligne de la feuille source
Dim lig2 As Integer ' no de ligne de la feuille de destination
Dim col As Integer ' pointeur colonnes D-I
With WorkSheets("fDest")
For lig1 = 1 To 1600
For col = 4 To 9 ' colonnes D-I
lig2 = lig2 + 1
.Cells(lig2, 1).Value = WorkSheets("fSource").Cells(lig1, 1).Value
.Cells(lig2, 6).Value = WorkSheets("fSource").Cells(lig1,3).Value
.Cells(lig2,10).Value = WorkSheets("fSource").Cells(lig1, col).Value
Next col
Next lig1
End With
End Sub
<hr size="2" width="100%" />Amicalement
cs_archibald78
Messages postés
3
Date d'inscription
lundi 27 avril 2009
Statut
Membre
Dernière intervention
29 avril 2009
29 avril 2009 à 12:04
29 avril 2009 à 12:04
Merci orohena
c'est nickel!
Archi
c'est nickel!
Archi