[Résolu] Récuperer des valeurs entrées dans une boite de dialogue
Récuperer des valeurs entrées dans une boite de dialogue [Résolu] - VB/VBA/VBS - Programmation
Marsh Posté le 12-06-2007 à 20:38:23
bd = InputBox("Choisissez le nombre de ligne à ajouter ainsi que le numéro de ligne ou doit se faire l'insertion. Exemple : 5;10 -> Insertion de 5 lignes à la ligne 10" )
pos = InStr(1, bd, ";" )
x = Mid(bd, 1, pos - 1)
y = Mid(bd, pos + 1, Len(bd) - pos)
Marsh Posté le 12-06-2007 à 20:50:55
par contre je suis pas sur que ca fasse ce que t'a expliqué dans ta inputbox donc j'ai modifié ton code
Sub test()
Dim bd As String
bd = InputBox("Choisissez le nombre de ligne à ajouter ainsi que le numéro de ligne ou doit se faire l'insertion. Exemple : 5;10 -> Insertion de 5 lignes à la ligne 10" )
pos = InStr(1, bd, ";" )
x = Mid(bd, 1, pos - 1)
y = Mid(bd, pos + 1, Len(bd) - pos)
For i = 1 To x
Rows(y).Insert Shift:=xlDown
Range("E" & y).FormulaR1C1 = "=RC[-1]*RC[-4]"
Next i
End Sub
Message édité par ingenieurcesi le 12-06-2007 à 20:51:35
Sujets relatifs:
- recupérer les infos de winamp
- Génération de fichier xml à partir de php mysql. [Résolu]
- Récupérer le S/N + le prix dans un fichier CSV
- [Résolu] Problème de return d'une fonction
- Recuperer evenements JPopupMenu
- [Resolu] [php/mySQL JS?] Case a cocher evenementielle.
- [Résolu] phpMyAdmin et BR
- Récupérer Valeur des mails en Queue avec Qmail - Webmin
- Excel - VBA - Copier du texte au double clic [résolu]
- Récupérer des données avec un nbre de caractères spécifiques
Marsh Posté le 12-06-2007 à 17:42:56
Salut à tous !
J'ai un petit problème dans la programmation d'une macro. Je vous explique : je voudrais récupérer 2 valeurs, x et y, qui ont été entré précédemment dans une boite de dialogue. Voici un extrait du code :
Merci d'avance !
Message édité par coxi9 le 12-06-2007 à 21:46:48