InputBox

[Format]

Rebonjour,

Quand je choisi 'Personnalisée' dans la cellule G32, une inputbox s'affiche. J'aimerais que le texte saisi soit renvoyé dans la cellule G34.
Merci de votre aide. [file name=Inputbox.zip size=10764]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Inputbox.zip[/file]

 

[Abel]

Bonjour Format,

Change la macro de la feuille 1 comme suit :

Private Sub worksheet_change(ByVal target As Range)
Dim Isect As Range
Set Isect = Intersect(target, Range('g32'))
If Not Isect Is Nothing And Range('g32').Value = 'Personnalisée' Then
    Range('g34') = InputBox('Saisissez le thème de la formation souhaitée !', 'Formation personnalisée')
End If
End Sub

Ce code a aussi l'avantage de ne pas se 're-déclencher' à chaque changement dans la feuille si 'G32 = personalisée'.

Abel.

 

[porcinet82]

Salut,

Change le code de la manière suivante et ca devrait fonctionner :

Private Sub worksheet_change(ByVal Target As Range)
If Target.Value = 'Personnalisée' Then
    Cells(34, 7).Value = InputBox('Saisissez le thème de la formation souhaitée !', 'Formation personnalisée')
End If
End Sub

@+

Edition : Salut Abel, je n'avais pas raffraichi, je vois que tu as été plus rapide, mais nos solutions sont différentes

Message édité par: porcinet82, à: 09/02/2006 14:33

 

[Format]

Merci à vous.
@+