Discussion :

[wyzer]

Bonjour,

Avant de commencer, voici un exemple :

Colonne A | Colonne B
          |
7001      | Richard
7001      | Marc
7001      | Lucie
7002      | Paul
7002      | Evelyne
7002      | Marie

Ce que j'aimerais faire, c'est qu'à chaque fois que la valeur change dans la colonne A, une nouvelle feuille est créée, avec comme nom la valeur de la cellule, en recopiant toute la ligne

Donc on va avoir une nommé 7001, et autre 7002


Depuis tout à l'heure je me casse la tête mais je n'y arrive pas

[Theze]

Bonjour,

A mettre dans le module de ta feuille :

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
32
33
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim Fe As Worksheet
    Dim Plage As Range
    Dim Existe As Integer
 
    If Not Intersect(Target, [A:A]) Is Nothing Then
 
        'définie la plage pour la recherche
        Set Plage = Range([A1], [A65536].End(xlUp))
 
        'compte le nombre de valeurs
        Existe = Application.CountIf(Plage, Target)
 
        'si une seule (celle de target), crée la feuille
        'la renomme avec la valeur de target et copie
        'la ligne entrière de target dans la nouvelle
        'feuille en partant de A1
        If Existe = 1 Then
 
            Set Fe = Worksheets.Add
            Fe.Name = Target.Value
            Target.EntireRow.Copy Fe.[A1]
 
        End If
 
    End If
 
    Set Plage = Nothing
    Set Fe = Nothing
 
End Sub

Hervé.

[wyzer]

merci !!

il me mets ce message d'erreur :

"erreur 424, objet requis"

[Theze]

Re,

Chez moi ça fonctionne très bien, sur quelle ligne as tu cette erreur ?

Hervé.

[Vadorblanc]

Bonjour
These
Super ça marche, je mets ton code de côté
Merci

[wyzer]

Re,

Chez moi ça fonctionne très bien, sur quelle ligne as tu cette erreur ?

Hervé.

Excuse de ne pas voir répondu plus tôt, mais je pensais être averti par mail dès qu'il y aurait une réponse

A cette ligne :

Code :

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

If Not Intersect(Target, [A:A]) Is Nothing Then

[Theze]

Bonsoir wyser,

remplace la ligne par :

Code :

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

1
2
 
If Not Intersect(Target, Range("A1:A65536")) Is Nothing Then

Hervé.