Incrementation dans tableau excel
micht24
Messages postés
3
Date d'inscription
samedi 18 janvier 2003
Statut
Membre
Dernière intervention
27 décembre 2005
-
27 déc. 2005 à 17:53
cs_phBil Messages postés 17 Date d'inscription jeudi 13 février 2003 Statut Membre Dernière intervention 29 octobre 2006 - 27 déc. 2005 à 19:22
cs_phBil Messages postés 17 Date d'inscription jeudi 13 février 2003 Statut Membre Dernière intervention 29 octobre 2006 - 27 déc. 2005 à 19:22
A voir également:
- Tableau excel suivi tâches gratuit
- Tableau de bord gestion parc automobile excel gratuit - Forum Java
- Tableau php html - Conseils pratiques -PHP
- Logiciel gmao gratuit excel - Forum VBA Office (Excel, Word ...)
- Tableau amortissement excel - Forum VBA Office (Excel, Word ...)
- Gmao excel vba gratuit - Forum Visual Basic
1 réponse
cs_phBil
Messages postés
17
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
29 octobre 2006
27 déc. 2005 à 19:22
27 déc. 2005 à 19:22
tiens voila un peu de code ..
Sub MaCopie()
Dim rDerL As Range 'Derniere ligne
ThisWorkbook.Sheets(2).Activate
Set rDerL = ThisWorkbook.Sheets(2).Range("A65535").End(xlUp)
rDerL.EntireRow.Copy
rDerL.EntireRow.Offset(1, 0).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
rDerL.EntireRow.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Lance ' Programme lancement pour le lendemain
End Sub
Sub Lance()
Application.OnTime TimeValue("00:00"), "MaCopie"
End Sub
Avec lance la macro de "lancement" , qui programme l'éxécution de la macro MaCopie pour le prochain "00:00" ... , revoir la feuille concerné pour copie ...
phbil
Sub MaCopie()
Dim rDerL As Range 'Derniere ligne
ThisWorkbook.Sheets(2).Activate
Set rDerL = ThisWorkbook.Sheets(2).Range("A65535").End(xlUp)
rDerL.EntireRow.Copy
rDerL.EntireRow.Offset(1, 0).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
rDerL.EntireRow.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Lance ' Programme lancement pour le lendemain
End Sub
Sub Lance()
Application.OnTime TimeValue("00:00"), "MaCopie"
End Sub
Avec lance la macro de "lancement" , qui programme l'éxécution de la macro MaCopie pour le prochain "00:00" ... , revoir la feuille concerné pour copie ...
phbil