Insérer ligne vba

Fermé
Will_333 Messages postés 5 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 23 mars 2013 - 15 mars 2013 à 21:45
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 20 mars 2013 à 08:33
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 14502 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 9 décembre 2024 2 736
16 mars 2013 à 03:28
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 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 23 mars 2013
19 mars 2013 à 23:56
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié par michel_m le 20/03/2013 à 07:39
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié par michel_m le 20/03/2013 à 08:34
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