Bonjour,
j'ai réalisé ce code dans le but d'entrer la valeur d'un InputBox dans une plage sélectionnée par un autre InputBox.

ce code fonctionne correctement, mais je souhaiterais récupérer directement la valeur saisie dans l'Input Box sans la copier dans une cellule.
il y a surement plus simple mais je bloque.
merci de votre aide



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
'Saisie d'un événement dans une plage sélectionnée
Sub saisie_evenement()
    'déverrouillage de la feuille
    ActiveSheet.Unprotect ("MDP")
    'suppression des alertes
    Application.DisplayAlerts = False
    'ouvre un input pour saisie de l'evenement
    evenement = InputBox("Entrez l'événement.", "Evénement.")
    'récupérer la valeur de l'Inputbox dans la cellule A1
    Sheets("feuil1").Range("a1").Value = evenement
    'ouvre un input pour sélectionner de la plage
    X = Selection.Address
    Set Y = Application.InputBox(prompt:="sélectionnez une plage de cellules", Type:=8)
    Range(X).Copy
    Y.PasteSpecial Paste:=xlPasteValues
    'copie dans la plage sélectionnée de la valeur de la cellule A1
    Sheets("feuil1").Range("a1").Copy Selection
'   fusionde la plage
    Selection.Merge
    'texte centré
    Selection.HorizontalAlignment = xlCenter
With Selection.Interior
        'fond de cellule en jaune
        .Color = RGB(255, 255, 0)
End With
 
Application.DisplayAlerts = True
Application.CutCopyMode = False
'protection
    ActiveSheet.Protect Password:=("MDP") ', DrawingObjects:=True, Contents:=True, Scenarios:=True _
       ' , AllowFiltering:=True
 End Sub