Incrementer une variable dans inputbox

Incrementer une variable dans inputbox - VB/VBA/VBS - Programmation

Marsh Posté le 10-01-2008 à 15:11:58    

bonjour
Je voudrai pourvoir demander à l'utilisateur de rentré le nom de chaque colonne suivant un ordre specifique.
Je m'explique, j'ai un enregistreur de mesure (capteur) ou je peux connecter differents capteurs (8capteurs au max).
Donc pour chaque mesure, je voudrai qu'il rentre un nom pour identifier plus tard le relevé.
 
VOici ma sub:
Sub titrecolonne()
 
Dim Cell As Range
Dim i As Integer
Dim reponse2
Dim Cell
 
i = 0
MsgBox "Donnez un titre à chaque relevé dans l'ordre numerique positionnée sur le datalogger separée par une virgule. Exemple.Entrée 1 du datalogger: acceleration; Entrée 2 :vit ang x,...", vbDefaultButton1
Do
    reponse2 = MsgBox("Voulez-vous continuer ?", vbYesNo)
    If i < 8 And reponse2 = vbYes Then Exit Sub
 
    Cell(1, i).Value = InputBox("Nature de la mesure sur voie :" & i, "IDENTIFICATION" )
    i = i + 1
Loop
End Sub
 
Je me doutais que ça ne fonctionnerai pas et c'est bien le cas. J'ai un probleme de synthaxe.  
VOus pouvez m'aider svp
Merci

Reply

Marsh Posté le 10-01-2008 à 15:11:58   

Reply

Marsh Posté le 11-01-2008 à 02:50:51    

Ce que tu veux faire, ça ne serait pas plutôt :

Code :
  1. Cell(1, i).Value = "Entrée " & i & " : " & InputBox("Description/Nom pour la voie " & i )


 
En fait InputBox ne prend qu'un parametre et rend la valeur entrée sous forme de string que tu peux maniper/complexifier à l'envie. Par exemple (inutile ;) ):

Code :
  1. Cell(1, i).Value = "DEBUT " & Replace(InputBox("Description/Nom pour la voie " & i ) , "tata", "toto" ) & " A LA FIN"


Message édité par dreameddeath le 11-01-2008 à 02:54:29
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed