Discussion :

[docjo]

Bonjour

Je cherche à appliquer une macro automatique inscrite dans thisworkbook à toutes les feuilles sauf la premiere.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
 
 
'pour spécifier la feuille 2
For Sheet = 2 To Sheets.Count
 
 
 Dim rwIndex As Long, colIndex As Long
 
For rwIndex = 2 To 33
    For colIndex = 3 To 8
           If (sh.Cells(rwIndex, colIndex).Value = sh.Cells(8, colIndex - 1).Value Or _
           sh.Cells(rwIndex, colIndex).Value = sh.Cells(9, colIndex - 1).Value Or _
           sh.Cells(rwIndex, colIndex).Value = sh.Cells(21, colIndex - 1).Value) _
           And sh.Cells(rwIndex, colIndex).Value <> "" Then
            MsgBox "vous n'avez pas le droit"
            ActiveCell.Value = ""
            Exit Sub
            End If
    Next colIndex
Next rwIndex
 
Next
 
end sub

Mais il y a probablement un problème sur Activecell.value. Il semble exécuter le code même si je bricole sur la première feuille.
La boucle sur sheet n'est pas la bonne instruction ?
Merci par avance

[HurGeek]

Bonjour docjo,

ta boucle sur sheet ne sert à rien dans ce cas là (tu répètes uniquement la même opération n-1 fois ton nombre de feuille.
Si ta feuille 1 s'apelle Feuil1 (attention je ne parle pas du nom donné à l'onglet mais bien du nom de l'objet Feuil qui apparait dans l'éditeur VBA dans l'attribut Name)

En lève ta boucle sur les Sheet et met une condition du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if Sh.name=Feuil1.name then exit sub

[Didier Gonard]

Bonjour,

tu es dans une évènementielle et tu as d'origine un argument sh...
vois dans l'aide vba et dans les tutos de forum les références aux évènements de feuilles - classeur

il faut faire du genre ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
 
 Dim rwIndex As Long, colIndex As Long
'pour spécifier la feuille 2
'For Sheet = 2 To Sheets.Count
'
If sh.Index > 1 Then
 
For rwIndex = 2 To 33
    For colIndex = 3 To 8
           If (sh.Cells(rwIndex, colIndex).Value = sh.Cells(8, colIndex - 1).Value Or _
           sh.Cells(rwIndex, colIndex).Value = sh.Cells(9, colIndex - 1).Value Or _
           sh.Cells(rwIndex, colIndex).Value = sh.Cells(21, colIndex - 1).Value) _
           And sh.Cells(rwIndex, colIndex).Value <> "" Then
            MsgBox "vous n'avez pas le droit"
            ActiveCell.Value = ""
            Exit Sub
            End If
    Next colIndex
Next rwIndex
End If
'Next
 
End Sub

et voir ce qu'on veut, si tu es sur que ta feuille 1 est toujours la 1, utilises les index (si elle est renommée tu ne risque rien), si elle est déplacée utilise les noms (mais on sort précisément de ta question).

cordialment,

Didier

[docjo]

Merci pour vos 2 réponses qui marchent. Mais avant de marquer résolu, j'ai 2 questions:
- Dans le tutorial, sur les évènement de feuille (ici), il est marqué :

Le paramètre Sh correspond à l'onglet contenant la cellule modifiée.

Qu'est-ce que l'onglet ? Est-ce le nom de la feuille ?

- Si je ne veux appliquer le code que sur la feuille où l'on travaille, peut-on utiliser activesheet ? Et dans ce cas, peut-on cumuler activesheet et exclure la première feuille ? (en fait, une partie des autres codes de ma feuille fait appel à des plages de la feuille1. Les noms des personnes figurant dans ces plages font office de liste, que je veux pouvoir modifier).

Merci pour votre précieuse aide.

[casavba]

Bonjour,

Pour répondre à ta première question :

---> Il ne faut pas confondre un objet et une propriété.
Dans l'exemple que t'as avancé, Sh est un objet [dans ton cas feuille (ou onglet)]
Par contre Sh.Name est le nom de cet objet (Dans ton cas le nom de la feuille). Dit autrement, Name est une propriété de l'objet Sh.


Pour répondre à ta deuxième question :

Attention t'as utilisé un évenement sur le classeur, si tu utilises en plus un evénement sheet --> il peut y avoir un conflit et donc erreur.

Mais tu peux dans ton évenement Workbook, inclure une spécification concernant la feuille 1 dans ta clause if mentionné dans ton code.

exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IF Sh.Index=1 then ...

Mais sauf information complémentaire, il ne peut pas y avoir de solution optimale.

Bonne journée

[docjo]

Excellent ! J'ai compris. Je peux aussi faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 If Sh.Name <> "Feuille1" then
'Le nom de ma feuille ne changera pas. Le code ne s'appliquera pas sur la feuille nommée "Feuille1"

Je continu à bricoler et je vous remercie pour votre aide.