Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copie d'onglet mais garder formule dans colonne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion VINCEGR
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

VINCEGR

XLDnaute Occasionnel
Bonjour le Forum,
voici mon souci 😕
je copie mon devis créer sous un nouvel onglet mais je souhaiterais que:
1) la colonne (F) garde ses formules de calcul
2) la copie conserve le logo du haut de page de la feuille du devis
3) la réf de la couleur de l'onglet puisse être demandé lors de la création de la copie
Merci pour votre aide
VinceGR🙂
 

Pièces jointes

Trier par date Trier par votes
Re : copie d'onglet mais garder formule dans colonne

bonjour job75,
merci pour votre aide
je viens d'essayer le fichier joint et je vous envoie avec mes souhaits.
merci d'avance
VinceGr
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : copie d'onglet mais garder formule dans colonne

Re,

Alors c'est très facile :

Code: 
        'enlever les lignes sans valeurs en colonne D
        For i = 15 To .Columns("B").Find("RECAPITULATION*", LookIn:=xlFormulas).Row - 2
          If .Cells(i, "D") = "" Then Set plage = Union(.Rows(i), IIf(plage Is Nothing, .Rows(i), plage))
        Next
        If Not plage Is Nothing Then plage.Delete

Mais les cellules nommées seront supprimées => #REF!...

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copie d'onglet mais garder formule dans colonne

RE job75,
je viens d'essayer mais il me supprime aussi l entete de la famille >0 donc pas bon !!!!
et dans la récap il faudrait supprimé la ligne ou #REF!
merci
VinceGr
 
Vote positif 0 Vote négatif
Re : copie d'onglet mais garder formule dans colonne

Re,

Je pense que cette solution devrait convenir :

Code: 
        'enlever les lignes sans valeurs en colonne D
        For i = 16 To .Columns("B").Find("RECAPITULATION*", LookIn:=xlFormulas).Row - 2
          If .Cells(i, "B") <> "" Then
            Set titre = .Rows(i & ":" & i + 1)
            i = i + 1
          ElseIf .Cells(i + 3, "B") <> "" Then
            If .Cells(i + 1, "F") = 0 Then _
              Set plage = Union(titre, .Rows(i & ":" & i + 2), IIf(plage Is Nothing, .Rows(i & ":" & i + 2), plage))
            i = i + 2
          ElseIf .Cells(i, "D") = "" Then
            Set plage = Union(.Rows(i), IIf(plage Is Nothing, .Rows(i), plage))
          End If
        Next
        On Error Resume Next
        plage.Delete
        .Columns("C").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete

J'ai dû supprimer les chapitres VIII et IX, le fichier compressé était trop lourd.

Bien noter :

- j'ai fait en sorte qu'il y ait toujours une ligne vide entre un sous-total et le titre suivant

- j'ai aussi redéfini le nom "aeriens" qui était erroné.

Edit : ah mais ça passe tout juste avec les chapitres VIII et IX ! Prenez donc la version (4).

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : copie d'onglet mais garder formule dans colonne

Bonjour VINCEGR,

La macro précédente repérait les titres des chapitres par le fait qu'ils contenaient un texte.

Ce n'est pas bon, car il ne fallait plus rien écrire en colonne B...

Cette macro repère les titres par le fait qu'il y a une bordure supérieure :

Code: 
        'enlever les lignes sans valeurs en colonne D
        For i = 16 To .Columns("B").Find("RECAPITULATION*", LookIn:=xlFormulas).Row - 2
          If [COLOR="Red"].Cells(i, "B").Borders(xlEdgeTop).LineStyle <> xlNone[/COLOR] Then
            Set titre = .Rows(i & ":" & i + 1)
            i = i + 1
          ElseIf [COLOR="red"].Cells(i + 3, "B").Borders(xlEdgeTop).LineStyle <> xlNone[/COLOR] Then
            If .Cells(i + 1, "F") = 0 Then _
              Set plage = Union(titre, .Rows(i & ":" & i + 2), IIf(plage Is Nothing, .Rows(i & ":" & i + 2), plage))
            i = i + 2
          ElseIf .Cells(i, "D") = "" Then
            Set plage = Union(.Rows(i), IIf(plage Is Nothing, .Rows(i), plage))
          End If
        Next
        On Error Resume Next
        plage.Delete
        .Columns("C").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copie d'onglet mais garder formule dans colonne

