Insérer ligne vba

Will_333 Messages postés 5 Statut Membre -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

je suis un déboutant sur excel, et j'aimerais avoir un peu d'aide pour faire du VBA :)

J'explique,
Dans mon classeur, j'ai une cellule avec une liste déroulante de choix. Serais-t-il possible qu'une ligne identique à celle-ci ce rajoute automatiquement lorsque la cellule avec la liste soit rempli ?

merci d'avance de votre aide ! (:

3 réponses

  1.
    via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour

    Pas compris ce que tu veux !

    Ajouter une ligne ? Où ? laquelle ? Pour quoi faire ?

    Si tu post un exemple de ton fichier allégé et anonymé sur cjoint.com et que tu indiques dans un prochain message le lien fourni et des explications précises de ce que tu cherches à obtenir, on pourra peut être t'aider

    Cdlmnt
    0
  3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour,

    Lorsque tu joins un classeur, tu serais aimable de présenter toutes les feuilles en visible

    et sans explication de ta part comme promis (briévement: ca tu peux le dire !)
    je n'ai pas compris l'utilité de ta macro dans Thisworkbook !!!

    Dis toi bien que nous n'avons que ce que tu écris pour essayer de t'aider

    dans le module feuille "estimation" 

    Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address = "$D$90" Then 
     derlig = Columns("D").Find("*", , , , , xlPrevious).Row 
     Cells(derlig, "D").Resize(1, 9) = Range("D90:L90").Value 
End If 
End Sub


    et évidemment cette macro déclenche celle de thisworkbook qui désactive le déclenchement par événement (enableevents=false) mais apparemment ne le réactive pas (enableevents=true)si bien que le macro ci dessus ne peut se déclencher
    Michel
    0
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      errata
      remplacer
      Cells(derlig, "D").Resize(1, 9) = Range("D90:L90").Value
      par
      Cells(derlig+1, "D").Resize(1, 9) = Range("D90:L90").Value
      0