[Résolu] Récuperer des valeurs entrées dans une boite de dialogue

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu] Récuperer des valeurs entrées dans une boite de dialogue

coxi9

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 :

Code :

Dim Boite_dialogue As String
Boite_dialogue = 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" )
//Comment récupérer les 2 valeurs x et y qui ont été écrite dans InputBox ???
For i = x To x + y
Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown
Range("E" & i).Select
ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-4]"
Next i

Merci d'avance !

Message édité par coxi9 le 12-06-2007 à 21:46:48

Publicité

ingenieurcesi

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)

ingenieurcesi

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

coxi9

Ok merci ca marche niquel :bounce:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Résolu] Récuperer des valeurs entrées dans une boite de dialogue

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
Plus de sujets relatifs à : [Résolu] Récuperer des valeurs entrées dans une boite de dialogue

Page générée en 0.052 secondes