Vérification de Macro

[Michel]

Bonjour à Tous.
Je viens de finir cette Macro, c'est ma première. elle fonctionne. Par contre pvez vous me dire si elle est bien écrite et si on ne peut pas faire mieux.

Par avance merci..
Michel



tota = Application.InputBox(prompt:='Veuillez saisir le numéro de la ligne ou vous voulez insérer ce module', Type:=1)
mavariable = tota
On Error GoTo erreur
Range('module1').Select
If IsEmpty(Range('B' & mavariable)) Then
If IsEmpty(Range('B' & mavariable + 1)) Then
If IsEmpty(Range('B' & mavariable + 2)) Then
Selection.Cut Destination:=Range('B' & mavariable)
Range('a' & mavariable).Select
Else: Range('a64').Select
MsgBox 'Vous avez sélectionné une cellule non vide '
Range('a' & mavariable).Select
End If
Else: Range('a64').Select
MsgBox 'Vous avez sélectionné une cellule non vide '
Range('a' & mavariable).Select
End If
Else: Range('a64').Select
MsgBox 'Vous avez sélectionné une cellule non vide '
Range('a' & mavariable).Select
End If
erreur: Range('a64').Select
End Sub

 

[Michel]

Hello,

Bon je viens de faire ma correction sur ma première macro. c'est OK NO PROBLEMO.

Merci.....
Michel

 

[Creepy]

Re les amis,

Regarde en PJ, j'ai mis un exemple d'appel de module, regarde bien le titre de la Inputbox, il change en fonvtion du bouton sur lequel tu cliques (1 ou 2) pour bien te montrer que chaque bouton va chercher la même chose.

Explications :

1 - J'ai mis la variable I en public car tout le monde doit y acceder, les procedures des boutons pour donner ca valeur et le module pour lire cette valeur. Si tu avais mis un dim I as integer dans ton module, seul celui-ci aurait pu y acceder et pas les boutons.

2 - Je n'ai pas mis de PRIVATE devant le sub dans le module. Ca permet d'appeller cette procedure dans d'autres procedures.

3 - Tu as deux possibilité d'appeler la procedure avec Call ou pas. Moi je mets tjs Call, c'est plus propre je trouve.

Voila.

++

Creepy


[file name=Module.zip size=12454]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Module.zip[/file]

EDIT : Je vais bosser un peu car j'ai pris du retard avec vous !!
C'est po moi chef c'est eu qui m'ont forcé !! :evil:

Message édité par: Creepy, à: 22/04/2005 16:18

 

[sylv900]

moi c'est pareil j'ai du boulot
et je part en week end
donc bonne continuation michel et bon courage :woohoo:

 

[Michel]

ENCORE UN GRAND MERCI.

Je viens de voir le post avec les modules..
Ok creepy je regarde et je vous fais un retour dès lundi..

Et oui c'est le week end qui commence. enfin pas avant 19h00.
Bref

Bon et Week et à Lundi.
Michel