Re,

Une variante qui repère plus simplement les sous-totaux :

Code: 
        'enlever les lignes sans valeurs en colonne D
        For i = 16 To .Columns("B").Find("RECAPITULATION*", LookIn:=xlFormulas).Row - 2
          If .Cells(i, "B").Borders(xlEdgeTop).LineStyle <> xlNone Then
            Set titre = .Rows(i & ":" & i + 1)
            i = i + 1
          ElseIf [COLOR="Red"].Cells(i + 1, "F").Formula Like "=SUM*"[/COLOR] Then
            If .Cells(i + 1, "F") = 0 Then _
              Set plage = Union(titre, .Rows(i & ":" & i + 2), IIf(plage Is Nothing, .Rows(i & ":" & i + 2), plage))
            i = i + 2
          ElseIf .Cells(i, "D") = "" Then
            Set plage = Union(.Rows(i), IIf(plage Is Nothing, .Rows(i), plage))
          End If
        Next
        On Error Resume Next
        plage.Delete
        .Columns("C").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : copie d'onglet mais garder formule dans colonne

RE job75,
je viens de tester nouvelle formule qui me convient parfaitement et améliore la présentation des devis plus simplement.
je vous remercie encore pour votre aide.
bonne journée
VinceGr 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
XL 2013 excel Copier coller feuille avec tout le contenue
Réponses
4
Affichages
304
Bodin44
B
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
511
sousou
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
1 K
TooFatBoy
M
  • Résolu(e)
Microsoft 365 Somme d'une donnée spécifique, dans une Colonne spécifique dans chaque Onglet
Réponses
2
Affichages
275
Lolote83
L
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
644
Jaykerz
J
  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
407
nightswan
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
862
Max
M
  • Question Question
XL 2021 Références "Relatives" Graphique
Réponses
2
Affichages
272
vgendron
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
881
Max
M
  • Question Question
XL 2016 rajouter une colonne en macro
Réponses
0
Affichages
254
richardlion
  • Question Question
XL 2016 colonnes automatique
Réponses
0
Affichages
390
richardlion
J
  • Question Question
XL 2013 Boucle : copie valeur d'une table dans un autre onglet jusqu'à cellule non vide
Réponses
4
Affichages
565
jerome91
J
R
  • Question Question
XL 2016 "#valeur!" dans ligne et colonne et camemberts
Réponses
7
Affichages
536
Rikko14
R
R
  • Résolu(e)
Microsoft 365 Aide formule somme si textes retrouvés dans cellules d'une colonne avec plusieurs conditions
Réponses
8
Affichages
516
richard31
R
A
  • Question Question
Microsoft 365 INDEX+EQUIV dont le resultat duplique les lignes par erreur
Réponses
5
Affichages
478
aeca
A
P
  • Question Question
Microsoft 365 Joindre un fichier PDF dans un mail + inclure date envoi du mail dans un autre onglet
Réponses
1
Affichages
672
kiki29
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
943
marie3107
M
  • Question Question
Microsoft 365 Créer autant d'onglet que de commune dans ma base principale
Réponses
14
Affichages
943
job75
N
  • Question Question
XL 2016 Formule entre onglet et calendrier
2 3
Réponses
32
Affichages
2 K
Nicolas37
N
L
  • Résolu(e)
XL 2021 Appliquer plusieurs filtres numériques "entre" sur une colonne excel
Réponses
6
Affichages
775
Cousinhub
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…