Devis automatisé Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
grisan29
Membre impliqué
Membre impliqué
Messages : 1'265
Inscrit le : 26 janvier 2010
Version d'Excel : 2013 pro FR

Message par grisan29 » 18 mai 2016, 16:22

bonjour B3NK3I

J'ai rajouter des lignes de code a contôler si ca te correspond
Sub Insertion_Produit()
        ''Sélection de la dernière ligne du tableau
      ' Range("A3").CurrentRegion.Rows(Range("A3").CurrentRegion.Rows.Count).Copy
       'Ajout de la copie à la suite du tableau
       'Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
       
    Dim lig As Integer

    With Sheets("TEST")
       
       lig = .Range("A" & Rows.Count).End(xlUp)(2).Row
        If lig < 4 Then lig = 4

        'insertion d'une ligne

       
         'copie la ligne de dessus avec ses formats
              .Range("A" & lig - 1 & ":H" & lig - 1).Copy
                'restitue la ligne a chaque demande
              .Range("A" & lig).Insert xlShiftDown
                'nettoie la ligne insérée
              .Range("A" & lig & ":H" & lig).ClearContents
                             
    'la cellule de la colonne F prend la formule type =B3/E3
      .CELLS(lig, "F").FormulaR1C1 = "=RC[-4]/RC[-1]"
     'la cellule de la colonne G prend la formule type =E3/C3
      .CELLS(lig, "G").FormulaR1C1 = "=RC[-2]/RC[-4]"
     'la cellule de la colonne H prend la formule type =F3+G3
      .CELLS(lig, "H").FormulaR1C1 = "=RC[-2]+RC[-1]"
      
    'End If
    End With
    End Sub


ce code écrira des lignes indéfiniment soit le milion de ligne d'excel 2013
B
B3NK3I
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 17 mai 2016
Version d'Excel : 2007

Message par B3NK3I » 19 mai 2016, 08:24

Merci, ton code fonctionne !

Je reviens vers vous si je rencontre d'autres problèmes ou si j'ai bien avancé sur le sujet

Cordialement,
Avatar du membre
grisan29
Membre impliqué
Membre impliqué
Messages : 1'265
Inscrit le : 26 janvier 2010
Version d'Excel : 2013 pro FR

Message par grisan29 » 19 mai 2016, 12:08

Bonjour

heureux que le code fonctionne, mais je ne continuerai pas sans un "bonjour" au début de chaque post
mais il vaux mieux clore celui-ci et en ouvrir un autre car ce sera forcément une autre question donc cette question est résolu et le post avec
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • N° de devis automatisé
    par Twister_Tkd » 17 juillet 2017, 15:46 » dans Excel - VBA
    7 Réponses
    312 Vues
    Dernier message par Twister_Tkd
    18 juillet 2017, 09:54
  • Feuille de DEVIS automatisé
    par elec » 9 février 2017, 00:15 » dans Excel - VBA
    35 Réponses
    1005 Vues
    Dernier message par elec
    11 février 2017, 19:27
  • Création devis automatisé
    par Tapdogs16 » 23 octobre 2019, 17:54 » dans Excel - VBA
    1 Réponses
    91 Vues
    Dernier message par Theze
    23 octobre 2019, 20:30
  • tableaux de devis automatisé
    par nico59 » 8 septembre 2016, 15:59 » dans Excel - VBA
    1 Réponses
    389 Vues
    Dernier message par nico59
    12 septembre 2016, 19:37
  • Devis
    par AMAU » 29 janvier 2019, 19:21 » dans Excel - VBA
    5 Réponses
    253 Vues
    Dernier message par AMAU
    1 février 2019, 17:43
  • automatisé
    par abdernino » 16 juin 2018, 13:55 » dans Excel - VBA
    33 Réponses
    653 Vues
    Dernier message par dhany
    21 juin 2018, 19:45