Ajouter des valeurs dans un tableau avec vba

Version imprimable

03/01/2016, 15h39
lovlov33

Ajouter des valeurs dans un tableau avec vba

Bonjour à tous ,

Tous d'abord je vous souhaite une merveilleuse année .

Je viens vers vous car je dispose de 2 tableaux Le 1° s'appelle PHP semaine1 et l'autre PHP semaine 52.
Sur chaque tableau je dispose d'un tableau reprenant des dates et des numeros.
Ce que je veux faire , c'est une fois le tableau 1° remplit, je voudrais par une macro que je nommerai "Report", récupérer les valeurs restantes du second tableau et venir les coller a la suite des valeurs du tableau 1°, des qu'il y a une cellule en Colonne A de Vide

Mon tableau comporte 9 colonnes et commence a partir de la ligne 9 .

Merci de votre aide

Cordialement
03/01/2016, 16h19
Invité

Bonjour et bonne année également.

Il faudrait juste préciser :

- le tableau "PHP semaine1" se trouve sur un fichier différent de celui contenant le tableau "PHP semaine 52" ou sur une feuille différente dans un même fichier ;
- il est toujours utile de préciser la version d'Excel utilisée.
03/01/2016, 16h51
lovlov33

Merci d avoir répondu si vite.
En effet j avais oublié de préciser, je travail avec Excel 2010, et oui les fichiers sont sur 2 fichiers différents. Mais ne t'inquiète pas je mettrais les adresses après.
Merci

Bonjour,

Vous pouvez essayer ce code sur votre feuille Semaine1. Votre cas semblant être simple, je pense avoir utilisé la solution la plus simple. Il en existe d'autres, bien évidemment.
Modifiez bien sûr les noms de fichiers, de feuilles (si nécessaires), du chemin, de variables si vous le voulez (je prends toujours les noms les plus courts.
Bien évidemment, faites toujours un essai sur une copie de vos fichiers.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub Copie_s52()
Dim dls1&, dls52&, dcol&
Dim pls1%, pls2%
Dim vlg9$, chemin$, fich1$, fich52$
 
'1re ligne de données du fichier 1
pls1 = 9
'1re ligne de données du fichier 52 (on peut ne mettre qu'une variable, c'est pour le cas _
'ce serait différent
pls52 = 9
'dernière colonne uitlisée
dcol = 9
'modifier pour le vrai chemin
chemin = "C:\A_Documents\"
'modifier avec le véritable nom
fich1 = "PHP_Semaine_1A.xls"
'modifier avec le véritable nom
fich52 = "PHP_Semaine_52.xls"
 
On Error Resume Next
Workbooks(fich52).Activate
If Err <> 0 Then
If Dir(chemin & fich52) = "" Then
MsgBox "Le fichier n'a pas été trouvé.Vérifiez !"
End
End If
Workbooks.Open Filename:=chemin & fich52
End If
vlg9 = Workbooks(fich52).Sheets("Feuil1").Range(Cells(pls52, 1), Cells(pls52, 1))
 
 
    If vlg9 = "" Then
    MsgBox "Aucune donnée à copier n'a été trouvée en ligne 9 colonne A."
    End
    Else
    dls52 = Workbooks(fich52).Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
    dls1 = Workbooks(fich1).Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1
    End If
 
Workbooks(fich52).Sheets("Feuil1").Activate
Range(Cells(pls52, 1), Cells(dls52, dcol)).Select
Application.CutCopyMode = False
Selection.Copy
Workbooks(fich1).Sheets("Feuil1").Activate
Range(Cells(dls1, 1), Cells(dls1, 1)).Select
ActiveSheet.Paste
End Sub

N'hésitez pas si vous avez une question.

En cas de besoin n'hésitez pas non plus à regarder les tutoriels sur le VBA pour Excel.

04/01/2016, 13h19
Menhir
Citation:
Envoyé par jacques_jean

Code:

1 2 Application.ScreenUpdating = False On Error Resume Next
Ne jamais mettre ce type d'instructions dans un code tant qu'on est en phase de développement.
Un On Error, c'est la meilleure façon de ne pas comprendre les problèmes qui peuvent survenir.
04/01/2016, 16h18
Menhir

C'était juste un conseil.

Personnellement, je n'utilise jamais ces instructions.
Je préfère prévoir les cas d'erreur potentiels et les traiter par code.
Par exemple, plutôt que de mettre un On Error pour gérer l'ouverture d'un fichier inexistant, je préfère vérifier si le fichier est ouvert, par exemple avec une boucle For Each sur Workbooks.

Et s'il se produit une erreur imprévue, l'avantage de ne pas utiliser On Error, c'est que le programme plante à l'endroit où se situe le problème et met le doigt dessus.
Par exemple, dans ton code, si le fichier n'est pas trouvé, le vlg9 = sera aussi en erreur mais sera sauté et ainsi de suite pour toutes les lignes qui suivent. Au final, la macro se déroulera sans générer d'erreur mais sans faire le job (ou en le faisant de manière anormale) sans qu'on sache pourquoi.

C'est juste ma façon de travailler.
04/01/2016, 17h01
Invité

Aucun problème, toutes les idées peuvent être bonnes à prendre.

Je n'ai pas eu l'occasion d'avoir à utiliser "On Error Resume Next", mais je l'ai testé donc ci-dessus. Je prendrai bien le temps de tester votre proposition bientôt et surtout dans des procédures complexes.
Et il faut bien dire que dans ce contexte, nous avons un chacun notre "manière de travailler", ce qui ne veut pas dire que je ne dois pas en changer pour certains cas.

Bonne fin de journée.