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
A voir également:

1 réponse

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
safach Messages postés 293 Statut Membre 2
 
Bonjour,
je viens de tester ta macro, elle fonctionne parfaitement
merci!
cordialement
0