Discussion :

[hunterbou]

'Le but est de classer les données des différents comptes de la colonne E dans des onglets différents portant le nom du compte axa en question
'et les seules données du compte qu'on récupère dans les onglets créés sont ceux de la colonne E à W

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
24
25
26
27
28
29
30
31
Option Explicit
 
Public Sub addonglet(nomdecompte As String)
Sheets.Add
With Sheets("base data")
'nomdecompte = .target.Value
ActiveSheet.Name = nomdecompte
End With
End Sub
 
Sub copiecolle()
Dim i As Long
Sheets.Add
 
With Sheets("base data")
ActiveSheet.Name = Cells(2, "E").Value
For i = 3 To 5000
If Cells(i - 1, 5).Value = Cells(i, 5).Value Then
With Sheets(Cells(2, "E").Value)
Range(Cells(2, "E"), Cells(2, "W")).Copy Destination:=ActiveSheet.Cells(2, "A")
Range(Cells(i, "E"), Cells(i, "W")).Copy Destination:=ActiveSheet.Cells(i, "A")
Application.CutCopyMode = False
Range(Cells(2, "E"), Cells(2, "W")).Copy
Range(Cells(i, "E"), Cells(i, "W")).Copy
ActiveSheet.Cells(2, "A").PasteSpecial xlPasteColumnWidths
ActiveSheet.Cells(i, "A").PasteSpecial xlPasteColumnWidths
End With
End If
Next i
End With
End Sub

Le problème c'est que je ne comprends rien aux bug activesheet et que je vois pas non plus comment classer avec les différentes données de la colonne E car la je le fais que pour la cells(2,E) et je dois le faire pour toutes les données de la colonne E. Je galère merci d'aider le débutant que je suis.

cordialement

[hunterbou]

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
24
25
26
27
28
29
30
Option Explicit
 
Public Sub addonglet(nomdecompte As String)
Sheets.Add
With Sheets("base data")
'nomdecompte = .target.Value
ActiveSheet.Name = nomdecompte
End With
End Sub
 
Public Sub control()
addonglet (Cells(2, "E").Value)
End Sub
 
Public Sub es()
Dim i, j As Long
For i = 2 To 5000
If Sheets("base data").Cells(i, "E") = Sheets("base data").Cells(2, "E").Value Then
Sheets("base data").Rows(i).Copy Sheets(Cells(2, "E").Value).Rows(i)
Application.CutCopyMode = False
Sheets("base data").Select
Range(Cells(i, "E"), Cells(i, "W")).Select
Selection.Copy
Sheets(Cells(2, "E").Value).Range(Cells(2, "A"), Cells(2, "S")).Paste
For j = 5 To 23
Sheets(Cells(2, 5).Value).Cells(i, j - 4).Value = Sheets("base data").Cells(i, j).Value
Next j
End If
Next i
End Sub

là j'ai plus de problème avec les activesheets ça compile ms a l'exécution ça foire... problème à ce niveau là:
Sheets("base data").Rows(i).Copy Sheets(Cells(2, "E").Value).Rows(i)

Et même après avoir résolu ce problème il demeurera toujours celui des autres éléments de la colonne E... je pense à faire une autre boucle par dessus mais je sens que ça va très mal se passer comme tjs.

Merci de votre aide

[hunterbou]

Je veux classer les données qui sont dans la feuille "BASE DATA" des différents comptes clients de la colonne E dans des onglets différents portant le nom du compte en question
et les seules données du compte qu'on récupère dans les onglets créés sont ceux de la colonne E à W.

Plus précisément:

Si dans la colonne E, on a:
eric
eric
eric
charles
charles
louise
louise
louise

alors on crée 3 onglets différents nommés respectivement eric charles et louise.

Dans chacun de ces onglets créés, on copie et on colle les données des clients correspondants pour les colonnes de E à W ,c'est-à-dire qu'on a dans chaque ligne de l'onglet eric par exemple des lignes:

eric age sexe 10000 20000
eric age sexe 1541846 -2985
eric age sexe 15464 28853

idem pour charles et louise

Voilà en gros ce que je veux faire, j'espère que j'ai été claire là.

Merci de votre aide ça fait 3 jours que je suis sur ce code qui devrait être simple mais qui s'avère être un casse-tête pour moi