Date à la création d'onglet

Le
jp
Bonjour,

J'utilise une macro qui me créée des onglets dont le nombre est
variable.
Je souhaiterai que s'affiche en D1 la date se trouvant en A2 de la
feuille edibase pour le premier onglet créé et en suivant le deuxième
onglet créé reprenne la valeur de B2 de la feuille edibase et la
place en D1, etc etc..
Que faut-il que j'ajoute à la macro pour obtenir le résultat.

La macro est la suivante:

Sub Extrait()
Sheets("edibase").Select
For Each c In Range("a2", [a365].End(xlUp)) ' pour chaque jour
On Error Resume Next
Sheets(c.Value).Select ' la feuille existe t-
elle?
If Err <> 0 Then
Sheets("Modèle").Copy After:=Sheets(Sheets.Count) ' création
ActiveSheet.Name = Format(c.Value, "dd-mm-yy")
End If
Next c
End Sub

Merci pour votre aide
JP
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #6544191
bonjour Jp,

Sub Extrait()
Sheets("edibase").Select
For Each c In Range("a2", [a365].End(xlUp)) ' pour chaque jour
On Error Resume Next
Sheets(c.Value).Select ' la feuille existe t-elle?
If Err <> 0 Then
x = x + 1 '<-------------------------
Sheets("Modèle").Copy After:=Sheets(Sheets.Count) ' création
ActiveSheet.Name = Format(c.Value, "dd-mm-yy")
ActiveSheet.Range("D1") = Sheets("edibase").Cells(2, x) '<-------------------------

End If
Next c
End Sub

isabelle


Bonjour,

J'utilise une macro qui me créée des onglets dont le nombre est
variable.
Je souhaiterai que s'affiche en D1 la date se trouvant en A2 de la
feuille edibase pour le premier onglet créé et en suivant le deuxième
onglet créé reprenne la valeur de B2 de la feuille edibase et la
place en D1, etc... etc..
Que faut-il que j'ajoute à la macro pour obtenir le résultat.

La macro est la suivante:

Sub Extrait()
Sheets("edibase").Select
For Each c In Range("a2", [a365].End(xlUp)) ' pour chaque jour
On Error Resume Next
Sheets(c.Value).Select ' la feuille existe t-
elle?
If Err <> 0 Then
Sheets("Modèle").Copy After:=Sheets(Sheets.Count) ' création
ActiveSheet.Name = Format(c.Value, "dd-mm-yy")
End If
Next c
End Sub

Merci pour votre aide
JP


jp
Le #6545981
Merci Isabelle c'est ce que je souhaitais obtenir. Juste une petite
inversion à faire
ActiveSheet.Range("D1") = Sheets("edibase").Cells(x, 2)

Merci

JP


On 3 mai, 14:47, isabelle wrote:
bonjour Jp,

Sub Extrait()
   Sheets("edibase").Select
   For Each c In Range("a2", [a365].End(xlUp))   ' pour chaque jour
      On Error Resume Next
      Sheets(c.Value).Select          ' la feuille existe t-elle?
      If Err <> 0 Then
      x = x + 1                     '<-------- -----------------
       Sheets("Modèle").Copy After:=Sheets(Sheets.Count)   ' création
       ActiveSheet.Name = Format(c.Value, "dd-mm-yy")
       ActiveSheet.Range("D1") = Sheets("edibase").Cells(2, x)  '<-------------------------

         End If
    Next c
End Sub

isabelle



Bonjour,

J'utilise une macro qui me créée des onglets dont le nombre est
variable.
Je souhaiterai que s'affiche en D1 la date se trouvant en A2 de la
feuille edibase pour le premier onglet créé et en suivant le deuxi ème
onglet créé reprenne la valeur de B2 de la feuille edibase  et la
place en D1, etc... etc..
Que faut-il que j'ajoute à la macro pour obtenir le résultat.

La macro est la suivante:

Sub Extrait()
  Sheets("edibase").Select
  For Each c In Range("a2", [a365].End(xlUp))   ' pour chaque jour
     On Error Resume Next
     Sheets(c.Value).Select                 ' la f euille existe t-
elle?
     If Err <> 0 Then
      Sheets("Modèle").Copy After:=Sheets(Sheets.Count)   ' création
      ActiveSheet.Name = Format(c.Value, "dd-mm-yy")
        End If
   Next c
End Sub

Merci pour votre aide
JP- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme