Bonjour à tous,
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.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub new_ligne()
'
' new_ligne Macro
Cells.Find(What:="aa21aa", 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)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
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
1) 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 10) CONTIENT DES VALEURS INTRODUITES PAR L'UTILISATEUR;
-B10- "16/10"
-C10- "25"
-G10- "300.oo"
-H10- "500.oo"

(LIGNE 11), INSÉRÉE, A COPIÉ LES VALEURS DE (LIGNE 10) ALORS QUE DEVRAIENT S'AFFICHER EN
-B11- "DATE"
-C11- "N° Réf"
-G11- "CETTE CELLULE DEVRAIT ÊTRE VIERGE"
-H11- "CELLE-CI AUSSI"

2) LA (LIGNE 12) SERT À FAIRE LES TOTAUX, SUIVANT CERTAINS CRITÈRES. ELLE SE TROUVE DONC DESSOUS (LA LIGNE 11) QUI VIENT D’ÊTRE COPIÉE ET INSÉRÉE,

Expl : DANS (R11) SE TROUVE LA FORMULE (=R10) .
LORSQUE L’ON INSÈRE LA (LIGNE 11) CETTE FORMULE NE CHANGE PAS (R11) DEVIENT (R12) ET LA FORMULE RESTE (=R10).
DU COUP, LES VALEURS QUI VONT ÊTRE MISES DANS LA NOUVELLE LIGNE NE SONT PAS PRISES EN COMPTE ET LES TOTAUX SONT FAUX.
CECI SE RÉPÈTE, À CHAQUE INSERTION DE LIGNE ET LA FORMULE RESTE (=R10).
J’AIMERAIS TROUVER UNE SOLUTION POUR QUE DANS LA CELLULE (R11) QUI FAIT PARTIE DE LA LIGNE DES TOTAUX, LA FORMULE CHANGE AU FUR ET À MESURE QUE CETTE CELLULE CHANGE DE NOM.
JE JOINS LA PARTIE INTÉRESSANTE DU DOSSIER.
QUELQU’UN A-T-IL UNE SOLUTION ?
J’ESPÈRE VRAIMENT.