Discussion :

[_mike_]

Voila, j'ai ce petit problème.
En le simplifiant un peu, j'ai donc une inputbox, avec ce dernier, l'utilisateur inscrit 1 ou plusieurs valeurs, a l'intérieur les valeurs sont par exemple "ABC","DEF","GHI", etc. peu importe. Chaque valeur est associé a une cellule A1,A2,A3 respectivement.

Ce que je veux faire.
L'usager écris par exemple "ABC" dans le inputbox. cela inscrit A1 dans un autre cellule déjà inscrite dans le code. Ou c'est rendu plus compliqué est que l'usager pourrait écrire par exemple ABC - DEF et cela indiquerais la valeur de A1 - A2

Ce que j'ai fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btn_ok_Click()
 
Dim flign As String
Dim ABC, DEF As Variant
 
With box_format.Value
    ABC = Cells(flign, 3)
    DEF = Cells(flign, 4)
End With
 
formatfichier.Hide
 
End Sub

J'espère etre quand même clair !

Merci !

[casefayere]

Bonsoir,
apparemment ce n'est pas clair, tu déclares flign en string, or j'ai l'impression que c'est un integer, tu ne donnes pas sa valeur

tu déclare DEF en variant, n'est-ce pas un string et ABC ça serait pas un string ?

Bon peut-etre qu'il en manque un bout

bonne soirée

Sans plus d'explications, une proposition à fouiller :

Code :

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

1
2
3
4
5
6
7
Dim ABC As String, DEF As String, mes As String
 
mes = InputBox("entrez les valeurs", "saisie")
'exemple si l'utilisateur écrit dans l'inputbox ABC-DEF-HIJ
 
Range("ta cellule") = Left(mes, 3)
Range("AUTRE cellule") = Mid(mes, 5, 3)

[Gorfael]

Salut mike et le forum
Explique comme à quelqu'un qui ne sait rien de ton problème, et si tu emploies des termes d'Excel, fait que ce soit les bons

Si tu veux entrer plusieurs valeurs dans une même inputbox, il faut que tu définisses un moyen de séparer les informations : " - " ?
Après tu fais une boucle avec une recherche de ton séparateur.
Teste cette macro sur une feuille vierge

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
Sub test()
Dim Rep As String
Dim X As Integer
Dim Y As Integer
Dim Z
Rep = InputBox("valeur", "titre")
Do
    X = X + 1
    Y = InStr(Rep, " - ")
    If Y > 1 Then
        Range("A" & X) = Left(Rep, Y - 1)
        Rep = Right(Rep, Len(Rep) - Y - 2)
    Else
        Range("A" & X) = Rep
        Rep = ""
    End If
Loop Until Rep = ""
End Sub

A+