Discussion :

[Nico451]

Bonjour,

je rempli un fichier avec un userForm4, où je rentre plusieurs information, l'une d'elle est un numéros de page.

Je voudrais que dans mon textbox4 s'affiche le dernier numéros.

Petite particularité c'est liée à un numéros de chapitre.

Colonne E = Numéros de chapitre
Colonne F = Numéros de folio.

Je voudrais aussi si j'utilise un numéros déjà utilisé et que le checkbox1 soit activé que la ligne se mette au bon endroit et que les numéros qui suivent se renumérote.

Pour écrire ma ligne dans mon fichier Excel j'ai un commandbutton4 qui écrit sur la dernière ligne vide.

Dans mon combobox1 il y a les numéros de chapitre qui se mette.

Je ne peux pas partager mon fichier désolé.

Merci du coup de main

[tony76]

Je voudrais que dans mon textbox4 s'affiche le dernier numéros.

Bonjour,

Tu pourrais précisé ? quelle numéro, ou et ce numéro ?

[Menhir]

Colonne E = Numéros de chapitre
Colonne F = Numéros de folio.

Et le numéro de page, il est où ?

[Nico451]

Bonjour,

Je vais essayé d'être plus clair.

Colonne A : j'ai un numéros d'ordre
Colonne B : Titre
Colonne C : colonne masqué
Colonne D : nom général qui se répète sur toute les lignes
Colonne E : Numéros de chapitre
Colonne F : Numéros de page

Je commence mon tableau à la ligne 11.

Mon User forme me permet de me remplir mon fichier plus facilement car je vais jusqu'as la colonne AD mais si je peux rajouter une ligne, ça vas le faire faire partout

Quand je choisi un chapitre dans ma combobox1 je voudrais regarder dans la colonne E, quand il trouve le chapitre il faut regarder les numéros dans la colonne F déjà prit est proposer le dernier numéros non utilisé pour le chapitre sélectionner.

Ensuite si j'ai une modification si il me manque dans ce que j'ai fait, je voudrai pouvoir insert une ligne avec le numéros de page que j'ai choisi et que les numéros de page qui suivent se renumérote ainsi que le numéros d'ordre de la colonne A, et pouvoir choisir ma ligne soit en la rentrant dans le textbox19 soit avec le spinbutton1.

[BENNASR]

bonsoir
à mon modeste avis et au lieu d'insérer des lignes et renuméroté chaque fois , réservez cette page comme une base de données et insérer dans un autre feuille un tableau croisé dynamique avec des segments et tu aura tous ce que tu cherches avec un superbe présentation

[BENNASR]

pour le recherche et modification voila un exemple (parmi d'autre ) à adapter pour ton cas

Bonne continuation

[Menhir]

Je voudrais que dans mon textbox4 s'affiche le dernier numéros.

Code :

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

Textbox4.Value = Application.WorksheetFunction.Max(Columns(6))

[Nico451]

Merci BENNASR, il y a une partie que je vais pouvoir récupérer.

Menhir, c'est vis à vis de la combobox1 qui vas chercher dans la colonne E les numéros de page.

BENNASR, je peux pas faire ce que tu me dit :

à mon modeste avis et au lieu d'insérer des lignes et renuméroté chaque fois , réservez cette page comme une base de données et insérer dans un autre feuille un tableau croisé dynamique avec des segments et tu aura tous ce que tu cherches avec un superbe présentation

Mon fichier Excel doit garder la même composition, car il est utilisé par un outil qui qui sait ou sont toutes les infos. c'est pour ça que je doit couvrir tous les cas de figure car je ne serait pas le seul à l'utiliser, plein de contrainte je sais.

J'ai déjà fait pas mal de choses car, j'ai fait pour crée les fichier de configuration et de modification pour l'outil. la c'est un plus pour gagner du temps et gagner en qualité.

Une fois que j'aurais fait ce code, si je repart d'un document déjà fait, il suffira de faire un rechercher et remplacer par, puis rajouter et supprimer des pages.

Il y as après un petit bonus si j'arrive à tous faire. mais c'est pas encore gagner.

Merci du coup de main.

Pour info mon code que pour l'UserForm4 celui qui me pose problème je suis à 866 lignes.

[Menhir]

Colonne E : Numéros de chapitre
Colonne F : Numéros de page

Menhir, c'est vis à vis de la combobox1 qui vas chercher dans la colonne E les numéros de page.

Il va falloir que tu sois un peu cohérent dans tes explications : les numéros de page sont-ils dans la colonne E ou dans la colonne F ?

Tu devrais aussi indiquer quelle version d'Excel tu utilises.

[Nico451]

F numéros de page
E numéros de chapitre

Excel 365

[Menhir]

Code :

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

Textbox4.Value = Application.WorksheetFunction.Maxifs(Columns(6), Columns(5), combobox1.Value)

[Nico451]

Menhir j'ai testé, ma ça me remonte 0 malgré que j'ai 1, 2. si le format est 001, 002. Ca pose problème?

[Menhir]

Menhir j'ai testé, ma ça me remonte 0 malgré que j'ai 1, 2. si le format est 001, 002. Ca pose problème?

Si les colonnes E et F contiennent du texte et qu'en plus le texte est différent de ce qui se trouve dans les box, c'est sûr que ça aura du mal à fonctionner.

Mais je sens qu'il va falloir te tirer laborieusement les vers du nez pour obtenir au compte-goutes les données nécessaires.
Je vais donc m'arrêter là.
Bonne chance pour la suite.

[Nico451]

Menhir dit moi les information qu'il te manque. Je ne sais pas comment me sortir de mon code

Les numéros de pages sont du style 00n
Le numéro de chapitre sont identique que dans le combobox1 00, 01, etc...


D'autre part il faut que je regarde le numéros mis dans le textbox4 et le combobox1, si j'ai la même combinaison dans mon tableau, je mets un message pour l'opérateur, savoir si il veux l'insérer, si oui, il faut insert la ligne au bon endroit et renuméroté le numéros d'ordre qui est dans la colonne A du style 000n, et les numéros de page 00n liée au numéros de chapitre.

Merci d'avance.

Voici comment j'ai fait 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
17
 
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 remettre les infos dans les textbox et combobox que j'ai dans mon userform4

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
 
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

Pour initialiser mon compteur

Code :

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

1
2
Private Sub CommandButton3_Click()
Compteurs = "0000"

pour l'incrémenter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton4_Click()
Dim k As Integer
 
    k = Compteurs + 1
    Compteurs = Format(k, "0000")
 
    If TextBox4.Value < 10 Then
        Valeur = Format(TextBox4.Value, "000")
    Else
        Valeur = TextBox4.Value
    End If