Macro pour ajout de lignes

Résolu
safach Messages postés 293 Statut Membre -  
safach Messages postés 293 Statut Membre -
Bonjour,
si quelqu'un peut m'aider ça sera génial
je suis à la recherche d'une macro qui ajoute le jour J+1 dans tous les ongles d'un fichier
le lien vers le fichier https://www.cjoint.com/c/ELlnQzfQpNT
dans le fichier les dates dans tous les onglets s'arrêtent à 08/12/2015 je souhaite en déclenchant une macro ajouter le jour qui suit dans tous les onglets
j'espère être claire et trouver une solution car les onglets dépasseront 500 et le fichier est lié à une macro qui ne fonctionne plus si je remplace les dates par une formule peu n'importe quelle formule. le format des cellules A de tous les onglets doit être jj/mm/aaaa
merci d'avance
cordialement

c'est en cherchant qu'on trouve

1 réponse

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Essaie avec
    Sub Test()
    Dim Ws As Worksheet
    Dim Plage As Range
    For Each Ws In Worksheets
    Set Plage = Ws.Range("A" & Rows.Count).End(xlUp).Resize(, 2)
    Plage.AutoFill Destination:=Plage.Resize(2), Type:=xlFillDefault
    Plage.Offset(1, 1).Resize(1, 1).ClearContents
    Next Ws
    End Sub

    A+
    0
    1. safach Messages postés 293 Statut Membre 2
       
      Bonjour,
      je viens de tester ta macro, elle fonctionne parfaitement
      merci!
      cordialement
      0