Discussion :

[hylis]

Bonjour à tous,

Je sais qu'il y a déjà une conversation à ce sujet :
http://www.developpez.net/forums/d14...-d-formulaire/

Malheureusement je n'arrive pas à traduire ces codes selon mes besoins (débutante encore en VBA )

J'ai un userform de cette forme, voir ci-dessous :



Qui affiche des enregistrements selon les informations suivantes :



Et voici l'onglet "Evénements" de référence des enregistrements :



J'ai déja réaliser plusieurs code, pour l'affichage et pour fermer l'userform :

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
 
Private Sub UserForm_Initialize()
 
Dim J As Long
 
    Dim I As Integer
 
    ComboBox1.ColumnCount = 1
 
    ComboBox1.List() = Array("Obligation", "Projet", "Communication Equipe", "Divertissement", "Autre")
 
    ComboBox2.ColumnCount = 2 
 
    ComboBox2.List() = Array("Toute l'équipe", "Comptabilité Fournisseurs", "Comptabilité Générale", "Trésorerie")
 
    ComboBox3.ColumnCount = 3 
 
    ComboBox3.List() = Array("Toutes sociétés", "237", "324")
 
    Set Ws = Sheets("Evénements") 
 
    For I = 1 To 6
 
         Me.Controls("TextBox" & I).Visible = True
 
    Next I
 
 
 End Sub

Code :

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

1
2
3
4
5
Private Sub CommandButton3_Click()
 
    Unload Me
 
End Sub

Ainsi, voici ma demande,

je recherche deux codes :

le premier qui me permettrait de modifier les informations de l'userform en cliquant sur "CommandButton2"

le second qui me permettrait de supprimer l'enregistrement de la colonne A jusqu'à la colonne N dans l'onglet "Evénements", en cliquant sur "CommandButton4"


J'espère avoir été assez clair pour la compréhension !

De plus j'ajoute le code pour l'affichage des événements :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 
Dim WsEvent As Worksheet
Dim RowEvent As Single
Dim rech1 As String
Dim rech2 As String
Dim rech3 As String
Dim rech4 As String
Dim rech5 As String
Dim rech6 As String
Dim rech7 As String
Dim rech8 As String
 
If Target.Row < 6 Then Exit Sub
If Target.Row > 25 Then Exit Sub
If Target.Column < 4 Then Exit Sub
If Target.Column > 64 Then Exit Sub
 
Set WsEvent = Sheets("Evénements")
 
With WsEvent
    'Fais une recherche dans la colonne 3 de la feuille Evenement de la valeur de la cellule sur laquelle tu as RightClic
    RowEvent = .Columns(2).Find(Target.Value, , , , xlByColumns, xlPrevious).Row
 
    'Si RowEvent renvoie un truc cohérent (une ligne entre 2 et 199), je récupère la valeur des colonne 3/4/5/6/7 dans les variables rech1/2/3/4/5
    If RowEvent > 1 And RowEvent < 200 Then
        rech1 = .Cells(RowEvent, 5).Value
        rech2 = .Cells(RowEvent, 6).Value
        rech3 = .Cells(RowEvent, 7).Value
        rech4 = .Cells(RowEvent, 8).Value
        rech5 = .Cells(RowEvent, 9).Value
        rech6 = .Cells(RowEvent, 4).Value
        rech7 = .Cells(RowEvent, 10).Value
        rech8 = .Cells(RowEvent, 11).Value
 
        'Affiche le msgbox
        If MsgBox("Catégorie : " & rech1 & vbCrLf & "Action : " & rech2 & vbCrLf & "Commentaire : " & rech3 & vbCrLf & "Service : " & rech4 & vbCrLf & "Société(s) : " & rech5 _
        & vbCrLf & vbCrLf & "Voulez-vous modifier cet évènement ?", vbDefaultButton1 + vbYesNo) = vbYes Then
 
        UserForm2.TextBox6.Value = RowEvent
        UserForm2.ComboBox1.Value = rech6
        UserForm2.TextBox1.Value = rech1
        UserForm2.ComboBox2.Value = rech4
        UserForm2.TextBox2.Value = rech2
        UserForm2.ComboBox3.Value = rech5
        UserForm2.TextBox3.Value = rech3
        UserForm2.TextBox4.Value = rech7
        UserForm2.TextBox5.Value = rech8
        UserForm2.Show
 
 
   End If
 
    Else
        MsgBox "Aucun évènement est enregistré à cette date"
    End If
End With

Merci d'avance pour vos réponses

Bonne journée à tous

[Nico Chg]

Bonjour,

Les informations que tu souhaite modifier/supprimer, tu veux les repérer grâce aux types d'événements ?

Quand tu veux supprimer un événements, tu souhaite décaler toutes les cellules vers le haut, afin de ne pas laisser une ligne blanche, ou peu importe ?

[hylis]

Bonjour Nico Chg,

(décidément tu m'aides beaucoup sur mon projet)

Afin de t'éclairer, je t'informe sur le context :

voici le planning final :


Puis lorsque l'on clique droit sur l'un cellule un message s'affiche :



Si on clique sur oui, alors l'userform s'affiche



Je souhaite que la modification/suppression se réalise en fonction du numéro de l'événement, soit ici "12", qui se trouve dans la colonne "B" de l'onglet "Evénements"

et effectivement, j'aimerai également que les lignes se décalent vers le haut lors d'une suppression d'un événement.

J'espère t'avoir aider sur les explications de mon problème

Merci encore de prendre du temps pour m'aider

[Nico Chg]

Modifier l'événement de devrait pas poser de problème, je me pose juste une question : Il s'agit bien de l'événement lui même que tu veux modifier, ou de la valeur dans le planning ?

[hylis]

L'évènement lui même, car il se fera automatiquement dans le planning par la suite

[Nico Chg]

N'est ce pas dangereux ? si tu modifie l'événement, ça va modifier également toutes les autres occurrences du planning ! Mais bon, c'est ton projet, tu sais mieux que moi ce qui doit être fait

Pour modifier une ligne, c'est assez facile :

Code :

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

1
2
3
4
5
6
ModifLine = Cdbl(Me.Textbox6.value)
With Worksheets("MaFeuille")
    .cells(ModifLine, 4) = Me.Combobox1.value
    '...
    'Je n'ai pas regardé toutes les colonnes à modifier, charge à toi de le faire !
End with

Pour supprimer :

Code :

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

1
2
3
4
ModifLine = Cdbl(Me.Textbox6.value)
With Worksheets("MaFeuille")
    .range("A" & ModifLine & ":N" & ModifLine).Delete Shift:=xlUp
End with

Tu peux essayer quelque chose comme ça.

[hylis]

Ca marche c'est parfait ! encore merci !

J'ai rajouté quelques info en plus dans le code pour qu'il soit un peu plus au point !

Merci encore pour ta contribution !

J'ai une dernière question, penses tu qu'avec différentes cases à cocher, l'on peut modifier l'apparence du planning ?

Merci

[Nico Chg]

Tout dépend de ce que tu veux modifier

[hylis]

je pense avoir trouvé !

Faire des mises en forme conditionnelle en fonction des cases à cocher !

Merci vraiment pour ton aide !

A bientot