VBA echec1004 méthode range de l'objet global

Fermé
RomainD - 11 févr. 2012 à 15:43
m@rina Messages postés 20175 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 7 mai 2024 - 11 févr. 2012 à 16:10
Bonjour à tous,

Tout d'abord merci de me lire.

Je suis débutant sur VBA et je sollicite votre aide suite à une erreur de macro sur Excel 10

Sur une feuille excel, j'ai affecté une macro par liste déroulante afin de masquer certaines lignes et colonnes.
Je ne parviens pas à faire exécuter mes macros et pour chacune d'entre elle j'ai le signal d'erreur suivant:

Erreur d'execution "1004"
la méthode "range" de l'objet" _global " a échoué.

Pouvez-vous m'indiquer où est-ce que j'ai commis des erreurs ?

Merci d'avance pour votre aide.

Pour la macro 1

Sub Macro1()
'
' Macro1 Macro

If Range(C9) = "TOUS" Then
Cells.Select
Selection.EntireRow.Hidden = False
End If

If Range(C9) = "AFFECTATION DES RESSOURCES" Then

Rows("23:169").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-10
End If

If Range(C9) = "RECRUTEMENT" Then

Range("12:22,55:83,84:169").Select
Range("A84").Activate
Selection.EntireRow.Hidden = True
End If

If Range(C9) = "FORMATION" Then
Range("12:54,84:169").Select
Range("A84").Activate
Selection.EntireRow.Hidden = True
End If


If Range(C9) = "MOBILITE" Then
Range("12:83,111:169").Select
Range("A111").Activate
Selection.EntireRow.Hidden = True
End If

If Range(C9) = "DEPART" Then
Range("12:110,135:169").Select
Range("A135").Activate
Selection.EntireRow.Hidden = True
End If

If Range(C9) = "APPRECIATION" Then
Rows("12:134").Select
Selection.EntireRow.Hidden = True
End If

End Sub

Pour la macro 2

Sub Macro9()
'
' Macro9 Macro

If Range(G7) = "TOUTES" Then

Selection.EntireRow.Hidden = False
Range("D10").Select
End If

If Range(G7) = "N-1" Then

Columns("F:W").Select
Selection.EntireColumn.Hidden = True
End If

If Range(G7) = "N" Then
Range("E11,D:E,L:W").Select
Selection.EntireColumn.Hidden = True
End If

If Range(G7) = "N+1" Then
Range("D:K,R:W").Select
Selection.EntireColumn.Hidden = True
End If

If Range(G7) = "N+2" Then
Columns("D:Q").Select
Selection.EntireColumn.Hidden = True
End If

End Sub

1 réponse

m@rina Messages postés 20175 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 7 mai 2024 11 279
11 févr. 2012 à 16:10
Bonjour,

J'ai pas tout lu, mais bon, la référence des RANGE doit être entre guillemets :

Range("A1")

m@rina
2