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]

re bonjour,
juste une autre petite quesiton :
Comment faire pour protéger le menu des macros..

Merci
Michel

 

[sylv900]

salut
tu est sure que ca fonctionne,
généralement mes boucles if je les écrit du type :
if évènement then
une action
elseif un autre évenement
une action
else (revient à sinon)
une action
end if

je n'emile pas les if then les uns à la suite des autre
mais je ne suis pas spécialiste, je peux me tromper...

 

[Michel]

Bonjour Sylv900,

Yes ça marche plutot bien, mais j'ai 30 Macros de la sorte et à l'enregistrement de la feuille de calcul c'est un peu long (environ 10 secondes).

A+
Michel

 

[sylv900]

pourquoi tu a 30 macro 'identique' tu ne peux pas jouer avec des variable ou appeler un module ?

 

[Michel]

Re...
Non j'ai 30 boutons correspondant à 30 macros, chaque bouton permettant de déplacer une zone de cellule différentes.

A+
Michel

 

[sylv900]

ca doit etre gérable en appelant le même module de traitement dans chaque macro...

 

[Michel]

RE RE
Voici 3 macros à la suite ....
Car je comprends pas tout 'en appelant le même module de traitement'
a+
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
Sub imp2()
'
' imp2 Macro
' Macro enregistrée le 20/04/2005 par Illouz
'

'
Range('module1').Select
Selection.Cut Destination:=Range('a401')
Range('a64').Select
End Sub
Sub imp3()
'
' imp1 Macro
' Macro enregistrée le 20/04/2005 par Illouz
'

'
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('module2').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
Sub imp4()
'
' imp2 Macro
' Macro enregistrée le 20/04/2005 par Illouz
'

'
Range('module2').Select
Selection.Cut Destination:=Range('a405')
Range('a64').Select
End Sub
Sub imp5()
'
' imp1 Macro
' Macro enregistrée le 20/04/2005 par Illouz
'

'
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('module3').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
Sub imp6()
'
' imp2 Macro
' Macro enregistrée le 20/04/2005 par Illouz
'

'
Range('module3').Select
Selection.Cut Destination:=Range('a409')
Range('a64').Select
End Sub

 

[sylv900]

toute cette partie :
Range('module2').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
Sub imp4()
'
est strictement identique dans toute tes macros!
il suffit de placer cette parti dans un module (dans vba project, clic droit sur modul, nouveau) avec un nom de fonction.
dans chaque macro tu appels cette fonction au lieu de retaper tout le code
tu as pigé?
je n'ai pas la syntaxe en tête et pas d'exemple sur moi pour appelé la fonction,
si quelqu'un peut t'aider sur ce point ca serait cool!

 

[Michel]

RE RE RE RE...

Bon je vais essayer de placer cela dans un module...

A+
Michel..

 

[sylv900]

la seule variable à fournir lors de l'appel de la fonction sera le nom de ta feuille
c'est un truc du genre
syntaxe d'appel fonction (module1)

et dans ton module tu met 'module' en variable
c'est elle qui doit prendre les valeurs module1, module2 etc


mais il faudrait que quelqu'un nous aide pour la syntaxe

à l'aide, help

 

[Creepy]

Hello all,

Voici des petites corrections sur ta macro :

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

Quelques petites explication sur les modifications que j'ai faites :

1 - Il faut toujours déclarer les variables, cela t'evitera parfois bien des soucis.

2 - J'ai viré la variable 'mavariable' parce que si tu fais mavariable=tota, autan,t utiliser directement mavariable !

3 - Ensuite plus tot que faire 3 conditions pour verifier une seule chose j'ai mis des AND (et) comme ca il faut que les 3 soient vrai pour executer l'action.

4 - J'ai mis un exit sub avant le erreur: sinon la macro ne s'arrete pas et execute la partie erreur.
Comme en faites tu ne veux executer cette partie de code que si erreur pas besoin de la faire à chaque fois.

Enfin petit conseil, prend l'habitude de décaler tes lignes en fonctions de tes si, etc... tu verras quand on relit c'est beaucoup plus claire. Pour info tu idente avec la touche TAB

Voila.

Pour le reste je regarderais plus tard, mais il y a moyen de 'reduire' tout ca par l'utilisation d'un module je pense.

++

Creepy

 

[sylv900]

salut creepy
peut tu aider michel sur l'appel du modul stp?

 

[Michel]

Bonjour creepy..

Merci pour ces corrections. je vais de ce pas commencer mes corrections...

encore merci.... à Creepy et Sylv900
Michel

 

[sylv900]

tu vois que tout les if à la suite c'était pas terrible