Discussion :

[royal cruiser]

Bonjour,

je suis novice sur excel et je recherche une solution pour inséré des lignes selon une valeur

Voila je viens de refaire un tableau qui explique un peu mieux mes attentes

l'idée est de renseigner la feuil 1 a partir des cellules H8,H9 et H10 a laide du menu déroulant,
un choix min est déjà renseigner dans les cellules

Ex chambre:

choix comme sur le tableau le choix étant 4

il faut 2 chambres en cellule D 19 et 1 chambres a inséré en dessous en ligne 20 et idem en ligne 21 en conservant le choix pour les menus déroulants de chaque ligne

je vous remercie par avance de votre implication a mon projet

[hyperion13]

Salut
A insérer dans le module de votre feuille1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub InsérerLigne()
'cliquez sur une cellule à partir de C20 puis exécutez la macro
    Cells(ActiveCell.Row + 1, 3).Select
    Selection.EntireRow.Insert
    Cells(ActiveCell.Row, 3) = Cells(ActiveCell.Row - 1, 3)
    Cells(ActiveCell.Row, 5) = Cells(ActiveCell.Row - 1, 5)
    Cells(ActiveCell.Row, 6) = Cells(ActiveCell.Row - 1, 6)
End Sub

[royal cruiser]

Bonjour,

je reviens vers vous car j ai trouve une formule qui correspond a certaine de mes attentes mon soucis et sur le bouton du menu déroulant que je n arrive pas a renseigner

quelqu’un a t il une idée ci joint le tableau pour mieux comprendre
la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub add_rows()
ligne = 19
nbre = ActiveCell.Value
Range("D" & ligne).Select
 
Rows(ligne).Copy
Rows(ligne + 1).Insert Shift:=xlDown
Cells(ligne + 1, 1).Value = nbre + 1
 
End Sub
 
Sub supp_rows()
dl = Range("A65536").End(xlUp).Row
    If dl <= 19 Then
    MsgBox "Vous ne pouvez pas supprimer une ligne !" & Chr(10) & Chr(13) _
    & "Aucune nouvelle ligne n'a été ajoutée."
    Exit Sub
    End If
Rows(dl).Delete
 
End Sub

Merci de votre aide