Discussion :

[theyang]

Bonjour à tous,

Désolé je ne vois pas comment imager ce que je souhaite faire. merci d'avance a ceux qui me viendront en aide.
Je voudrais savoir s'il est possible de copier l'adresse d'une cellule d'une feuille de calcul excel dans une autre feuille en changeant juste la ligne.
Voici le code que j'utilise pour copier une feuille vers une autre, changer la valeur de certaines cellules et remplir automatiquement plusieurs cellules:

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
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C33")) Is Nothing Then
If Target.Count = 1 And Len(Target) > 0 Then
    'Sheets.Add(after:=Sheets(Sheets.Count)).Name = Target
    Sheets("MODELE").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
    .Name = Target
    .Range("D1:Y2") = Target
 
End With
Dim i As Integer
    i = 1
While i <= 10
With ActiveSheet
    .Range("C1") = "=Feuil1!D6"
End With
i = i + 1
Wend
 
End If
End If
End Sub

Je voudrais maintenant que D6 puisse être transformé en D7 pour remplir une autre colonne lors de la création d'une nouvelle page

Cordialement,
Theyang

[Theze]

Bonjour,

Je voudrais maintenant que D6 puisse être transformé en D7 pour remplir une autre colonne lors de la création d'une nouvelle page

Essai ceci :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Intersect(Target, Range("C2:C33")) Is Nothing Then
 
        If Target.Count = 1 And Len(Target) > 0 Then
 
            Sheets("MODELE").Copy , Sheets(Sheets.Count)
 
            With ActiveSheet
 
                .Name = Target
                .Range("D1:Y2") = Target 
                .Range("C1") = "=Feuil1!D7"
 
            End With
 
        End If
 
    End If
 
End Sub

Hervé.

[theyang]

Merci de ta réponse hervé mais en fait je voudris que le changement de D6 en D7 se fasse de façon automatique. En fait je veux qu'a chaque utilisation du code sur la page que D6 soit incrémenté de 1.

[Theze]

Bonjour,

Je suppose alors, que la ligne est incrémentée à chaque ajout de feuille ! Pour ça, je pense qu'il faut que la valeur de la ligne soit stockée dans un nom (Name). Cette valeur est récupérée à l'ouverture du classeur et sauvegardée à la fermeture et pour ça, il te faut coller ces deux proc dans le module du classeur :

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
 
Public Ligne As Long
 
Private Sub Workbook_Open()
 
    'une erreur est générée si le nom n'existe pas, d'où le gestionnaire
    On Error Resume Next
 
    'si il existe, récupère la valeur...
    Ligne = Split(Worksheets("Feuil1").Names("Ligne"), "=")(1)
 
    'sinon, ajoute le nom en le rendant invisible dans la fenêtre "Gestionnaire de noms"
    If Err.Number <> 0 Then
 
        Ligne = 6 'initialise à 6
 
        Worksheets("Feuil1").Names.Add "Ligne", Ligne, False
 
    End If
 
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    'enregistre la valeur avant la fermeture
    Worksheets("Feuil1").Names("Ligne").Value = Ligne
 
End Sub

Et ceci dans le module de la feuille (en remplacement du précédant) :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Intersect(Target, Range("C2:C33")) Is Nothing Then
 
        If Target.Count = 1 And Len(Target) > 0 Then
 
            Sheets("MODELE").Copy , Sheets(Sheets.Count)
 
            With ActiveSheet
 
                .Name = Target
                .Range("D1:Y2") = Target
 
                ThisWorkbook.Ligne = ThisWorkbook.Ligne + 1 'incrémente de 1 à chaque fois
                'que cette proc est appelée
 
                .Range("C1") = "=Feuil1!D" & ThisWorkbook.Ligne
 
            End With
 
        End If
 
    End If
 
End Sub

J'ai pas testé mais ça devrait marcher !

Hervé.

[theyang]

Bonjour Hervé,

J'ai essayé ton code mais à l'exécution j'ai un message disant :
erreur de compilation
Membre de méthode ou de données introuvable.

et sa me surligne en jaune Liste dans la deuxieme partie de code que tu m'as donné.

Cordialement,

[theyang]

Merci de ton aide Hervé je pense avoir réussi a faire en parti ce que je voulais je te tiens au courant. et ton code fonctionne nickel je l'avais simplement mal placé.

[theyang]

Merci encore de ton aide j'ai réussi a faire ce que je voulais. Je passe le sujet en résolu.