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
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