Discussion :

[Nico451]

Bonjour,

Je vais essayé d'être clair. J'ai un fichier Excel, que je ne peux pas modifier le nombre de colonne, de style.

Dans la colonne A j'ai des numéros d'ordre de style "0000" incrémentale jusqu'au bout.

Colonne B le titre de mon document
Colonne C caché
Colonne D nom qui se répète
Colonne E numéros de chapitre de style "00"
Colonne F numéros de page du style "00"
Colonne G à AE d'autre info.

J'ai un UserForm4, dans mon Combobox1 j'ai mon numéro de chapitre qui est récupérer dans un autre fichier Excel que j'importe dans un tableau variant, dans mon Textbox4 je met mon numéros de page 100% manuelle, mon CommandButton4 me permet de mettre mes informations en dernier ligne vide.

Je voudrait quand j'ai mon CheckBox1 coché, et que je clique sur mon CommandButton4, que la ligne se mette à la bonne place en fonction du ComboBox1 et du TaextBox4, et que les numéros de page qui suivent du chapitre se renumérote, et que le numéros d'ordre se mette également à jour.

Et pareil mais dans l'autre sens quand je clique sur mon CommandButton5, et que la ligne choisi dans le Combobox8, la ligne est supprimer(déjà fait), je voudrait également que les numéros de page et les numéros d'ordre se renumérote(Pas fait).

Si possible afficher le dernier numéros de page libre quand le numéros de chapitre est sélectionner dans le combobox1. Sachant que le premier numéros doit être 01.

J'ai un CommandButton1, qui me permet d'enregistrer le document, cette partie est déjà faite.

Merci du coup de main.

[Nico451]

Voila ce que j'ai commencer à faire.

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
22
23
24
25
26
 
Dim Valeur As String
Dim v_Sheet As String
Dim Dernligne As Integer
Dim i As Integer
Dim j As Integer
 
    v_Sheet = "List"
    If CheckBox1 = True Then
        Dernligne = Sheets(v_Sheet).Range("B" & Rows.Count).End(xlUp).Row
        For i = 11 To Dernligne
            If ComboBox1.Value = Range("E" & i).Value Then
                For j = 11 To Dernligne
                    If TextBox4.Value < 10 Then
                        Valeur = Format(TextBox4.Value, "00")
                    Else
                        Valeur = TextBox4.Value
                    End If
                    If Valeur = Range("F" & j).Value Then
                    MsgBox i
                    MsgBox j
                    End If
                Next j
            End If
        Next i
    End If

Pour supprimer ma ligne

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
Dim Dernligne As Integer
 
        If Range("A11") <> "" Then
            If MsgBox("Voulez-vous supprimer la ligne " & NumLigne & " ?", vbYesNo + vbQuestion + vbDefaultButton1, "Supprimer ligne") = vbYes Then
                Rows(NumLigne).Delete
                ComboBox8.Value = ""
                If Range("A11") <> "" Then
                    Dernligne = Range("A" & Rows.Count).End(xlUp).Row
                    If Dernligne <> 11 Then
                        ComboBox8.List = Range("A11:A" & Dernligne).Value
                    Else
                        ComboBox8.List = Range("A11").Value
                    End If
                End If
            End If
        End If

Pour avoir ma ligne de recherche

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub ComboBox8_Change()
Dim plage As Range
Dim Cell As Range
Dim Dernligne As Long
Dim Coderech As String
 
        Coderech = ComboBox8.Value
            With Sheets("List")
                Dernligne = .Range("A" & Rows.Count).End(xlUp).Row
                Set plage = .Range("A11:A" & Dernligne)
                For Each Cell In plage
                    If Cell.Value = Coderech Then
                        TextBox16.Value = .Cells(Cell.Row, 2).Value
                        ComboBox1.Value = .Cells(Cell.Row, 5).Value
                        TextBox4.Value = .Cells(Cell.Row, 6).Value
                        ComboBox7.Value = .Cells(Cell.Row, 8).Value
                        TextBox17.Value = .Cells(Cell.Row, 14).Value
                        TextBox5.Value = .Cells(Cell.Row, 15).Value
                        TextBox6.Value = .Cells(Cell.Row, 16).Value
                        TextBox7.Value = .Cells(Cell.Row, 17).Value
                        TextBox8.Value = .Cells(Cell.Row, 18).Value
                        TextBox9.Value = .Cells(Cell.Row, 19).Value
                        TextBox10.Value = .Cells(Cell.Row, 20).Value
                        TextBox11.Value = .Cells(Cell.Row, 21).Value
                        TextBox12.Value = .Cells(Cell.Row, 22).Value
                        TextBox13.Value = .Cells(Cell.Row, 23).Value
                        TextBox14.Value = .Cells(Cell.Row, 24).Value
                        TextBox15.Value = .Cells(Cell.Row, 25).Value
                        TextBox22.Value = .Cells(Cell.Row, 26).Value
                        ComboBox2.Value = .Cells(Cell.Row, 27).Value
                        ComboBox3.Value = .Cells(Cell.Row, 28).Value
                        ComboBox4.Value = .Cells(Cell.Row, 29).Value
                        ComboBox5.Value = .Cells(Cell.Row, 30).Value
                        ComboBox6.Value = .Cells(Cell.Row, 31).Value
                        NumLigne = Cell.Row
                    End If
                Next Cell
            End With
End Sub

J'ai oublié mon fichier commence à ligne 11