Creation de d'onglet autant que de ligne

Résolu/Fermé

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 - 5 mars 2015 à 14:48
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 5 mars 2015 à 16:12

bonjour
pouvez vous m'aidez a crée une macro que lorsque je l' actionne
chaque ligne rempli dans la colonne A me créé un onglet.
j ai actuellement 81 ligne soit 81 onglet a créé
merci d'avance

A voir également:

Creation de d'onglet autant que de ligne
Partage de photos en ligne - Guide
Site de vente en ligne particulier - Guide
Creation de compte google - Guide
Création de compte gmail - Guide
Rouvrir onglet fermé - Guide

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
5 mars 2015 à 14:59

Bonjour,

Voir ceci:

https://www.sfr.fr/fermeture-des-pages-perso.html

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
5 mars 2015 à 15:14

je suis désolé je n'arrive pas a combiné les éléments avez vous des éléments supplémentaire a me fournir

Réponse 2 / 3

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
5 mars 2015 à 15:19

je joint mon fichier https://www.cjoint.com/?3CfpD23GkyB
car après je voudrais que chaque élément dans mes colonnes rentre dans chaque fiche de ma liste (colonne A)

Réponse 3 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
5 mars 2015 à 16:12

Voilà pour répondre à la question initiale qui était la création d'onglets:

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("tableau")
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 7 To Split(FL1.UsedRange.Address, "$")(4)
          Sheets.Add.Name = FL1.Cells(NoLig, NoCol).Value
    Next
    Set FL1 = Nothing
End Sub

Pour le reste faire un nouveau post

Cdlt

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

On me voit connecté sur facebook alors que je n'y suis pas