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

via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 751
 
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
Will_333 Messages postés 5 Statut Membre
 
Voici un exemple de fichier !

https://www.cjoint.com/?0Ctx2VYd8T0

J'ai expliqué brièvement ma problématique dans mon classeur ! :)

Merci beaucoup de votre aide ! (:
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
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
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
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