JavaScript est désactivé. Pour une meilleure expérience, veuillez activer JavaScript dans votre navigateur avant de continuer.

Répondre à la discussion

Message: <blockquote data-quote="recoverybis" data-source="post: 20199619" data-attributes="member: 206301">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.SelectDim derlig As Long, plage As Range, cel As Range, premaddreesderlig = Range("B" & Rows.Count).End(xlUp).RowSet plage = Range("B4:B" & derlig)Set cel = plage.find(What:="Total", LookAt:=xlWhole)  If Not cel Is Nothing Then premaddrees = cel.AddressActiveCell.Offset(0, 7).CopyActiveCell.Offset(2, 0).SelectSelection.PasteSpecial xlPasteValuesApplication.CutCopyMode = FalseEnd Subje joins le fichier et renouvelle mes remerciements à ceux et celles qui m'apporteront leur aideCordialement</blockquote>