BONJOUR,
CECI EST UN APPEL AU SECOURS.
CELA FAIT PLUSIEURS JOURS QUE JE BUTTE SUR UN PROBLÈME QUE JE N?ARRIVE PAS À RÉSOUDRE
J?AI PRÉPARÉ UN DOSSIER BUDGET SUR EXCEL 2010.
DANS CE DOSSIER, J?INSÈRE DES LIGNES, GRÂCE À UNE MACRO DONT VOICI LE CODE.
Sub new_ligne()
’
’ new_ligne Macro
Cells.Find(What:=“aa22aa”, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Cells.Find(What:=“aa21aa”, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
LA PARTIE CI-DESSUS SERT À REPÉRER L?EMPLACEMENT DE LA LIGNE QUI DOIT ÊTRE COPIÉE
LA PARTIE DESSOUS COPIE LA LIGNE SÉLECTIONNÉE (CELLE DU DESSUS)
Dim lg As Integer
lg = ActiveCell.Row
Range(“A” & lg).EntireRow.Insert
Range(“A” & lg - 1 & “:AI” & lg - 1).Copy
Range(“A” & lg).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
End Sub
JUSQUE LÀ CELA FONCTIONNE TRÈS BIEN
DEUX PROBLÈMES VIENNENT SE GREFFER À CETTE ACTION
-
LORSQUE LA COPIE DE LA LIGNE DU DESSUS SE FAIT, LES VALEURS QUI SE TROUVENT DANS LES CELLULES SONT COPIÉES AUSSI. EN RÉALITÉ, IL FAUDRAIT QUE SOIENT COPIÉS LE FORMAT ET LES FORMULES MAIS PAS LES VALEURS.
Expl : ( LIGNE 11) CONTIENT DES VALEURS
(LIGNE 12), INSÉRÉE, A COPIÉ LES VALEURS DE (LIGNE 11)
-
LA (LIGNE 11) SE TROUVE DESSOUS (LA LIGNE 10) QUI VIENT D?ÊTRE COPIÉE ET INSÉRÉE
Expl : DANS (R11) SE TROUVE LA FORMULE (=N10) .
LORSQUE L?ON INSÈRE LA (LIGNE 12) (DANS LA LIGNE DU DESSUS) CETTE FORMULE NE CHANGE PAS (N11) DEVIENT (N12) ET LA FORMULE RESTE (=N10). DU COUP, LES VALEURS QUI VONT ÊTRE MISES DANS LA NOUVELLE LIGNE NE SERONT PAS PRISES EN COMPTE ET LES TOTAUX SERONT FAUX.
CECI SE RÉPÈTE, À CHAQUE INSERTION DE LIGNE ET LA FORMULE RESTE (=N10).
J?AIMERAIS TROUVER UNE SOLUTION POUR QUE DANS LA CELLULE (N11) QUI FAIT PARTIE DE LA LIGNE DES TOTAUX, LA FORMULE CHANGE AU FUR ET À MESURE QUE CETTE CELLULE CHANGE DE NOM.
J’AIMERAIS JOINDRE LA PARTIE INTÉRESSANTE DU DOSSIER? MALHEUREUSEMENT JE N’AI PAS TROUVÉ LA POSSIBILITÉ DE JOINDRE UN DOSSIER.
QUELQU?UN A-T-IL UNE SOLUTION ?
J?ESPÈRE VRAIMENT.
Merci d’avance aux petits génies d’Excel
