ajouter inputbox

[news]

Bonjour à tous du forum,

j'ai établi une macro avec ajoute 'inputbox' pour ajouter d'autres données.
Acutellement est effectué une recherche ( Si C20 = "" ), avant que inputbox est affiché.

Comment est affiché directement 'inputbox' sans effectuer de recherche ?,


Sub an_inputbox()

Sheets("data").Activate
Range("C5").Select
Selection.Copy
Range("C" & Range("C65536").End(xlUp).Row + 1).Select

If Range("C20") = "" Then
reponse = inputbox("add others" + _
" or press 'STOP' or 'Annuler' to finish")
If UCase(reponse) = "STOP" Then End
ActiveCell.Value = reponse
' to paste format to ActiveCell

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End If
End Sub


ci-joint fichier explicite,

 

[kjin]

Re : ajouter inputbox

Bonjour,

Dans le fichier :"comment établir macro que input box s'ouvre sans faire de recherche dans colonne C:C que Range C20 = "" ??"

J'avoue être un peu...dubitatif et je ne vois pas bien ce que fait cette macro
S'il s'agit d'éliminer la condition, si C20= ...il suffit d'éliminer les lignes qui s'y rapportent

Sub an_inputbox()
Sheets("data").Activate
Range("C5").Copy
Range("C" & Range("C65536").End(xlUp).Row + 1).Select
reponse = InputBox("add others" + " or press 'STOP' or 'Annuler' to finish")
If UCase(reponse) = "STOP" Then End
ActiveCell.Value = reponse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Mais dans ce cas autant écrire directement dans la cellule !
A+
kjin

 

[news]

Re : ajouter inputbox

merci kjin pour réponse,

simplement enlever condition If
en fait j'avais un bug lorsque l'avais enlevé auparavent.

mais ce bug persiste, si je copie la macro dans un autre fichier, je reçois parfois le message suivante au code : reponse = InputBox
"erreur de compilation, variable non définie" ??

Mais dans ce cas autant écrire directement dans la cellule !
ok,
je veux utiliser inputbox comme le bouton de commande pour démarrer la macro,
se trouve sur d'autres feuilles et dont il y en aura environ 50 WorkSheets,
et se rapportant au fil suivant
http://www.excel-downloads.com/forum/102032-macro.html