Comment créer un tableau à dimension

Bonjour

Je suis novice sur la programmation VBA.

Objectif :
J'ai crée une macro VBA dont le but est de parcourir chaque fichier Excel .
L'application lit le contenu de chaque fichier receptionnée . Elle en extrait quelques informations d'un onglet dont elle en a besoin . Cet extraction se fait sous forme tabulaire.

Problematique :
Je vous ai joins un fichier excel qui correspond à un exemple de fichier.
Sur ce fichier contient un exemple du tableau de restitution que je souhaite obtenir et l'exemple de tableau de restitution de ce que j'obtiens.


Ma solution
L'algoritme que je souhaite mettre en place est :


' compter le nombre de cellule non vides dans la ligne correspondante
--> j'ai pu le faire par :
nbNonEmptyCell = WorksheetFunction.CountA(Worksheets(Current.Name).Rows(6))

' Constituer un tableau à 2 dimensions :
tableau de valeur : tab2D [ G, Projet 1; I,Projet2]
ceci je ne sais pas comment le faire en vba

' Faire la boucle qui commence par G et qui finit par le nombre d'element dans le tableau de valeur tab2D


' appeller la methode Transpose

voici le code que réaliser :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Transpose(SheetName As String) Dim a As Long Dim b As Long Dim i As Long a = Sheets(SheetName).UsedRange.Rows.Count b = 7 For i = 1 To a Step 20 Sheets(SheetName).Range("G" & i & ":G" & i + 20).Copy Windows("Exple").Activate Sheets("Feuil2").Select Sheets("Feuil2").Range("b" & b).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True b = b + 1 Next i End Sub

---

J'ai un probleme c'est que le code ne permet que de lire la premiere colonne or j'ai des colonnes alternée


J'espere que j'ai été à peu près clair .
J'ai quelque probleme pour finir mon application mais je n'arrive pas à trouver le bout du chemin Pouvez vous m'aider ?
Merci d'avance
Stardeus.

PS : Je vous joins le fichier excel de référence

Bonjour,

Citation:

---

Envoyé par stardeus

' Constituer un tableau à 2 dimensions :
tableau de valeur : tab2D [ G, Projet 1; I,Projet2]
ceci je ne sais pas comment le faire en vba

---

A lire avant tout Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel et Utiliser les variables tableaux en VBA Excel

Bonjour

Je souhaiterai avoir un avis sur l'algo et savoir son niveau de faisabilité.

Voici ce que je compte faire
Je crée un tabcolonne("G,H,-->"ZZ")

Compter le nombre de cellule non vide ( voir exple : y en a 3)
Insérer les valeurs TabProjet (0,numProj1,NumProj2)
pour i =1 jusqua tabProjet.Count
lance la methodologie transpose

'ici j'ai un probleme , l'insertion ne se fait de la donnée ne se fait que sur une seule colonne or je souhaite inserer des données qui se situe dans la premiere colonne mais aussi dans la 2 colonne ( je me demande si c'est réalisable ce cas la pour des colonnes fusionnées )

fin de la boucle pour

Pourriez vous me dire si mon algo est correct si jamais ce n'est pas le cas ou mon explication n'est pas claire faites moi signe

merci d'avance
stardeus

Bonsoir ,

J'ai une colonne fusionnée en 2 colonnes
Lorsque je souhaite lire le contenu de la colonne fusionnée j'obtiens ;

Valeur de la cellule : NomProjA ,
Valeur de la cellule : ,
Valeur de la cellule : NomProjB,
Valeur de la cellule : ,

Code:

---

1 2 3 4 5 6 7

'Créer un tableau contenant les valeurs Dim ObjCell As Object For Each ObjCell In Range("G1:J65535").Cells ObjCell.Value = CStr(ObjCell.Value) MsgBox ("valeur de la cellule : " + Cstr(ObjCell.Value)) Next

---

J'essaie de lire le contenu de la colonne et non de la ligne mais je ne parviens pas à le faire

Savez vous comment je peux faire pour lire le contenu d'une colonne par colonne et non de ligne par ligne

car ensuite je tenterai de récupere le contenu de la cellule pour la replacer dans une autre tableau

Merci d'avance
stardeus

Bonjour,

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
A lire avant tout Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel et Utiliser les variables tableaux en VBA Excel

---

As-tu consulté les tutoriels ?

Citation:

---

As-tu consulté les tutoriels ?

---

oui j'ai consulté les tutoriel , j'ai egalement lu cet article

http://excel.developpez.com/actu/476...lles-methodes/

Cet article m'a permit de voir comment parcourir lire les colonnes
mais je ne parviens pas à faire ce que je souhaite

Je m'explique :
j'ai une colonne [ A B ] [C D]
row 1 : [ P1 ] [ P2 ]
row 2 : [ toto] [tata]
row 3 : [titi , tatta] [tutu, toto]

restitution a faire :
nom projet | libelle projet | titre 1 | titre 2
------------------------------------------------
P1 | toto | titi | tata
P2 | tata | tutu | toto

actuellement j'ai un affichage qui ne correspond a ce que je veux
j'obtiens ceci
P1,"",toto,"",titi,tata
P2,"", tata,"",tutu,toto

j'ai des cellules vides car j'interprete la colonne en 2 colonnes et non en une seule colonne

voici ce que je fais:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim col As Range, C As Range For Each col In Range("G1:Z2000").Columns For Each C In col.Cells tot = tot + C.Value ' CopieCell (ValCell) MsgBox ("valeur colonne :" + tot) Next Next End Sub

---

Je pense désormais a créer une methode pour faire la copie de la cellule vers les cordonnées que je souhaite

stardeus

Bonjour,
Tu as écris

