[Excel VBA]Tranfert de valeurs

Ok, je viens de trouver mon erreur : il me manque la declaration de la variable Sheet. Avec ceci resolu je vais pouvoir avancer un peu. Je voudrais par contre savoir s'il est possible de verifier le nombre d'arguments d'un Array, comme je l'ai demande plus haut, ceci m'aiderais beaucoup dans le developpement de la macro. Merci

Hello ks13,

Deux choses :

1) Tu fais varier ton indice de 0 à 10, ce qui te permet d'obtenir les 11 postes de ton tableau. OK.
Mais dans ta boucle For..., ça te conduit à atteindre la cellule A0 ("A" & i), et cette cellule n'existe pas.
Donc soit tu codes : "A" & i + 1,
soit tu mets en début de module Option Base 1, ce qui fait que l'indiçage de ton tableau ira de 1 à 11, et non de 0 à 10.

2) Remplace

Sheet.Range("A" & i).Select
Sheet.Selection.Value = listePartenaires(i)

par

Sheet.Range("A" & i).Value = listePartenaires(i)

Okay....a vrai dire le probleme du i = 0 a ete resolu aussi, c'est pas moi qui l'ai trouve apres avoir precipitament poste sur le forum, mais un ami qui est venu m'aider un peu apres que j'ai poste....

en fait, le probleme qui reste c'est le fait que le nombre d'arguments dans le tableau listPartenaires peut varier. pour le moment il y en a 11, mais de ces 11 seuls 5 one des valeurs dans leurs feuilles respectives. ce que je voudrais faire c'est une macro qui verifie chacune des feuilles, met dans un tableau les feuilles n'etant pas vides et rajoutant leur contenu dans la feuille qui regroupe toutes les valeurs. je sais qu'il est plus simple de prenre les feuilles une par une et de rajouter les valeurs qu'elles contiennent directement a la feuille generale, mais le tableau de valeurs n'est pas aussi simple, je dois trier les valeurs, et les placer sur la feuille generale selon leur genre, ce qui devrais donner quelque chose comme :

idpart | idtype | val 1 | val | commentaire |

type 1
1 | 1 | val 1 | val 2 | txt
1 | 1 | val 3 | val 4 | txt
2 | 1 | val 1 | val 2 | txt
2 | 1 | val 3 | val 4 | txt
3 | 1 | val 1 | val 2 | txt
3 | 1 | val 3 | val 4 | txt

type 2
1 | 2 | val 1 | val 2 | txt
1 | 2 | val 3 | val 4 | txt
2 | 2 | val 1 | val 2 | txt
2 | 2 | val 3 | val 4 | txt
3 | 2 | val 1 | val 2 | txt
3 | 2 | val 3 | val 4 | txt

le tri sera dans l'ordre suivant : type, part, val 1, val 2....commentaire

donc ce ne sera pas un simple copier/coller, d'ou mon idee d'utiliser le nombre d'arguments d'un tableau si possible. j'espere que cet exemple a eclairci un peu le probleme devant lequel je me trouve.

de plus, je viens de voir un nouveau probleme :

idType(i) = Range("A" & i).Value

j'ai essaye ici de faire assigner une rangee de valeurs a un tableau pour l'utiliser apres, mais contrairement a javascript ou php cela ne semble pas fonctionner. quelq'un pourrait me dire si il y a une moyen de faire une declaration de tableau dynamique?

Comme je ne suis pas sûr de bien comprendre, il se peut que je réponde à côté de la plaque...

Je suppose que tu as une feuille Récap, et d'autres feuilles détail en nombre variable. Et tu veux avoir dans un tableau, dynamiquement, la liste des feuilles existantes. Si c'est bien ça, tu peux utiliser une petite routine de ce genre :

  Dim NbrF      As Integer
  Dim TabF(50)  As String
  Dim Feuille   As Worksheet
  
  NbrF = 0
  For Each Feuille In Worksheets
    If Feuille.Name <> "Récap" Then
      NbrF = NbrF + 1
      TabF(NbrF) = Feuille.Name
    End If
  Next

Alors,
deja merci pour ton aide avec la feuille Récap ^^, je connaissais pas la methode For Each Feuille In Worksheets, ca va effectivement me faciliter le travail. Quant a l'autre expression :
idType(i) = Range("A" & i).Value

ici, idType represente une cle id qui sers a identifier le genre de donnee, ie : id 1 = voiture neuve ; id 2 = voiture occasion.

je ne sais pas si je me suis exprime assez clairement, disons que les differentes feuilles, repressentant chacune un client different, contiennent les differentes offres ou demandes des ces clients. le but c'est de faire une fonction qui cree une feuille qui contiens toutes les donees de ces clients. les offres et demandes, ainsi que les clients ont chacun un id specifique pour les differentier, ie :
idclient 1 idtype 2 idgenre 1 = M. A offre voiture neuve ; idclient 2 idtype 1 idgenre 2 = M. B demande voiture occasion

le systeme mis en place sur le site utilise une feuille xls pour recuperer les donees et les utiliser, et ce que je veux faire c'est automatiser la creation de cette feuille ^^

pour le moment, ce que j'ai mis en place c'est :

>donner des valeurs aux cellules a partir d'un array
>reinitialiser la feuille (pour pas avoir des donnees qui trainent) avant de la remplir

ce qu'il me reste a faire :

>creer des arrays id, avec le nombre d'elements/arguments variable, apres lecture des donnees d'une feuille
>reutiliser ces arrays pour remplir la feuille Récap

(c'etait long n'est-ce pas?)

ce que j'avais en tete c'est que le programme lis les id un par un, les met dans l'array, et s'arrete des qu'il atteint une cellule vide. mon dileme viens du fait qu'en javascript on utiliserais quelque chose du genre :
myArray(i) = Value
d'ou l'expression
idType(i) = Range("A" & i).Value

or, apres l'avoir essaye, l'editeur me dit que ce n'est pas une syntaxe valable. et c'est la precisement que se situe le probleme.

l'autre probleme est que pour un loop, en javascript j'utiliserais
arg = myArray.Arguments.Length;
for (i=0; i<arg;i++){expression}
or, je n'ai aucune idee comment faire pour savoir le nombre d'arguments/elements que contiens un array ou si c'est meme possible.

maintenant je pense que j'ai clairement explique ma situation et le probleme, si vous voyez une solution merci d'avance ^^

Pour aider, pourrais-tu éventuellement mettre un exemple de classeur, avec au moins 1 ou 2 modèles de feuilles détail, et idem pour la feuille récap.
Tu peux le mettre là :
http://cjoint.com/

Tu génères le lien et tu le colles ici.

A+

Hello ks13,

Je te retourne ton classeur :
http://cjoint.com/?ikszo6ALMX

Regarde dans le module Armojax si la macro Consolidation fait ce que tu veux, dans le principe. Après exécution, le résultat se trouve dans la feuille Global.
J'y copie bout à bout les données des feuilles partenaires, puis trie le tout sur les critères voulus. Ensuite, j'insère devant chaque type le libellé du type, et je supprime les lignes superflues.

Dis-moi si c'est quelque chose comme ça...

O_O O_o ¬_¬;;

franchement, ca fait bien ce que je voulais, mais, coté code, le mien parais bourrin a coté du tien, enfin, pour ce que j'ai reussi a faire avec le peu de connaissances que j'ai du vba ^^;

en tout cas merci beaucoup, je m'attendais pas a avoir un si gros coup de main et merci aussi pour avoir pris le temps de m'ecrire le code directement dans le fichier ^^
maintenant il me reste juste a reussir a rajouter quelques truc dans le code apres avoir reussi a le comprendre....j'y ai jete un coup d'oeil et j'y ai compris que la moitié, a peu pres ^^;

si, malgre mes pas si grandes connaissances dans le html/javascript/php/css/asp je peut t'aider en retour de ce coup de main, je serais heureux de le faire ^^

Wah, c'est cool, merci beaucoup ^^

Ooops, j'ai mis trop de temps pour ecrir la modification de mon dernier message u_u;

