VBA Comment créer plusieurs feuilles Excel
Fermé
choupy51
Messages postés
3
Date d'inscription
vendredi 29 octobre 2010
Statut
Membre
Dernière intervention
3 novembre 2010
-
29 oct. 2010 à 12:22
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 - 2 nov. 2010 à 16:06
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 - 2 nov. 2010 à 16:06
A voir également:
- VBA Comment créer plusieurs feuilles Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Créer un compte gmail - Guide
- Creer adresse mail - Guide
- Créer un compte google - Guide
4 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
29 oct. 2010 à 15:04
29 oct. 2010 à 15:04
Bonjour à tous,
ta liste commence en A2 et peut aller jusqu'à 99 codes
essaies:
ta liste commence en A2 et peut aller jusqu'à 99 codes
essaies:
Sub creeretnommer()
Dim encours As Long, derlig As Byte
derlig = Sheets(1).Range("A150").End(xlUp).Row
Application.ScreenUpdating = False
For cptr = 1 To derlig
encours = Sheets(1).Cells(cptr+1, 1)
Sheets.Add after:=Sheets(cptr)
With ActiveSheet
.Name = Format(encours, "00000")
With .Range("B3")
.Value = encours
.NumberFormat = "00000"
End With
End With
Next
End Sub
Oo°Evan°oO
Messages postés
28
Date d'inscription
mercredi 6 octobre 2010
Statut
Membre
Dernière intervention
18 décembre 2010
9
Modifié par Oo°Evan°oO le 29/10/2010 à 14:15
Modifié par Oo°Evan°oO le 29/10/2010 à 14:15
Bonjour,
Je ne pourrait pas te donner le code déjà tous fais mais j'ai ça :
ftp://ftp2.developpez.be/developps/vb/VB-excel2.pdf
Un très bon tutoriel!! Tu y trouvera notamment des informations utiles sur :
Comment travailler sur la cellule : PLAGE ET CELLULE (RANGE)
Et comment maitriser la création de nouveau fichier : L'objet WorkBook (classeur)
En espérant t'avoir aidé!!
Edit : Pour les feuilles de calcule voir : Worksheet
Je ne pourrait pas te donner le code déjà tous fais mais j'ai ça :
ftp://ftp2.developpez.be/developps/vb/VB-excel2.pdf
Un très bon tutoriel!! Tu y trouvera notamment des informations utiles sur :
Comment travailler sur la cellule : PLAGE ET CELLULE (RANGE)
Et comment maitriser la création de nouveau fichier : L'objet WorkBook (classeur)
En espérant t'avoir aidé!!
Edit : Pour les feuilles de calcule voir : Worksheet
choupy51
Messages postés
3
Date d'inscription
vendredi 29 octobre 2010
Statut
Membre
Dernière intervention
3 novembre 2010
2 nov. 2010 à 14:27
2 nov. 2010 à 14:27
Bonjour Oo°Evan°oO & michel_m
Merci pour vos informations.
De mon côté, ce wk j'ai pu approfondir mes recherches et je suis arrivée au code suivant :
Sub Copie_Modele()
Dim code_dpt As Variant
Dim maliste As Range
Dim compteur As Variant
Set maliste = Sheets("Clients").Range("A2:A180")
For Each code_client In maliste
Sheets("Fiche contact").Copy , before:=Sheets("Fiche contact")
ActiveSheet.Name = code_dpt.Value
Range("B3").Select
ActiveCell.FormulaR1C1 = code_dpt.Value
Range("G59").Select
ActiveCell.FormulaR1C1 = compteur + 1
compteur = compteur + 1
Next
End Sub
Je pense que cela doit être un peu du "bricolage" vu mon niveau mais "ça fonctionne" sauf que....
Comment peut-on faire pour copier les cellules non-vides de la colonne A de ma feuille "Clients"?????
Comme le fichier sera mis à jour assez régulièrement il va y avoir des rajouts/des suppressions et je me dis que la solution la plus simple serait d'utiliser toutes les cellules non-vides de la colonne A.
Est-ce que mon raisonnement vous semble correct????
Merci pour vos remarques/suggestions
Merci pour vos informations.
De mon côté, ce wk j'ai pu approfondir mes recherches et je suis arrivée au code suivant :
Sub Copie_Modele()
Dim code_dpt As Variant
Dim maliste As Range
Dim compteur As Variant
Set maliste = Sheets("Clients").Range("A2:A180")
For Each code_client In maliste
Sheets("Fiche contact").Copy , before:=Sheets("Fiche contact")
ActiveSheet.Name = code_dpt.Value
Range("B3").Select
ActiveCell.FormulaR1C1 = code_dpt.Value
Range("G59").Select
ActiveCell.FormulaR1C1 = compteur + 1
compteur = compteur + 1
Next
End Sub
Je pense que cela doit être un peu du "bricolage" vu mon niveau mais "ça fonctionne" sauf que....
Comment peut-on faire pour copier les cellules non-vides de la colonne A de ma feuille "Clients"?????
Comme le fichier sera mis à jour assez régulièrement il va y avoir des rajouts/des suppressions et je me dis que la solution la plus simple serait d'utiliser toutes les cellules non-vides de la colonne A.
Est-ce que mon raisonnement vous semble correct????
Merci pour vos remarques/suggestions
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
2 nov. 2010 à 16:06
2 nov. 2010 à 16:06
je suis en formation pendant 15 jours
31 oct. 2010 à 18:40