Citation:

---

J'ai une colonne fusionnée en 2 colonnes
Lorsque je souhaite lire le contenu de la colonne fusionnée j'obtiens ;
Valeur de la cellule : NomProjA ,
Valeur de la cellule : ,
Valeur de la cellule : NomProjB,
Valeur de la cellule : ,

---

Imaginons que tu fusionnes les cellules A2:B2 et que la valeur de la plage ainsi fusionnée est égal à Toto. Cette valeur est en réalité sur la cellule A2.
Donc si tu lis A2, tu obtiendras "Toto", si tu lis B2 tu auras ""

Bonjour

Citation:

---

Imaginons que tu fusionnes les cellules A2:B2 et que la valeur de la plage ainsi fusionnée est égal à Toto. Cette valeur est en réalité sur la cellule A2.
Donc si tu lis A2, tu obtiendras "Toto", si tu lis B2 tu auras ""

---

Oui c'est bien ça que j'ai
et je veux récuperer que les valeurs renseigné pour les placer dans un autre emplacement de la feuille excel

exemple de restitution :

nom projet | libelle projet | titre 1 | titre 2
------------------------------------------------
P1 | toto | titi | tata 
P2 | tata | tutu | toto 

Le code réalisé me permet de lire le contenu d'une colonne.
mais dans le cas ou je veux lire dans certaine condition la 2 colonnes fusionnés [A2B2]
je ne parviens pas à l'exprimer sous forme de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim col As Range, C As Range For Each col In Range("G1:Z2000").Columns For Each C In col.Cells tot = tot + C.Value ' CopieCell (ValCell)   MsgBox ("valeur colonne :" + tot) Next Next End Sub

---

Je pensais faire une methode qui CopieCell(ValCellule )

dans la methode CopieCell(ValCell)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

sub CopieCell(ValCell) methode qui transpose la cellule dans un emplacement de tableau end sub   Sub Transpose(SheetName As String) Dim a As Long Dim b As Long Dim i As Long a = Sheets(SheetName).UsedRange.Rows.Count b = 7 For i = 6 To a Step 110 Sheets(SheetName).Range("G" & i & ":G" & i + 110).Copy Windows("Exple").Activate Sheets("Feuil2").Select Sheets("Feuil2").Range("b" & b).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True b = b + 1 Next i End Sub

---

Je ne suis pas certain que c'est la meilleure maniere de faire mais je ne parviens pas à le finaliser

Stardeus

Bonjour,
Je ne sais pas si j'ai bien compris ce que tu voulais.
Lecture du deuxième élément d'une plage de plusieurs colonnes avec retour de la valeur du premier élément si la plage est fusionnée (pour mon test A4:B4 et A6:B6 sont fusionnées) .

Code:

---

1 2 3 4 5 6 7 8 9

Sub Read() Dim rng As Range, r As Long Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A1").CurrentRegion With rng For r = 2 To .Rows.Count Debug.Print Format(r, "000") & ") " & (.Cells(r, 2).MergeArea.Count > 1) & " - " & .Cells(r, 2 + (.Cells(r, 2).MergeArea.Count > 1)) Next End With End Sub

---

Bonjour

Voici ce que j'ai fait,
je sais que j'ai quasiment fini mais je bloque sur cette histoire de colonne fusionnée donc je ne vois pas comment m'y prendre pour placer correctement ces colonnes telles que je souhaite

voici le fichier que je vous joins
j'espere que le fichier vous permettra de mieux comprendre ce que je souhaite faire

stardeus

Bonjour,
Dans le petit exemple que je t'ai donné, tu as tout en main pour repérer les cellules fusionnées.
Cependant, il est déconseillé de travailler avec des cellules fusionnées, tu ne peux pas les trier, les filtrer et pour les lire en VBA c'est la galère comme tu as pu le remarquer.
Au lieu de fusionner les cellules horizontalement, privilégie l'alignement Horizontal sur plusieurs colonnes ainsi plus de problème chaque cellule est dans sa colonne et visuellement c'est la même chose qu'une fusion.

Bonjour

Je voudrais savoir s'il etait possible de positionner des variable sur la fonction Union .

Voici mon idée:
En effet j'ai stocké dans un tableau le nombre de cellule qui n'etait pas vide.
Ce tableau affecte les lettres correspondant au cellule non nulle.

Pour restituer mes infos, j'effectue cette methode

Code:

---

1 2 3 4 5

i=2 For Each C In Union([G1:G18]:[H4:H8]).SpecialCells(xlCellTypeConstants, 23) i = i + 1 Cells(nbligne + 1, i) = C Next C

---

ce que j'aimerai faire , c'est d'englober ce bout de code dans une boucle
pour qu'il réalise un truc de ce genre :

Code:

---

1 2 3 4 5 6 7

for cpt = 0 to nbcolonnenonvide i=2 For Each C In Union([ montableau(cpt) 1:montableau(cpt)18]:[montableau(cpt+1) 4:montableau(cpt+1)8]).SpecialCells(xlCellTypeConstants, 23) i = i + 1 Cells(nbligne + 1, i) = C Next C next cpt

---

par exemple
si j'ai ma variable nbcolonnenonvide=12
alors 12 correspond à la lettre L
Donc la methode doit parcourir d'abord

Code:

---

Union([G1:G18]:[H4:H8]).SpecialCells(xlCellTypeConstants, 23)

---

ensuite

Code:

---

Union([I1:I18]:[J4:J8]).SpecialCells(xlCellTypeConstants, 23)

---

et enfin

Code:

---

Union([K1:K18]:[L4:L8]).SpecialCells(xlCellTypeConstants, 23)

---

Merci pour votre aide
stardeus