Changer le titre d'une INPUTBOX

Résolu/Fermé
hich24 Messages postés 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 - 23 janv. 2015 à 17:35
hich24 Messages postés 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 - 23 janv. 2015 à 18:58
Bonjour, je souhaite pouvoir changer le nom d'une input box selon le contenu de la cellule target bien sur dans le programme vba
merci d'avance

1 réponse

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
23 janv. 2015 à 18:18
Bonjour,

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nom As String
Dim titre As String
titre = Range(" A1").Value
If Range(" A1").Value = "" Then Exit Sub
nom = InputBox("Quel est votre nom ?", titre)
Range("B1").Value = nom
End Sub

1
hich24 Messages postés 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 752
23 janv. 2015 à 18:58
merci beaucoup le pivert
0