probleme de syntaxe

**chris09300** · 09/02/2011, 15h36

bonjour
est il possible au lieu de with sheets("Janv") de mettre
with sheets.... feuil. active, car j'utilise cette macro sur plusieurs feuilles, et cela n'ennui un peu d'alourdir ma macro en la recopiant X fois.
si quelqu'un sait comment faire, merci a lui.
chris

Code :

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

1
2
3
4
5
6
7
8
9
With Sheets("Janv")
    For i = 9 To 73
        .Range("B" & i) = 0
        If .Range("C" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("K" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("R" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("Y" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
    Next i
End With

**mercatog** · 09/02/2011, 15h43

Tu peux mettre la feuille en paramètre (Macro2 à mettre dans un module standard)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro2(ws As Worksheet)
Dim i As Integer
 
With ws
    For i = 9 To 73
        .Range("B" & i) = 0
        If .Range("C" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("K" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("R" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("Y" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
    Next i
End With
End Sub

l'appel sera en fonction des feuilles souhaitées

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim Sh As Worksheet
 
For Each Sh In Worksheets(Array("janv", "fevr", "mars"))
    Call Macro2(Sh)
Next Sh
end sub

pas de MP sur des questions techniques svp

**chris09300** · 09/02/2011, 19h11

voici ma macro complete, comment je peux y integrer ton code.
merci
chris

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub CommandButton1_Click()
   Application.ScreenUpdating = False
 
    If Controls("Textbox1") = "" Then
       MsgBox "Vous devez ABSOLUMENT indiquer Un Nom !", vbExclamation, _
       "ERREUR ... Entrez un Nom SVP !"
       Controls("Textbox1").SetFocus
    Exit Sub
    End If
 
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    Selection.Merge
    Selection = UserForm1.Textbox1
    Unload UserForm1
    With Selection.Interior
        .Color = 65535
     End With
    With Selection.Font
        .ColorIndex = xlAutomatic
    Selection.Font.Bold = True
    End With
 
'Sub Macro2(ws As Worksheet)
'    Dim i As Integer
'With ws
With Sheets("Janv")
' With Worksheets(Array("Janv", "Fevr", "Mars"))
    For i = 9 To 73
        .Range("B" & i) = 0
        If .Range("C" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("K" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("R" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("Y" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
    Next i
End With
'With Sheets("Fevr")
'    For i = 9 To 73
'        .Range("B" & i) = 0
'        If .Range("C" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
'        If .Range("K" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
'       If .Range("R" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
'        If .Range("Y" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
'    Next i
'End With
   Application.ScreenUpdating = True
Range("A1").Select
End Sub

**mercatog** · 09/02/2011, 20h03

Je ne sais pas ce que tu veux faire avec tes Select et Selection, la première partie à revoir
J'ai regoupé les 2 procédures

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub CommandButton1_Click()
Dim Sh As Worksheet
Dim i As Integer
 
If Controls("Textbox1") = "" Then
   MsgBox "Vous devez ABSOLUMENT indiquer Un Nom !", vbExclamation, _
          "ERREUR ... Entrez un Nom SVP !"
   Controls("Textbox1").SetFocus
   Exit Sub
End If
 
Application.ScreenUpdating = False
'#------------------------------------------A revoir
With Selection
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlCenter
End With
Selection.Merge
Selection = UserForm1.Textbox1
Unload UserForm1
With Selection.Interior
   .Color = 65535
End With
With Selection.Font
   .ColorIndex = xlAutomatic
   Selection.Font.Bold = True
End With
'#--------------------------------------------------
For Each Sh In Worksheets(Array("janv", "fevr", "mars"))
   With Sh
      For i = 9 To 73
         .Range("B" & i) = 0
         If .Range("C" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
         If .Range("K" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
         If .Range("R" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
         If .Range("Y" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
      Next i
   End With
Next Sh
End Sub

**chris09300** · 09/02/2011, 20h11

super ca marche nikel.
merci a toi, je vais pouvoir finir enfin.

**mercatog** · 09/02/2011, 20h23

Non, pas encore
Tu auras fini quand tu vire toutes les Select et Selection
au lieu de ceci

Code :

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

1
2
3
4
With Selection
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlCenter
End With

mets

Code :

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

1
2
3
4
With Sheets(X).Range(Y)
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlCenter
End With

**chris09300** · 10/02/2011, 10h47

Bonjour mercatog

merci pour toutes tes réponses,
sur la dernière réponse, si j'ai bien compris le code, il faut que je donne le nom de l'onglet ainsi que la cellule.
Or je souhaite que chaque fois que je sélectionne une zone dans la feuille, cela aligne en vertical et horizontal le nom entrez dans cette zone.
est tu d'accord avec moi.

merci au modérateur d'avoir mis les balises sur mes questions précedement posées, avec l' exemple qu' il m'a donné, c'est plus clair.
chris

**mercatog** · 10/02/2011, 12h04

Bonjour,
Tu as un userform avec textbox1
l'utilisateur sélection une plage, appel l'userform, saisit un nom, et valide.
Le code mets une mise en forme de cette sélection et procède à la mise à jour de la colonne B de toutes tes feuilles mensuelles.

La sélection du départ opérée par l'utilisateur est elle aléatoire ou suit une logique (par exemple la première cellule vide d'une feuille X)

C'était ça ma remarque

probleme de syntaxe [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager