insertion macro

al1000 · 26 Août 2008

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 · 26 Août 2008

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.

al1000 à dit:
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

insertion macro

al1000

XLDnaute Impliqué

kjin

XLDnaute Barbatruc

Discussions similaires

insertion macro

al1000

XLDnaute Impliqué

kjin

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency