OVH Cloud OVH Cloud

modifier valeur avec textbox

3 réponses
Avatar
Tatane
Bonjour,

Est-il possible d'afficher des valeurs d'un tableau dans un MsgBox en
fonction de 3 critères et pouvoir, en plus, modifier une des valeurs à partir
de ce MsgBox ?

Ex:
| A | B | C | D | E | => Colonne
|Article|Type|Longueur|Qté|Enlevé| => Titres
| Vis | M3 | 20 | 12 | 2 | => Valeurs
| Vis | M4 | 10 | 35 | 4 | => Valeurs

Afficher en fontion de A, B et C afin de modifier E.

Et comme j'ai décidé d'abuser, serait-il possible que la valeur de D
apparaisse en rouge quand elle est inférieure à un seuil (en dessous de 5,
par Ex.). L'idéal pour moi serait que un autre MsgBox apparaisse quand cette
valeur égale ou descend en dessous du seuil (après modification de E par ex.).

Par avance, merci.
--
VBA Excel, c''est bon mais c''est chaud !

3 réponses

Avatar
Céline
salut tatane
Moi je ferais (si les critères A, B et C sont indpdts les uns des
autres) :

--> à insérer dans Workbook_SheetChange :

If Target.Column = 1 Then
If Target = "Vis" or Target = "Ecrou" Then Range("E" &
Target.Row).FormulaLocal = InputBox _
("Article = " & Target & " Type = " & Range("B" &
Target.Row).FormulaLocal _
& " Longueur =" & Range("C" & Target.Row).FormulaLocal _
& Chr(10) & "Enlevé = ?")
ElseIf Target.Column = 2 Then
If Target = "12" Then Range("E" & Target.Row).FormulaLocal =
InputBox _
("Article = " & Range("A" & Target.Row).FormulaLocal & "
Type = " & Target _
& " Longueur =" & Range("C" & Target.Row).FormulaLocal _
& Chr(10) & "Enlevé = ?")
ElseIf Target.Column = 3 Then
If Target = "hihi" Then Range("E" & Target.Row).FormulaLocal =
InputBox _
("Article = " & Range("A" & Target.Row).FormulaLocal & "
Type = " & _
Range("C" & Target.Row).FormulaLocal _
& Chr(10) & "Enlevé = ?" & " Longueur =" & Target)

End If

voila...


Bonjour,

Est-il possible d'afficher des valeurs d'un tableau dans un MsgBox en
fonction de 3 critères et pouvoir, en plus, modifier une des valeurs à partir
de ce MsgBox ?

Ex:
| A | B | C | D | E | => Colonne
|Article|Type|Longueur|Qté|Enlevé| => Titres
| Vis | M3 | 20 | 12 | 2 | => Valeurs
| Vis | M4 | 10 | 35 | 4 | => Valeurs

Afficher en fontion de A, B et C afin de modifier E.

Et comme j'ai décidé d'abuser, serait-il possible que la valeur de D
apparaisse en rouge quand elle est inférieure à un seuil (en dessous de 5,
par Ex.). L'idéal pour moi serait que un autre MsgBox apparaisse quand cette
valeur égale ou descend en dessous du seuil (après modification de E par ex.).

Par avance, merci.
--
VBA Excel, c''est bon mais c''est chaud !


Avatar
Tatane
Merci Céline,

C'est EXACTEMENT ce que je souhaitais !

--
VBA Excel, c''est bon mais c''est chaud !



salut tatane
Moi je ferais (si les critères A, B et C sont indpdts les uns des
autres) :

--> à insérer dans Workbook_SheetChange :

If Target.Column = 1 Then
If Target = "Vis" or Target = "Ecrou" Then Range("E" &
Target.Row).FormulaLocal = InputBox _
("Article = " & Target & " Type = " & Range("B" &
Target.Row).FormulaLocal _
& " Longueur =" & Range("C" & Target.Row).FormulaLocal _
& Chr(10) & "Enlevé = ?")
ElseIf Target.Column = 2 Then
If Target = "12" Then Range("E" & Target.Row).FormulaLocal > InputBox _
("Article = " & Range("A" & Target.Row).FormulaLocal & "
Type = " & Target _
& " Longueur =" & Range("C" & Target.Row).FormulaLocal _
& Chr(10) & "Enlevé = ?")
ElseIf Target.Column = 3 Then
If Target = "hihi" Then Range("E" & Target.Row).FormulaLocal > InputBox _
("Article = " & Range("A" & Target.Row).FormulaLocal & "
Type = " & _
Range("C" & Target.Row).FormulaLocal _
& Chr(10) & "Enlevé = ?" & " Longueur =" & Target)

End If

voila...


Bonjour,

Est-il possible d'afficher des valeurs d'un tableau dans un MsgBox en
fonction de 3 critères et pouvoir, en plus, modifier une des valeurs à partir
de ce MsgBox ?

Ex:
| A | B | C | D | E | => Colonne
|Article|Type|Longueur|Qté|Enlevé| => Titres
| Vis | M3 | 20 | 12 | 2 | => Valeurs
| Vis | M4 | 10 | 35 | 4 | => Valeurs

Afficher en fontion de A, B et C afin de modifier E.

Et comme j'ai décidé d'abuser, serait-il possible que la valeur de D
apparaisse en rouge quand elle est inférieure à un seuil (en dessous de 5,
par Ex.). L'idéal pour moi serait que un autre MsgBox apparaisse quand cette
valeur égale ou descend en dessous du seuil (après modification de E par ex.).

Par avance, merci.
--
VBA Excel, c''est bon mais c''est chaud !






Avatar
Céline

Et comme j'ai décidé d'abuser, serait-il possible que la valeur d e D
apparaisse en rouge quand elle est inférieure à un seuil (en dess ous de 5,
par Ex.). L'idéal pour moi serait que un autre MsgBox apparaisse qu and cette
valeur égale ou descend en dessous du seuil (après modification d e E par ex.).





ah et pis apparemment j'ai oublié de traiter ton abus (mais ptet que
depuis tu t'en es tiré)
idem dans le même module

Dim Seuil as integer
Seuil = 12
If Target.Column = 4 Then
If Target < Seuil Then
Target.Font.ColorIndex = 3
MsgBox "vous êtes en dessous du seuil ! ! ", vbExclamation,
"ALERTE SEUIL"
End If
End If

:p
bonne suite !