Pour faire simple :
Sub transfert()
For i = 1 To 12
Workbooks("PREVISION 2020").Worksheets(1).Cells(i, 1) = Workbooks("DONNEES").Worksheets(i).Cells(91, 6)
Type: Messages; Utilisateur: zoltar_x
Pour faire simple :
Sub transfert()
For i = 1 To 12
Workbooks("PREVISION 2020").Worksheets(1).Cells(i, 1) = Workbooks("DONNEES").Worksheets(i).Cells(91, 6)
Enregistrer sous > Type (CSV séparateur ;
Le but est pas de faire un copier-coller : le but est juste de montrer qu'on peut stocker n tableaux de n onglets dans un seul Array.
Il est même possible avec un Array à 4 dimensions de stocker n...
Ok. Merci pour ta réponse.
Voici un exemple plus parlant de l'utilisation de tables à 3 dimensions.
Les n premières feuilles sont stockées dans un Array et sont ensuite réaffichés sur n nouvelles feuilles (un copier-coller)....
C'est bon, j'ai trouvé comment faire :
Dim ma_Table As ListObject
Dim mon_Array As Variant
Set ma_Table = ActiveSheet.ListObjects("Table1")
mon_Array = ma_Table.DataBodyRange
.....
Voilà un petit code qui somme les tableaux (nombre de lignes et colonnes identiques) de n feuilles et stocke la somme dans un tableau (Array à 3 dimesnions).
Une feuille "Somme" est créée et le...
Bonjour,
Petite question concernant les tableaux structurés (et objet ListObject) : est-il possible d'avoir un tableau de tableaux ?
Je m'explique : j'ai déjà eu à stocker et manipuler l'ensemble...
Tu utilises : Workbook.Path
4 checks :
- regarde si il existe des feuilles ou onglets masqués
- regarde si il y a des références circulaires dans les formules de ton onglet
- regarde si ton fichier n'utilise pas des...
Checke les codes liés aux procédures événementielles au niveau du classeur (Workbook) et des feuilles (Worksheets), c'est là qu'il peut éventuellement y avoir du code malveillant écrit par quelqu'un...
En règle générale, quand on supprime une ligne, il faut traiter de bas en haut :
For i = derniere_ligne To 1 Step -1
....
Next i
Voila la version simplifiée, le "With plage" est inutile ici, à la différence du premier script avec Fonction1, Fonction2 et Fonction 3 :
Sub test4()
Dim plage As Range
Dim occur...
Voilà le code pour entrer Fonction 1 ou Fonction 9999. Il suffit de mettre une * après fonction et tester qu'on ne retourne pas sur la première occurence pour éviter une boucle sans fin.
Sub...
J'ai fait un test avec tes valeurs d'exemple. Il n'y a pas de problème avec RECHERCHEV.
534402
La saisie est en E1.
La formule en F1.
Ligne d'erreur :
WbT.Worksheets(Année).Select
3 remarques :
1. Tu dois utiliser la collection Worksheets en mettant l'indice de la feuille (1 pour la première, 2 pour la seconde) càd leur...
Ou bien utilise la collection Worksheets au lieu de Sheets.
Worksheets(3)...
J'ai testé chez moi : ça fonctionne sans problème.
Utilise ton MsgBox pour montrer la valeur de la cellule :
MsgBox (Range("T12").Value)
Transpose n'existe pas en VB. C'est une fonction spécifique à Excel. Il faut donc rajouter WorksheetFunction
WorksheetFunction.Transpose
Tu actives la macro non pas avec une lettre mais avec Ctrl + une lettre. Dans ton cas, c'est Ctrl e.
Quand tu lances l'enregistreur de macros sur word, il te demande si tu veux l'affecter à un...
ça peut être dû au dépassement de la taille d'un Array ou variable tableau.
Voila le résultat que tu voulais.
534156
Le point de départ est le TCD précédent qu'il faut copier et coller en texte dans une feuille.
Ici, c'est la première feuille du classeur...
Le plus simple, c'est de monter un tableau croisé dynamique (TCD) :
534059
Tu peux également tester avec la propriété HasChildNodes pour voir si un élément contient des sous éléments ou non.
il y une faute d'orthographe sur length
If enfants.lenght > 0
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.