poser une question avec une macro

[jack la trace]

Bonjour
Je souhaite avant de démarrer une macro qu'excel me pose une question (valeur de blocage?)
et par la même occasion qu'il remplace les valeurs présentes.
Dans le cas présent il 'sagit du 10022.
Sheets('Feuil4').Name = 'filtre quantité + 10022'
Range('G4').Select
Selection.AutoFilter Field:=10, Criteria1:='>10022', Operator:=xlAnd
Columns('A:J').Select
Selection.Copy
Sheets('filtre quantité + 10022').Select

D'avance merci
Jack la trace

 

[deudecos]

Salut Jack la menace 🙂

Si tu mettais un

MsgBox 'ta question', VbYesNo

Juste en debut de code, ca ouvre un message box et tant que tu n'y a pas repondu, tu ne peux rien faire d'autre...

Bonne journee

Olivier

 

[Gruick]

Salut Jack

A l'intérieur de ta macro, avant ce que tu viens de poster, tu mets

réponse = InputBox('valeur de blocage?', 1)
Sheets('Feuil1').Name = 'filtre quantité + ' & réponse

et tu rempaces tes 10022 par réponse dans le reste de la macro
N'ayant pas ton fichier, je l'ai testé sur ce petit exemple.
Zippé sous mac, tu rajoutes .xls au nom du fichier unzippé.

A+ [file name=Jack_20060322164115.zip size=7711]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Jack_20060322164115.zip[/file]

Message édité par: Gruick, à: 22/03/2006 16:43

 

[Hervé]

bonjour jack, olivier

sinon, une autre approche :

Dim numero As Long

numero = Application.InputBox('valeur de blocage ?', Type:=1)
If numero = 0 Then Exit Sub
Sheets('Feuil4').Name = 'filtre quantité + ' & numero
Range('G4').Select
Selection.AutoFilter Field:=10, Criteria1:='>' & numero, Operator:=xlAnd
Columns('A:J').Select
Selection.Copy
Sheets('filtre quantité + ' & numero).Select

j'ai pas testé ce code.

salut

edition : oups salut gruick, pas vu arrivé, désolé.

Message édité par: hervé, à: 22/03/2006 16:47

 

[jack la trace]

merci à vous tous

 

[ZOLI]

Bonjour,

j'ai besoin de vos aides,
les listbox que j'ai mis dans le UserForm n'affichent rien quand j'execute mon code ! par contre la listbox DESIGNATION marche trés bien ! alors que les autres non ! et j'ai ecris le meme code !! je voudrais afficher le contenu de qlq cellules dans les listBox .
je vous remercie d'avance

Private Sub SpinButton2_Change()

Dim I As Long
I = Me.SpinButton2.Value
If I < 2 Then Exit Sub
With Feuil1
'T_Nom = .Cells(I, 1)      ' une listbox qui marche, le contenu de la celule(I,1) s'affiche dans la liste box
Code_Piece = .Cells(I, 2)     ' je suis entrain de tester cette listbosx, pour cela j'ai mis tout en commentaire mais en vain ! je ne sais pas pourquoi !
'ListBox2 = .Cells(I, 9)      'meme chose pour le reste '
'ListBox3 = .Cells(I, 6)
'ListBox4 = .Cells(I, 8)
'ListBox5 = .Cells(I, 4)
'ListBox6 = .Cells(I, 5)
'ComboBox1 = .Cells(I, 10)
'ComboBox4 = .Cells(I, 11)
'ComboBox5 = .Cells(I, 12)
'ComboBox6 = .Cells(I, 13)
'ComboBox7 = .Cells(I, 14)
End With

End Sub