Problème d'attribution InputBox à une cellule
Résolu
PLUTO
Messages postés
49
Date d'inscription
Statut
Membre
Dernière intervention
-
wilfried_42 Messages postés 907 Date d'inscription Statut Contributeur Dernière intervention -
wilfried_42 Messages postés 907 Date d'inscription Statut Contributeur Dernière intervention -
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.
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.
A voir également:
- Problème d'attribution InputBox à une cellule
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Diviser une cellule excel en deux horizontalement - Forum Excel
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Bureautique
2 réponses
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
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
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,