Problème d'attribution InputBox à une cellule Résolu/Fermé

Question

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.

wilfried_42 · Answer

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

wilfried_42 · Answer

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)

Problème d'attribution InputBox à une cellule

2 réponses

Discussions similaires