Insérer une ligne en dessous d'un contenu précis

Insérer une ligne en dessous d'un contenu précis - VB/VBA/VBS - Programmation

Marsh Posté le 21-11-2014 à 21:55:49    

Bonjour,

 

J'ai très peu de connaissance en VBA. J'ai quand même réussi à réaliser deux formulaires (USF). En revanche, je suis actuellement complètement bloqué et je ne trouve pas de solution sur internet. Je fait donc appel à votre aide :)

 

Je m'explique. Mon fichier est un tableau qui permet de suivres des projets. A chaque projet son attribués des sous projets.

 

PROJET 1
   SOUS PROJET 1
   SOUS PROJET 2
PROJET 2
   SOUS PROJET 1

 

J'ai un formulaire (USF) qui permet d'ajouter les projets. Celui là il est opérationnel et fonctionne très bien. Je bloque pour réaliser le formulaire pour ajouter un sous projet.
Dans ce formulaire, j'ai créer une liste déroulante (ComboBox) afin de choisir le projet auxquel appartient le sous projet. Ainsi, ce que je souhaite, c'est un code VBA qui permet d'ajouter les données du formulaire dans une nouvelle ligne. Cette nouvelle ligne s'ajouterai juste en dessous de la ligne du projet sélectionné dans la liste déroulante.

 

L'idée c'est de pouvoir insérer un Sous projet à n'importe quel moment. Car les formulaires complète de défaut la ligne suivante à chaque nouvel validation.

 

J'ai tenté Rows(Lign = ComboBox1.ListIndex + 3).Insert  sans résultat...

 


Voici mon code pour l'USF "sous projet"

 
Code :
  1. Private Sub UserForm_Initialize()
  3. ComboBox2.List = Array("Investigation", "En cours", "Clôturer" )
  6. With Sheets("Sheet1" )
  8. For n = 2 To .Range("C65535" ).End(xlUp).Row
  9. ComboBox3.AddItem .Cells(n, 3).Value
  11. Next n
  13. End With
  15. End Sub
  18. Private Sub CommandButton1_Click()
  19. If TextBox5 = "" Or TextBox2 = "" Then
  20. MsgBox ("Vous devez remplir les champs" )
  21. Exit Sub
  22. End If
  23. derligne = Range("B65535" ).End(xlUp).Row + 1
  24. Cells(derligne, 2) = ComboBox2
  25. Cells(derligne, 4) = TextBox5
  26. Cells(derligne, 5) = TextBox2
  27. Cells(derligne, 6) = TextBox3
  28. Cells(derligne, 7) = TextBox4
  29. Cells(derligne, 8) = DTPicker1
  30. Cells(derligne, 9) = DTPicker2
  31. Unload Me
 

Merci de votre aide


Message édité par ludo1867 le 22-11-2014 à 13:39:33
Reply

Marsh Posté le 21-11-2014 à 21:55:49   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed