Dim toto As String, rangesave, lafeuille As Worksheet Set lafeuille = Sheets("Feuil1") With lafeuille rangesave = .UsedRange.Value RFormule = .UsedRange.Formula toto = .UsedRange.Address MsgBox toto ' je le laisse pour toi... efface cette instruction ensuite .Rows("5:15").Delete MsgBox "regarde ta feuille" Application.ScreenUpdating = False .Range(toto).Value = rangesave .Range(toto).Formula = RFormule Application.ScreenUpdating = True MsgBox "regarde ta feuille" End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiontablo = Range("A1:C10").Value 'tu modifies tout ce que tu veux à la main (-ici : on va simuler) Range("B1") = "coucou" MsgBox "regarde" 'et on restitue ici Range("A1:C10").Value = tablo
' Sauvegarde de la plage de données "A1:IV1000" RangeSave = Range("A1:IV1000") ' Suppression de 10 lignes Rows("5:15").Delete ' Annulation (EN VALEUR donc) de la suppression et retour à l'état initial Range("A1:IV1000") = RangeSave
Dim toto As String, rangesave rangesave = UsedRange.Value toto = UsedRange.Address MsgBox toto ' je le laisse pour toi... efface cette instruction ensuite Rows("5:15").Delete MsgBox "regarde ta feuille" Application.ScreenUpdating = False Range(toto).Value = rangesave Application.ScreenUpdating = True MsgBox "regarde ta feuille"
Dim toto As String, rangesave rangesave = UsedRange.Value toto = UsedRange.Address MsgBox toto ' je le laisse pour toi... efface cette instruction ensuite Rows("5:15").Delete MsgBox "regarde ta feuille" Application.ScreenUpdating = False Range(toto).Value = rangesave Application.ScreenUpdating = True MsgBox "regarde ta feuille"
Dim toto As String, rangesave, lafeuille As Worksheet Set lafeuille = Sheets("Feuil1") With lafeuille rangesave = .UsedRange.Value RFormule = .UsedRange.Formula toto = .UsedRange.Address MsgBox toto ' je le laisse pour toi... efface cette instruction ensuite .Rows("5:15").Delete MsgBox "regarde ta feuille" Application.ScreenUpdating = False .Range(toto).Value = rangesave .Range(toto).Formula = RFormule Application.ScreenUpdating = True MsgBox "regarde ta feuille" End With/quote
Sub Macro1() ' ' Macro1 Macro ' Dim toto As String, rangesave, lafeuille As Worksheet Set lafeuille = Sheets("Feuil1") With lafeuille rangesave = .UsedRange.Value RFormule = .UsedRange.Formula RnberFormat = .UsedRange.NumberFormat toto = .UsedRange.Address MsgBox toto ' je le laisse pour toi... efface cette instruction ensuite .Rows("5:15").Delete MsgBox "regarde ta feuille" Application.ScreenUpdating = False .Range(toto).Value = rangesave .Range(toto).Formula = RFormule .Range(toto).NumberFormat = RnberFormat Application.ScreenUpdating = True MsgBox "regarde ta feuille" End With ' End Sub