recoverybis
XLDnaute Nouveau
Bonjour,
je reviens solliciter les plus aguerris car malgré tous mes efforts pour me débrouiller par mes propres moyens mon code VBA reste inactif. Je remercie d'ores et déjà ceux ou celles qui consacreront quelques instants pour corriger ce problème. l'objectif est de trouver la cellule contenant le mot Total de la feuille active et à partir de cette dernière copier uniquement les valeurs des 7 cellules à sa droite et de les coller deux cellules plus bas mais lorsque je lance la macro rien ne se passe même pas un message d'erreur.
voici le code utilisé profane en VBA je me doute qui va en faire hurler plus d'un.
Sub find()
ActiveSheet.Select
Dim derlig As Long, plage As Range, cel As Range, premaddrees
derlig = Range("B" & Rows.Count).End(xlUp).Row
Set plage = Range("B4:B" & derlig)
Set cel = plage.find(What:="Total", LookAt:=xlWhole)
If Not cel Is Nothing Then premaddrees = cel.Address
ActiveCell.Offset(0, 7).Copy
ActiveCell.Offset(2, 0).Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
je joins le fichier et renouvelle mes remerciements à ceux et celles qui m'apporteront leur aide
Cordialement
je reviens solliciter les plus aguerris car malgré tous mes efforts pour me débrouiller par mes propres moyens mon code VBA reste inactif. Je remercie d'ores et déjà ceux ou celles qui consacreront quelques instants pour corriger ce problème. l'objectif est de trouver la cellule contenant le mot Total de la feuille active et à partir de cette dernière copier uniquement les valeurs des 7 cellules à sa droite et de les coller deux cellules plus bas mais lorsque je lance la macro rien ne se passe même pas un message d'erreur.
voici le code utilisé profane en VBA je me doute qui va en faire hurler plus d'un.
Sub find()
ActiveSheet.Select
Dim derlig As Long, plage As Range, cel As Range, premaddrees
derlig = Range("B" & Rows.Count).End(xlUp).Row
Set plage = Range("B4:B" & derlig)
Set cel = plage.find(What:="Total", LookAt:=xlWhole)
If Not cel Is Nothing Then premaddrees = cel.Address
ActiveCell.Offset(0, 7).Copy
ActiveCell.Offset(2, 0).Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
je joins le fichier et renouvelle mes remerciements à ceux et celles qui m'apporteront leur aide
Cordialement