Discussion :

[JHS Mate]

Bonjour,

Ceci est ma 1ere discussion sur ce forum

Je suis debutant dans les macro sous Excel et pas vraiment bon en informatique.

J'ai une feuille DONNEES sur laquelle sont remplies quotidiennement des donnes dont les heures.
Je souhaite creer une macro qui va remplir sur la feuille RECUEIL les dates et les heures correspondantes pour chaque client et cela AUTOMATIQUEMENT

Pour cela j'ai pense a utiliser une variable tableau qui contiendra les dates et les heures puis les affichera sur la feuille DONNEES (meme ligne mais des colonnes plus loin). J'ai ecrit les lignes de code VBA suivantes. Mais a l'execution de cette procedure rien ne s'affiche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub TableauRemplissage()
Dim Tab1() As Variant, i As Integer, col As Integer, ligne As Integer
col = 1
ligne = 1
i = 1
 
Do While Cells(i, 1) <> ""
    ReDim Tab1(i)
        For ligne = 1 To UBound(Tab1)
            Tab1(ligne) = Cells(ligne, col).Value
            Cells(ligne, col + 10).Value = Tab1(ligne)
        Next ligne
    col = col + 1
Loop
 
End Sub

Quelqu'un pourrait-il/elle m'aider? J'ai vraiment essaye.

Vous trouverer mon fichier joint.

Merci d'avance!

[Marc-L]

Bonjour,

la boucle est inutile pour alimenter une variable tableau de valeurs d'une plage de cellules !
Donc code à revoir intégralement et commencer par suivre les tutoriels de ce forum …

Sinon une unique instruction suffit largement via la simple méthode   Range.Copy   et donc sans boucle !

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[BENNASR]

Bonsoir
coté conception, il est inutile de faire plusieurs tableaux identique pour chaque client . il suffit d'ajoute une colonne pour renseigner le nom du client. Tu aura un seul tableau et un tableau croisé dynamique avec des segments te donnera plus que tu cherches
Bonne continuation