1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Créer feuilles à partir des cellules d'une colonne

Discussion dans 'Forum Excel' démarrée par fouggy, 11 Septembre 2018.

  1. fouggy

    fouggy XLDnaute Junior

    Inscrit depuis le :
    14 Novembre 2012
    Messages :
    59
    "J'aime" reçus :
    0
    Bonjour le forum,



    Je souhaite créer et nommer des feuilles à partir du contenu des cellules contenues dans ma colonne A.



    Les cellules de ma colonne A contiennent toutes une lettre suivi de chiffres.



    Avec la macro élaborée ci-dessous, cela le fait très bien sauf que la lettre précédent les chiffres n'est pas prise en compte et les feuilles se nomment 1, 2, 12345... au lieu de R1, R2, R12345...



    Quelqu'un peut-il me dire ou cela pèche ?



    Merci par avance de vos réponses.



    Sub Test_création_de_feuilles()
    Dim cel As Range

    With Worksheets("Feuil1")
    'derniere cellule non vide colonne A
    derlig = .Range("A" & Rows.Count).End(xlUp).Row
    'mise en memoire plage cellules
    Set Plage = .Range("A2:A" & derlig)
    End With
    'boucle balayage plage
    For Each cel In Plage
    ' Création d'une nouvelle feuille
    Sheets.Add After:=Sheets(Sheets.Count)
    'nom feuille
    ActiveSheet.Name = cel.Value
    Next cel
    End Sub
     
  2. Chargement...


  3. Dranreb

    Dranreb XLDnaute Barbatruc

    Inscrit depuis le :
    31 Janvier 2011
    Messages :
    14641
    "J'aime" reçus :
    889
    Sexe :
    Masculin
    Habite à:
    Belfort
    Utilise:
    Excel 2016 (PC)
    Bonsoir.
    Au cas où le "R" serait du à un format de cellule indépendant de sa valeur, essayez ActiveSheet.Name = cel.Text
     
  4. fouggy

    fouggy XLDnaute Junior

    Inscrit depuis le :
    14 Novembre 2012
    Messages :
    59
    "J'aime" reçus :
    0
    Bonsoir,

    Merci de votre réponse, mais je dois placer cela ou dans la macro ?
     
  5. Dranreb

    Dranreb XLDnaute Barbatruc

    Inscrit depuis le :
    31 Janvier 2011
    Messages :
    14641
    "J'aime" reçus :
    889
    Sexe :
    Masculin
    Habite à:
    Belfort
    Utilise:
    Excel 2016 (PC)
    Ben là où vous avez actuellement à la place ActiveSheet.Name = cel.Value comme avant dernière instruction.
    Au lieu de la valeur de la cellule, ça prendra comme nom ce que vous y voyez, qui résulte de la combinaison de sa valeur avec son format.
     
  6. fouggy

    fouggy XLDnaute Junior

    Inscrit depuis le :
    14 Novembre 2012
    Messages :
    59
    "J'aime" reçus :
    0
    C'est Ok. Tip Top. L'erreur venait de là.

    Un grand merci
     

Partager cette page