Macro pour ajout de lignes

Résolu/Fermé
safach Messages postés 252 Date d'inscription jeudi 27 août 2015 Statut Membre Dernière intervention 13 mars 2021 - Modifié par safach le 11/12/2015 à 14:44
safach Messages postés 252 Date d'inscription jeudi 27 août 2015 Statut Membre Dernière intervention 13 mars 2021 - 11 déc. 2015 à 16:04
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 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
11 déc. 2015 à 15:57
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 252 Date d'inscription jeudi 27 août 2015 Statut Membre Dernière intervention 13 mars 2021 2
11 déc. 2015 à 16:04
Bonjour,
je viens de tester ta macro, elle fonctionne parfaitement
merci!
cordialement
0