Discussion :

[xdoreau]

Bonjour,

Je dois mettre en forme un tableau pour suivre l'évolution du CA clients.

qui au final devrat ressembler à cela (model imposer) :
http://imagik.fr/view/457939

Mon problème c'est d'inbriquer dans une boucle "l'affichage" des mois pour chaque clients et passer au suivant.

J'ai essayé tout un tas de solutions avec des boucles mais sans succès.

Auriez vous soupcon de début d'idée... Sachant que pour l'instant les mois se trouve dans un array et la liste des clients sur une feuille du classeur.


Merci d'avance

Oups ! désolé pour l'image je viens de remettre un lien

[Daranc]

si ça doit ressembler à ça :

[bastou93]

bonjour,

qu'appelle tu "l'affichage"? et tu as zappé a quoi sa doit ressembler

De plus comme tes mois et client sont séparé, quelle est le lien entre la position du mois dans ta liste (array) et la cellule de tes clients dans ton classeur?

Si c'est par exemple le client "A1" à l'index du mois 0 sa donnerai ca:

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 test()
 
dim lastrow as long
dim i as long
Dim tabmonth As Variant
 
tabmonth = Array("janv", "feb", "may")
 
lastrow = Range("A1").end(x1down).row		'ici on fixe à 3 car 3 mois possible
i=0						'variable qui compte le nombre de client pour pointé dans ta liste
for each cel in Range("A1:A" & lastrow )	'parcour tous tes clients
	msgbox "client: " & cel.value & " mois: " & tabmonth(i)
	i=i+1
next cel
 
end sub

bastien

[xdoreau]

Bonjour,

En fait il n'y a pas de lien est les mois et la liste des clients, il faut que pour chaque client soit inscrit les 12 mois de l'année.

Exemple le premier client se trouve sur la ligne 2 avec en colonne E la liste des mois (janvier en E2 et décembre en E13). Le deuxième client se trouve sur la ligne 14 avec la liste des mois. Etc...

Ce que je n'arrive pas à faire c'est de placer le client suivant sur la ligne correspondante.

Merci

[jfontaine]

Bonjour,

Ce que je n'arrive pas à faire c'est de placer le client suivant sur la ligne correspondante

Que veux tu dire ? Placer le prochain client?

La prochain client devra être sur la ligne renvoyée par ce code

Code :

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

Range("E:E").End(xlDown).Row + 1

[oOVaveOo]

Bonjour à tous,
en reprenant le code de bastou93 :

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
17
18
19
20
21
22
23
Private Sub test()
Dim i As Integer
Dim j As Integer
Dim tabmonth As Variant
Dim Plage_clients As Range
 
Set Plage_clients = sheets("clients").Range("G2:G8") 'La plage où se trouvent les clients
 
tabmonth = Array("janv", "feb", "may", "juin", "juil", "aout", "sept", "oct", "nov", "dec")
 
i = 2 'ligne à laquelle commencer
 
With Sheets("resultats") 'onglet à adapter
    For Each c In Plage_clients 'boucle sur les clients
        .Cells(i, 5) = c.Value
            For j = 0 To UBound(tabmonth) 'boucle sur les mois
                .Cells(i, 6) = tabmonth(j)
                i = i + 1
            Next j
    Next c
End With
 
End Sub

[bastou93]

merci oOVaveOo pour ton amélioration sa m'évite de le faire sans avoir encore vraiment compris ce que tu souhaite faire xdoreau

EDIT: il y a la photo j'avais pas vu , je pense que le code devrai fonctionner dis nous si il y a des bugs

C'est le code a oOVaveOo mais avec les bonnes colonnes

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
17
18
19
20
21
22
23
Private Sub test()
Dim i As Integer
Dim j As Integer
Dim tabmonth As Variant
Dim Plage_clients As Range
 
Set Plage_clients = sheets("clients").Range("G2:G8") 'La plage où se trouvent les clients
 
tabmonth = Array("janv", "feb", "may", "juin", "juil", "aout", "sept", "oct", "nov", "dec")
 
i = 2 'ligne à laquelle commencer
 
With Sheets("resultats") 'onglet à adapter
    For Each c In Plage_clients 'boucle sur les clients
        .Cells(i, 2) = c.Value
            For j = 0 To UBound(tabmonth) 'boucle sur les mois
                .Cells(i, 5) = tabmonth(j)
                i = i + 1
            Next j
    Next c
End With
 
End Sub