alors, pour repondre a la question, le Len(Feuille.name) <5 n'est pas valable ^^; j'ai juste mis des abreviations, mais dans l'original, les noms sont complets, mais ce n'est pas si grave que ca, j'ai deja cree une fonction qui verifie le nom des feuilles d'apres la feuille contenant la liste des partenaires (c'etait avant que tu me passe ta macro ^^;).

Je voudrais savoir une chose, dans les feuilles, on a separe les differents types en ajoutant une ligne avec dans la 1ere colonne le nom du type precedé du caractere apostrophe " ' ", ce qui en vb signifie un commentaire, si j'ai bien compris, quand vb va traiter la feuille il va soit voir la ligne comme vide, soit l'ignorer, c'est cela?

Est-ce que tu pourrais me dire ce que fait cette commande?
feuille.cells et .row je reconnais, mais je ne vois pas ce que font le 65536 ainsi que end(xlup)

NbrLig = Feuille.Cells(65536, 1).End(xlUp).Row

Voici ce que j'utilise pour le nom de la feuille, j'ai du supprimmer les "/" car le programme les accepte pas dans les noms des feuilles

'On definit la date au format jj-mm-aaaa pour dater la feuille generale
Dim datef As String
datef = Date
Dim pdate As String
pdate = Mid(datef, 1, 2) & "-" & Mid(datef, 4, 2) & "-" & Mid(datef, 7)
Dim fdate As String
fdate = "ImportRate_" & pdate
'Fin definition

j'ai separé la date et le nom pour pouvoir utiliser la date separement si besoin est. apres j'ai fait ceci :

'Test et creation de la feuille generale
Dim Feuille As Worksheet
Dim testf As Boolean
testf = False
For Each Feuille In Worksheets
If Not (Feuille.Name <> fdate) Then
testf = True
End If
Next
If Not testf Then
Sheets.Add
Sheets(feuille1).Name = fdate
Else
Sheets(fdate).Cells.ClearContents
Range("A1").Select
End If
'fin test et creation

ici, le programme doit verifier si une feuille avec la date actuelle existe, si oui il la vide de son contenu (pour eviter des donees qui trainent), si non il la cree.
le probleme que je n'arrive pas a resoudre c'est de selectionner la feuille créée et changer son nom.

Ooops, il me semble qu'il y a eu un melange de messages o_O

bref, desole de t'importuner encore, mais j'ai rencontre un probleme avec ton code que je n'arrive pas a resoudre : j'ai copie tel-quelle la macro dans le classeur original, et le resultat apres que j'ai execute la macro n'est pas celui auquel je m'attendais : il n'a copie que les lignes avec idtype = 1, et rien des autres, mais tous les partenaires y sont par contre ^^;

vu que quand on defile vers le bas la feuille, on voit qu'il a selectionne la region ligne n°1600+ la commande avec End(xlUp) doit fonctionner correctement. mais je ne vois pas ce qui cloche ^^;

Alors, voici le code tel quel dans le fichier, desole mais je ne peut pas montrer le fichier original, normalement je n'aurais meme pas du montrer l'autre, meme s'il a ete allege et modifié ^^;. par consequent je ne peut que mettre le code de la macro.

Option Explicit

Sub Consolidation()

'On definit la date au format jj-mm-aaaa pour dater la feuille generale
Dim datef As String
datef = Date
Dim pdate As String
pdate = Mid(datef, 1, 2) & "-" & Mid(datef, 4, 2) & "-" & Mid(datef, 7)
Dim fdate As String
fdate = "ImportRate_" & pdate
'Fin definition

' désactivation de la mise à jour écran
Application.ScreenUpdating = False

Dim IdType As Integer
Dim I As Long
Dim NbrLig As Long
Dim NumLig As Long
Dim Feuille As Worksheet

' effacement de la feuille "Global" avant reconstruction
Sheets("Global").Cells.ClearContents

' on copie bout à bout dans la feuille "Global"
' le contenu des feuilles "partenaires"
NumLig = 1
For Each Feuille In Worksheets
If (Feuille.Name <> "Global" And _
Feuille.Name <> "listePartenaires" And _
Feuille.Name <> "listeType" And _
Feuille.Name <> "Config" And _
Feuille.Name <> "ImportRates-7-aout-2006" And _
Feuille.Name <> "fverif" And _ 'ceci est une feuille qui contient les differentes variables, c'est pour que je puisse verifier que toutes les variables sont traitees correctement
Feuille.Name <> fdate) Then
Feuille.Activate
NbrLig = Feuille.Cells(65536, 1).End(xlUp).Row
Feuille.Range(Cells(1, 1), Cells(NbrLig, 1)).EntireRow.Copy
Sheets("Global").Activate
Cells(NumLig, 1).Select
ActiveSheet.Paste
NumLig = NumLig + NbrLig
End If
Next

' tri des données sur : type / partenaire / valeur1
Cells.Sort Key1:=Range("B1"), Order1:=xlAscending, _
Key2:=Range("A1"), Order2:=xlAscending, _
Key3:=Range("H1"), Order3:=xlAscending, _
Header:=xlNo

' ajout du libellé du type devant chaque type
I = 1
IdType = 0
NbrLig = NumLig - 1
Do Until Not IsNumeric(Cells(I, 1).Value)
If Cells(I, 2).Value <> IdType Then
IdType = Cells(I, 2).Value
Rows(I).Insert shift:=xlDown
Cells(I, 1).Value = Sheets("listetype").Cells(IdType, 2).Value
NbrLig = NbrLig + 1
End If
I = I + 1
Loop

' suppression des lignes superflues issues des feuilles partenaires
Range(Cells(I, 1), Cells(NbrLig, 1)).EntireRow.Delete

Application.ScreenUpdating = True ' réactivation de la mise à jour écran

End Sub

comme il n'y a que quelques feuilles qui ne contiennent pas les donnees qu'on veut j'ai mis un <> pour chacune d'elles

Je pense que le PB se situait au niveau de la sélection des feuilles partenaires. En travaillant par exclusion, il y a une feuille "non partenaire" qui a dû être sélectionnée à tort et qui a mis le souk.
J'ai modifié ça, en nommant explicitement les feuilles concernées. Ça donne :

For Each Feuille In Worksheets
    Select Case Feuille.Name
      Case "BF", "DisL", "DisM", "DisR", "Med", "Fin"
        Feuille.Activate
        NbrLig = Feuille.Cells(65536, 1).End(xlUp).Row
        Feuille.Range(Cells(1, 1), Cells(NbrLig, 1)).EntireRow.Copy
        Sheets("Global").Activate
        Cells(NumLig, 1).Select
        ActiveSheet.Paste
        NumLig = NumLig + NbrLig
    End Select
  Next

  'On definit la date au format jj-mm-aaaa pour dater la feuille generale
  Dim fdate As String
  fdate = "ImportRate_" & Mid(Date, 1, 2) & "-" & Mid(Date, 4, 2) & "-" & Mid(Date, 7)
  'Fin definition

En fait, j'y ais deja pensé mais, le probleme c'est qu'il se peut qu'on ajoute d'autres feuilles sur lequelles prelever des donees et le programme doit les reconnaitre aussi, or comme avec cette idee il fo modifier la macro, donc ajouter les nouvelles feuilles manuellement, je ne pense pas que c'est une aussi bonne idee....mais, est-ce qu'il est possible de faire un truc comme :

For Each Feuille In Worksheets
Select Case Feuille.Name
If Not Case "Config", "listeType", "listePartenaires", "ImportRates-7-aout-2006", "fverif", fdate
Feuille.Activate
NbrLig = Feuille.Cells(65536, 1).End(xlUp).Row
Feuille.Range(Cells(1, 1), Cells(NbrLig, 1)).EntireRow.Copy
Sheets("Global").Activate
Cells(NumLig, 1).Select
ActiveSheet.Paste
NumLig = NumLig + NbrLig
End Select
Next

Je suggère autre chose. Comme pour tout ensemble à définir, on a 2 solutions :
- un critère d'appartenance, ou bien...
- la liste des éléments.
Si la première solution est possible, c'est beaucoup plus facile à programmer, et l'ajout ou le retrait d'éléments ne fait rien modifier. C'est pour ça que j'avais utilisé la taille du nom des feuilles comme critère.

Pourquoi ne pas reconnaître les feuilles partenaires par leur nom. Par exemple, elles commenceraient toutes par P-.
On aurait :
P-Med, P-DisL, P-Fin etc.
Dans ce cas, il suffirait de remplacer :

Select Case Feuille.Name
  Case "BF", "DisL", "DisM", "DisR", "Med", "Fin"
  .....
End Select

If Left(Feuille.Name, 2) = "P-" Then
.....
End If

Hmmmm, ca c'est une bonne idee, je vais voir si c'est possible avec le responsable ^^....enfin, demain, car ce soir c'est une peu tard ^^;