1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2016 Rajout de lignes

Discussion dans 'Forum Excel' démarrée par Grégf, 12 Janvier 2018.

  1. Grégf

    Grégf XLDnaute Junior

    Inscrit depuis le :
    22 Avril 2017
    Messages :
    50
    "J'aime" reçus :
    0
    Travail/Loisirs :
    Création formats publicitaires web et print
    Habite à:
    Montpellier
    Utilise:
    Excel 2016 (PC)
    Bonjour,

    Je voudrais associer une macro a un bouton (déjà créé) pour rajouter une ligne en fin de tableau (dans les feuilles janvier, février, mars et avril) tout en gardant les formules.
    Je n'y connais en VBA, mais j'ai essayé plusieurs macros trouvé sur le forum mais ça ne fonctionne pas comme je veux.
    Je joints le tableau en espérant avoir été assez clair.

    Merci, cordialement.
     

    Pièces jointes:

    • SUIVI.xlsm
      Taille du fichier:
      109 Ko
      Affichages:
      14
  2. JBARBE

    JBARBE XLDnaute Barbatruc

    Inscrit depuis le :
    26 Novembre 2008
    Messages :
    2635
    "J'aime" reçus :
    102
    Sexe :
    Masculin
    Utilise:
    Excel 2007 (PC)
    Bonjour à tous,
    Peut-être ceci dans la feuille AVRIL !
    Bonne journée !
     

    Pièces jointes:

  3. Grégf

    Grégf XLDnaute Junior

    Inscrit depuis le :
    22 Avril 2017
    Messages :
    50
    "J'aime" reçus :
    0
    Travail/Loisirs :
    Création formats publicitaires web et print
    Habite à:
    Montpellier
    Utilise:
    Excel 2016 (PC)
    Merci, mais le problème c'est que ça me copie la ligne 8.
    Il faudrait que ça me copie la 9 ou peut-être la dernière quand elle est vide si c'est plus simple ?
    Merci.
     
  4. JBARBE

    JBARBE XLDnaute Barbatruc

    Inscrit depuis le :
    26 Novembre 2008
    Messages :
    2635
    "J'aime" reçus :
    102
    Sexe :
    Masculin
    Utilise:
    Excel 2007 (PC)
    Re,
    Toutes mes excuses pour avoir mal compris!
    Voir post suivant !
     
    Dernière édition: 12 Janvier 2018
  5. JBARBE

    JBARBE XLDnaute Barbatruc

    Inscrit depuis le :
    26 Novembre 2008
    Messages :
    2635
    "J'aime" reçus :
    102
    Sexe :
    Masculin
    Utilise:
    Excel 2007 (PC)
    Re,
    Peut-être ceci si j'ai enfin compris !
    Bonne soirée !
     

    Pièces jointes:

    Grégf aime votre message.
  6. Grégf

    Grégf XLDnaute Junior

    Inscrit depuis le :
    22 Avril 2017
    Messages :
    50
    "J'aime" reçus :
    0
    Travail/Loisirs :
    Création formats publicitaires web et print
    Habite à:
    Montpellier
    Utilise:
    Excel 2016 (PC)
    Bonjour, merci pour le travail !!! Ça ne fonctionnait pas car toujours copie de la ligne 8, mais en bidouillant (je dis bidouillant car je suis plus que nul en code) votre code j'ai réussi à obtenir ce que je voulais.
    Je joints le tableau qui fonctionne pour le mois de février.
    Encore un grand merci pour m'avoir consacré votre temps !
    Cordialement.
     

    Pièces jointes:

  7. JBARBE

    JBARBE XLDnaute Barbatruc

    Inscrit depuis le :
    26 Novembre 2008
    Messages :
    2635
    "J'aime" reçus :
    102
    Sexe :
    Masculin
    Utilise:
    Excel 2007 (PC)
    Bonjour Gréf, tous,
    Ta macro ne marchera pas quand tu vas saisir à la ligne 11 !
    Avec cette macro cela sera mieux !
    Code (Text):
    Option Explicit
    Sub Bouton4_Cliquer()
    Dim i As Long
    For i = 11 To 65536
    If Cells(i, 50) = "" Then
    Rows(i).Insert
    Range(Cells(i - 1, 2), Cells(i - 1, 38)).Copy Cells(i, 2)
    Cells(i, 50) = "X"
    Exit For
    End If
    Next i
    End Sub
    Bonne journée !
     

    Pièces jointes:

    Grégf aime votre message.
  8. Grégf

    Grégf XLDnaute Junior

    Inscrit depuis le :
    22 Avril 2017
    Messages :
    50
    "J'aime" reçus :
    0
    Travail/Loisirs :
    Création formats publicitaires web et print
    Habite à:
    Montpellier
    Utilise:
    Excel 2016 (PC)
    Bonjour et un grand merci, ça fonctionne nickel.
    Par contre j'ai un problème avec les boutons qui m'affichent les couleurs. Je ne vois pas comment y remédier sachant que j'ai affecté la macro couleur uniquement dans les cellules des jours.
    Auriez vous une solution ?
    Encore merci.
    Cordialement.
     
  9. JBARBE

    JBARBE XLDnaute Barbatruc

    Inscrit depuis le :
    26 Novembre 2008
    Messages :
    2635
    "J'aime" reçus :
    102
    Sexe :
    Masculin
    Utilise:
    Excel 2007 (PC)
    Bonjour à tous,
    Il faudrait voir avec la personne qui a conçu les macros dans le module 11 !
    Ce n'est pas toi je pense !
    En effet, chaque programmeur a sa conception de macros différemment !
    Bonne soirée !
     
  10. Grégf

    Grégf XLDnaute Junior

    Inscrit depuis le :
    22 Avril 2017
    Messages :
    50
    "J'aime" reçus :
    0
    Travail/Loisirs :
    Création formats publicitaires web et print
    Habite à:
    Montpellier
    Utilise:
    Excel 2016 (PC)
    Bonjour,
    en effet ce n'est pas moi :( qui ai conçu les macros.
    En attendant merci encore pour ton aide très précieuse.
    Bonne journée, cordialement.
     

Partager cette page