Discussion :

[pourinfo]

Bonjour,


J'ai une InputBox qui permet de saisir une valeur puis de la mettre en cellule C6 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim strMyVar As Single
    strMyVar = InputBox("Veuillez déterminer la quantité", "Modification de la quantité", 1)
    Range("C6").Value = strMyVar

Comment permettre la saisie d'une autre valeur qui serait mise en cellule C7, par exemple, sans avoir à créer une UserForm ou un autre InputBox, et donc demander à l'utilisateur de saisir deux données pour une seule InputBox ??

Je pense à mettre "&" à la suite de InputBox, mais sans grande motivation...

Suite du code :
peut-on bloquer la cellule C6 et C7 pour empêcher une modification de ces cellules ?
et alors comment permettre à l'utilisateur de modifier ces 2 quantités ? faut-il faire réapparaître une InputBox ou mettre un CommandButton_Click prêt de la cellule C6 ?
Grosso modo, peut-on substituer une InputBox à une USF, car on peut mettre des TextBox dans une USF mais je ne sais pas faire le lien entre la quantité saisie sur le USF et la cellule C6, et je crois que c'est un peu compliqué...

[laetitia]

bonjour pourinfo le forum,
on peut faire un truc dans ce style pour gérer le bouton annuler.code très "brut" il faut adapter

après pour empêcher de modifier il faut voir il faut plus d'infos ta feuille est protégée? peut on modifier les autres cellules ect....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub es()
   Dim m As String, m1 As String, rep As String, rep1 As String
x:
   m = InputBox("Veuillez déterminer la quantité", "valeur uniquement")
   If m <> "" And IsNumeric(m) Then
    [c6] = m
y:
    m1 = InputBox("remplir c7 ", "valeur uniquement")
   If m1 <> "" And IsNumeric(m1) Then
   [c7] = m1
   Exit Sub
   Else
    rep1 = MsgBox("pas valeur  voulez vous annuler le renseignement de c7 ??? ", vbInformation + vbOKCancel)
    End If
    If rep1 = vbCancel Then Exit Sub Else GoTo y
    Else
    rep = MsgBox("pas valeur voulez vous annuler  le renseignement de c6 ???", vbInformation + vbOKCancel)
   End If
  If rep = vbCancel Then Exit Sub Else GoTo x
End Sub

[pourinfo]

Bonjour,

J'ai fortement l'impression que La partie ci-dessous ne répond pas à ma recherche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Else
    rep1 = MsgBox("pas valeur  voulez vous annuler le renseignement de c7 ??? ", vbInformation + vbOKCancel)
    End If
    If rep1 = vbCancel Then Exit Sub Else GoTo y
    Else
...

Cette partie s'enchaîne directement après la 1ère partie, n'est-ce pas ?
La modification est facultative, c'est pourquoi je pense utiliser un bouton qui relance les InputBox : code pour " modifier c6 et c7" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub Button_Click1()
          UserForm.Show   
End Sub

j'ai mis UserForm par défaut.
Mais peut-on rappeler un InputBox précédent pour le modifier ?
Peut-on attribuer un nom au "Private Sub Worksheet_Change" pour relancer cette procédure lorsqu'on clique sur Button_Click1() car il faut pouvoir l'appeler dans le code Button_Click1() ?


merci