créer un onglet avec 2 cellules

[pilcar]

Bonsoir, pour créer un onglet peut on copier 2 cellules de feuil1 (par exemple A1 + C2).

Sheets('Feuil1').Select
Sheets.Add
I = Sheets.Count
Sheets('Feuil' & I).Select
Sheets('Feuil' & I).Name = Sheets('Feuil1').Range('A1').Value


Dans la foulée si A1 est le chiffre 1 peut il ecrire 01 dans l'onglet
Merci pour vos éventuelles réponses

 

[Jacques87]

Bonsoir,

je suppose que tu veux dire : peux t-on construire le nom en concaténant (réunissant) les données de 2 cellules différentes

Bien sur
Dim I As Integer
Dim nom As String

Sheets('Feuil1').Select
nom = Sheets('Feuil1').Range('A1').Value & Sheets('Feuil1').Range('C2').Value
Sheets.Add
I = Sheets.Count
Sheets('Feuil' & I).Select
Sheets('Feuil' & I).Name = nom

voila
bonne soirée

 

[Charly2]

Bonsoir pilcar, re Jacques

Pour prendre le nombre en A1 sur 2 digits :

Option Explicit

Sub AjouteFeuille()
'
Dim i%
'
  Sheets.Add after:=Sheets(Sheets.Count)
  On Error Resume Next
  ActiveSheet.Name = Format(Sheets('Feuil1').Range('A1').Value, '00')
  On Error GoTo 0
End Sub

Et tu peux concaténer comme dans l'exemple de Jacques

A+

 

[pilcar]

c'est excellent
Merci beaucoup
Bonne soirée

 

[myDearFriend!]

Bonsoir pilcar, Jacques87,

Pour prendre en compte l'ajout du 0 devant la valeur de A1 (seulement si cette valeur ne comporte qu'un seul chiffre), un autre solution possible :

      Sheets.Add
      With Sheets('Feuil1')
            ActiveSheet.Name = Format(.Range('A1').Value, '00') & .Range('C2').Value
      End With

Cordialement,

EDITION :
Oups... eh bien décidément... salut Charly2 !

Message édité par: myDearFriend!, à: 17/01/2006 22:31

 

[Charly2]

Bonsoir myDearFriend

Collision en bonnet difforme

Enfin bref, tu as été complet comme à l'accoutumée

A+