Discussion :

[counterbob]

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

[Thautheme]

Bonsoir CounterBob, bonsoir 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
Sub saisie_evenement() 'Saisie d'un événement dans une plage sélectionnée
Dim evenement As String
Dim Y As Range
 
ActiveSheet.Unprotect ("MDP") 'déverrouillage de la feuille
Application.DisplayAlerts = False 'suppression des alertes
evenement = InputBox("Entrez l'événement.", "Evénement.") 'ouvre un input pour saisie de l'evenement
'ouvre un input pour sélectionner de la plage
Set Y = Application.InputBox(prompt:="sélectionnez une plage de cellules", Type:=8)
Y.Merge 'fusionde la plage
Y.Value = evenement
'texte centré
Y.HorizontalAlignment = xlCenter
With Y.Interior
    .Color = RGB(255, 255, 0) 'fond de cellule en jaune
End With
Application.DisplayAlerts = True
Application.CutCopyMode = False
'protection
ActiveSheet.Protect Password:=("MDP") ', DrawingObjects:=True, Contents:=True, Scenarios:=True _
' , AllowFiltering:=True
End Sub

[Menhir]

ce code fonctionne correctement, mais je souhaiterais récupérer directement la valeur saisie dans l'Input Box sans la copier dans une cellule.

La valeur saisie dans quelle InputBox ? "evenement" ou "Y" ?
Qu'est-ce que tu veux dire par "récupérer" ? Afficher ?

[counterbob]

@Thautheme

Bonjour
Merci c'est parfait
il me reste à gérer l'erreur lorsque je clique le bouton Annuler
@+

[Thautheme]

Bonjour le fil, bonjour le forum,

Avec la gestion d'erreur :

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
Sub saisie_evenement() 'Saisie d'un événement dans une plage sélectionnée
Dim evenement As String
Dim Y As Range
 
ActiveSheet.Unprotect ("MDP") 'déverrouillage de la feuille
Application.DisplayAlerts = False 'suppression des alertes
evenement = InputBox("Entrez l'événement.", "Evénement.") 'ouvre un input pour saisie de l'evenement
If evenement = "" Then Exit Sub
'ouvre un input pour sélectionner de la plage
On Error Resume Next
Set Y = Application.InputBox("sélectionnez une plage de cellules", Type:=8)
If Y Is Nothing Then Exit Sub
On Error GoTo 0
Y.Merge 'fusionde la plage
Y.Value = evenement
'texte centré
Y.HorizontalAlignment = xlCenter
With Y.Interior
    .Color = RGB(255, 255, 0) 'fond de cellule en jaune
End With
Application.DisplayAlerts = True
Application.CutCopyMode = False
'protection
ActiveSheet.Protect Password:=("MDP") ', DrawingObjects:=True, Contents:=True, Scenarios:=True _
' , AllowFiltering:=True
End Sub

[counterbob]

Merci Thautheme