Création d'une feuille automatiquement Excel
Résolu
tontonl70
Messages postés
127
Date d'inscription
Statut
Membre
Dernière intervention
-
Ericoco -
Ericoco -
A voir également:
- Création d'une feuille automatiquement Excel
- Feuille de score belote excel - Forum Excel
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Déplacer une colonne excel - Guide
- Word et excel gratuit - Guide
22 réponses
Salut,
j'ai essayé de traiter ta demande pour que ça soit automatique.
j'ai fait ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim val As String
Sheets("Feuil1").Select
ActiveSheet.Range("A1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
val = ActiveCell.Offset(-1, 0).Value
Sheets("Feuil2").Select
Sheets("Feuil2").Copy After:=Sheets(2)
ActiveSheet.Name = val
End Sub
Mais cela suppose que la colonne A ne comporte aucune cellule vide de A1 à la fin, que tu inscrives la nouvelle société en fin de colonne à chaque fois, et pour la faire fonctionner, tu doubles clic sur la feuil1.
Voilà ça fonctionne en tout cas
j'ai essayé de traiter ta demande pour que ça soit automatique.
j'ai fait ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim val As String
Sheets("Feuil1").Select
ActiveSheet.Range("A1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
val = ActiveCell.Offset(-1, 0).Value
Sheets("Feuil2").Select
Sheets("Feuil2").Copy After:=Sheets(2)
ActiveSheet.Name = val
End Sub
Mais cela suppose que la colonne A ne comporte aucune cellule vide de A1 à la fin, que tu inscrives la nouvelle société en fin de colonne à chaque fois, et pour la faire fonctionner, tu doubles clic sur la feuil1.
Voilà ça fonctionne en tout cas
