Bonjour,

J'ai besoin d'aide concernant la création d'onglet en vba. J'explique je récupère un export qui contient des lignes de production différentes 6C, 6D, ...

Je souhaite ,par le biais d'une variable nommée UP, créer à chaque changement d'UP (6C, 6D, ...) un onglet y coller toutes les lignes et nommer l'onglet de cet UP.

Voici ma macro qui ne fonctionne pas :

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
Sub CREERONGLET()
 
 ‘CREERONGLET Macro
 ‘Macro enregistrée le 17/09/2010 par Interforum
 
Dim UP As String
 
For i = 2 To 300
 
 
 If Range("A" & i).Value = "" Then
 Range("W" & i).Select
If ActiveCell.Value = "6C" Then
 SOURCE = Range("C" & i).Value
 On Error Resume Next
 Sheets("SOURCE").Select
Sheets("SOURCE").Copy after:=Sheets(2)
Sheets("SOURCE").Range("AE" & i).Value = "X"
‘toutes les op de collage et de mise en forme
If Range("A" & i).Value = "6D" Then
Sheets.Add.Name = UP
Sheets("SOURCE").Select
Sheets("SOURCE").Copy after:=Sheets(2)
Active Sheet.Name = "6D"
On Error Resume Next
End If
End If
End Sub
merci d'avance...