Problème d'attribution InputBox à une cellule

Résolu/Fermé
PLUTO Messages postés 49 Date d'inscription mardi 4 décembre 2001 Statut Membre Dernière intervention 7 octobre 2012 - 19 nov. 2008 à 12:29
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 - 19 nov. 2008 à 20:03
Bonjour,

Le problème est le suivant, j'ai crée un formulaire excel dans lequel
on demande à l'utilisateur de remplir des cellules.
Lorsque l'utilisateur clic sur une cellule, une fenêtre s'ouvre et l'utilisateur écrit ce
qui doit s'afficher dans ladite cellule.
Vous allez vite comprendre en jetant un oeil sur le code ci après :

Private Sub Worksheet_SelectionChange(Target As Range)
If Target.Address = "$G$9" Then

taux = InputBox("Nom du demandeur")
If taux = "" Then
MsgBox "annulé"
Exit Sub
Else
Feuil3.Range("G9").Value = taux
End If
If Target.Address = "$C$10" Then

taux = InputBox("Nature des travaux")
If taux = "" Then
MsgBox "annulé"
Exit Sub
Else
Feuil3.Range("C10").Value = taux
End If

End If
If Target.Address = "$G$10" Then

taux = InputBox("Delai souhaité")
If taux = "" Then
MsgBox "annulé"
Exit Sub
Else
Feuil3.Range("G10").Value = taux
End If

End If
If Target.Address = "$B$11" Then

taux = InputBox("Emplacement sur le site")
If taux = "" Then
MsgBox "annulé"
Exit Sub
Else
Feuil3.Range("B11").Value = taux
End If

End If
End If

End Sub

Plusieur messages d'erreurs s'affiche, à la mise en route de la macro.
De plus et je ne sais pas comment faire, pour activer la macro dès l'ouverture du classeur,
afin que chaque cellule s'ouvre en fenêtre lorsque je clic dessus .

En vous remerciant par avance.

2 réponses

wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 243
19 nov. 2008 à 12:47
bonjour

pour les messages d'erreur, il faudrait savoir ce qu'ils contiennent et sur quelle ligne ????

pour demarrer la macro dès l'ouverture : (si j'ai tout compris)

dans l'interruption open de thisworkbook

Private Sub Workbook_Open()
    Application.EnableEvents = False
    ActiveCell.Offset(0, 1).Select
    Application.EnableEvents = True
    ActiveCell.Offset(0, -1).Select
End Sub

0
PLUTO Messages postés 49 Date d'inscription mardi 4 décembre 2001 Statut Membre Dernière intervention 7 octobre 2012 1
19 nov. 2008 à 13:35
Bonjour Wilfried,

Le message d'erreur débute dès la première ligne, le message affiché est le suivant:

Erreur de compilation
La déclaration de la procedure ne correspond pas à la description de l'événement ou de la procedure de même nom.

Des fois j'ai l'impression de parler avec ma copine, qui me dit "Si tu ne sais pas pourquoi je te fais la gueule, je ne vais certainement pas te le dire!" à peu de chose près c'est pareil.

Merci,
0
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 243
19 nov. 2008 à 20:03
re:

ce sont des procédures d'interruption et la déclaration est très importante (il faut mieux utiliser les liste déroulantes prévues à cet effet)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
0