insertion macro

[al1000]

Bonjour,


j'ai cette macro


Option Explicit
Dim i As Integer
Dim cel As Range

Sub efface_noms()
Application.ScreenUpdating = False

For i = 1 To Range("d65536").End(xlUp).Row
If Cells(i, 30) = 1 Then Cells(i, 4).ClearContents
Next
Range("aw1").Select

End Sub


mais quand je veux l'inserer à la suite d'une autre macro, cela ne fonctionne pas
car j'ai la fonction option explicit


comment faire pour avoir cette macro à la suite d'une autre macro?

a+

 

[kjin]

Re : insertion macro

Bonsoir,
L'instruction Option Explicit t'oblige à déclarer toutes tes variables.
Elle est valable pour le tous le module, il faut donc la mettre en tête du module, avant la première instruction Sub.

Option Explicit 'à déplacer avant le premier Sub s'il n'existe pas déjà

Sub...
....
End Sub

Sub efface_noms()
Dim i As Integer
Dim cel As Range
Application.ScreenUpdating = False
For i = 1 To Range("d65536").End(xlUp).Row
If Cells(i, 30) = 1 Then Cells(i, 4).ClearContents
Next
Range("aw1").Select
End Sub

Sub ....
...
End Sub

A+
kjin