Discussion :

[HeyFoul]

Bonjour,
Je débute sur VBA, j'ai créé un planning mensuel, dans une "plage" que j'ai prédéfini, je souhaite qu'apparaisse le formulaire, pour le moment tout va bien. Mais j'ai un problème avec le bouton "valider". En effet, je veux que dès lors que je sélectionne une cellule au hasard de la "plage" (plage = E13:AH58) je puisse valider ce que j'y aurais inscrit, seulement sur cette cellule.
Donc premièrement, programmer le bouton valider.
Deuxièmement, faire en sorte que le résultat s'affiche seulement sur la cellule sélectionné.

Ci-joint, mon tableau pour mieux comprendre.

Merci pour vos retours :-)

[Thautheme]

Bonjour Heyfoul, bonjour le forum,

Pas sûr d'avoir bien compris... Essaie comme ça :

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
Private Sub UserForm_Initialize()
If ActiveSheet.Name <> "Calendrier_mensuel_2018" Then End 'pour évier de le lancer sur une autre onglet
If Application.Intersect(ActiveCell, Range("E13:AH58")) Is Nothing Then End 'pour éviter de valider une cellule en dehors de la plage
Me.TextBox_Initiales.MaxLength 'limite le nombre de caractères à 2
For I = 1 To 4
    Liste_déroulante.AddItem Sheets("Légende").Cells(I, 1)
Next
End Sub
 
Private Sub Valider_la_saisie_Click()
Dim LI As Integer 'déclare la variable LI (Ligne)
Dim COUL As XlRgbColor 'déclare la variable COUL (COULeur)
 
If Me.Liste_déroulante.Value <> "" Then 'condition : si la LitBox est renseignée
    LI = Me.Liste_déroulante.ListIndex + 1 'définit la ligne LI
    COUL = Sheets("Légende").Cells(LI, 1).Interior.Color 'récupère la couleur COUL
Else 'sinon
    COUL = RGB(255, 255, 255) 'couleur blanche
End If 'fin de la condition
'condition : si "Oui" au message
If MsgBox("Confirmez-vous l’insertion cet élément  ?", vbYesNo, "Demande  de confirmation d’ajout ") = vbYes Then
    With ActiveCell 'prend en compte la cellule active
        .Value = TextBox_Initiales.Value 'renvoie les initiale
        .Interior.Color = COUL 'colore avec la couleur COUL
        On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
        .Comment.Delete 'supprime un éventuel ancien commentaire (génère une erreur si la cellule n'en contient pas
        .AddComment 'ajoute un commentaire
        .Comment.Text Text:=Me.TextBox_Notes.Value 'ajoute la Note en commentaire
        .Comment.Visible = False 'masque le commentaire (affiché uniquement au passage de la souris)
    End With 'fin de la proise en compte de la cellule active
End If 'fin de la condition
Unload Me 'vide et ferme l'UserForm en cours
End Sub

[HeyFoul]

Bonjour Thautheme,

C'est exactement ce que je voulais.
Merci beaucoup :-)