Problème avec Activecell

Version imprimable

05/05/2010, 10h22
hengril8

Problème avec Activecell

Bonjour à tous,

Je suis actuellement sur un projet de création de planning (un onglet par mois) mais j'ai une chose qui me pause un petit problème, je m'explique :

Au début du programme je fais ça : ActiveCell.Select (qui me permet de démarrer le remplissage de mon planning à partir de cette cellule) et mon problème arrive bientôt puisque mon planning peut être sur 2mois qui sont sur 2pages de classeurs distinctes et donc dés que je trouve une Selection = "", je fais : ActiveSheet.Next.Select qui me permet de passer à la page suivante et moi à ce moment j'aimerai sélectionner la case "I18" pour poursuivre le remplissage de mon planning mais ça ne fonctionne pas.

Donc je suis obligé de placer mon curseur sur la case I18 de la page suivante puis revenir à la page précédente et lancer ma macro avec mon curseur à l'endroit voulu sur cette page.

Donc, j'aimerai savoir s'il y a un moyen de dire que la nouvelle cellule active est la cellule I18 de la page suivante ou alors si on peut initialiser les cellules sur la case I18 de toutes les autres pages sauf celle où je lance la macro car j'ai essayé avec Range("I18").select, etc, etc mais rien n'y fait ou alors initialiser les cellules sur la case I18 de toutes les autres pages sauf celle ou je lance la macro

Merci d'avance pour votre aide.

Bonne journée.
Cordialement,

Hengril
05/05/2010, 11h03
rvtoulon
Salut,
tu peux essayer ceci :
Code:

1 2 ActiveSheet.Next.Select Range("I18").Activate
05/05/2010, 11h09
hengril8

Déjà essayé mais cela ne fonctionne pas, sniff :cry:

En faite cette instruction rentre en conflit avec le curseur en cours d'utilisation.

Merci quand même.
05/05/2010, 11h11
rvtoulon

bizarre, parce que j'ai essayé et ça marche.
Peux-tu mettre ton code stp ?

A moins que tu es modifié l'emplacement de tes feuilles.
Quand tu ouvres un classeur tu as feuil1, feuil2, feuil3.
Si maintenant tu bouges tes feuilles de place comme ceci feuil2, feuil1,feuil3 et que tu lances la macro a partir de feuil2 alors il ira en feuil3, pas en feuil1 même si feuil1 est entre les deux.

EDIT: Activesheets.next se base sur l'index des feuilles, si j'ai compris.

Voici mon code (qui est assez lourd je pense) :

Code:

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
Private Sub CommandButton3_Click()
Dim k, m, NbPersonne As Integer
    Dim Montableau(9) As String
    Montableau(0) = "AL"
    Montableau(1) = "AM"
    Montableau(2) = "AN"
    Montableau(3) = "AO"
    Montableau(4) = "AP"
    Montableau(5) = "AQ"
    Montableau(6) = "AR"
    Montableau(7) = "AS"
    Montableau(8) = "AT"
    Montableau(9) = "AU"
    k = 0
    m = 0
    NbPersonne = 4
 
    'Clear le planning
    Sheets("Suivi hebdo").Range("AL5:AU25").ClearContents
    Sheets("Suivi hebdo").Range("AL5:AU25").Interior.ColorIndex = 2
 
    'Nombre de personnes dans le service
    For l = 45 To 65
        NomP = Sheets("Options").Range("C" & l).Value
        If Not NomP = "" Then
            NbPersonne = NbPersonne + 1
        End If
    Next l
 
    ActiveCell.Select
    Sheets("Suivi hebdo").Range("AL4").Value = Selection
 
    For i = 0 To 12
 
        'Fin de mois
        If Selection = "" Then
            For r = 0 To 9
                ValeurJour = Selection.Offset(-1, 0).Value
                StrValeurJour = Format(ValeurJour, "dddd")
                If StrValeurJour = "dimanche" Then
                   If Selection.Offset(-3, 0).Value = Sheets("Suivi hebdo").Range(Montableau(r) & 4).Value Then
                       For j = 5 To NbPersonne
                           'Astreintes
                           If Selection.Offset(-1, 1).Value = Sheets("Suivi h ebdo").Range("B" & j).Value Then
                               Sheets("Suivi hebdo").Range(Montableau(r + 1) & j).Value = "Recup."
                           End If
 
                           If Selection.Offset(-1, 2).Value = Sheets("Suivi hebdo").Range("B" & j).Value Then
                               Sheets("Suivi hebdo").Range(Montableau(r + 1) & j).Value = "Recup."
                           End If
                       Next j
                   End If
                End If
                If StrValeurJour = "samedi" Then
                   If Selection.Offset(-2, 0).Value = Sheets("Suivi hebdo").Range(Montableau(r) & 4).Value Then
                       For j = 5 To NbPersonne
                           'Astreintes
                           If Selection.Offset(-1, 1).Value = Sheets("Suivi hebdo").Range("B" & j).Value Then
                               Sheets("Suivi hebdo").Range(Montableau(r + 1) & j).Value = "Recup."
                           End If
 
                           If Selection.Offset(-1, 2).Value = Sheets("Suivi hebdo").Range("B" & j).Value Then
                               Sheets("Suivi hebdo").Range(Montableau(r + 1) & j).Value = "Recup."
                           End If
                       Next j
                   End If
                End If
                If Selection.Offset(-1, 0).Value = Sheets("Suivi hebdo").Range(Montableau(r) & 4).Value Then
                    For j = 5 To NbPersonne
                        'Astreintes
                        If Selection.Offset(-1, 1).Value = Sheets("Suivi hebdo").Range("B" & j).Value Then
                            Sheets("Suivi hebdo").Range(Montableau(r + 1) & j).Value = "Recup."
                        End If
 
                        If Selection.Offset(-1, 2).Value = Sheets("Suivi hebdo").Range("B" & j).Value Then
                            Sheets("Suivi hebdo").Range(Montableau(r + 1) & j).Value = "Recup."
                        End If
                    Next j
                End If
            Next r
            ActiveSheet.Next.Select
        End If
 
        For r = 0 To 9
            If Selection = Sheets("Suivi hebdo").Range(Montableau(r) & 4).Value Then
                For j = 5 To NbPersonne
                    ValeurJour = Selection.Value
                    StrValeurJour = Format(ValeurJour, "dddd")
                    'Astreintes
                    If Selection.Offset(-1, 1).Value = Sheets("Suivi hebdo").Range("B" & j).Value And Not StrValeurJour = "lundi" Then
                        Sheets("Suivi hebdo").Range(Montableau(r) & j).Value = "Recup."
                    End If
 
                    If StrValeurJour = "lundi" And Selection.Offset(-2, 1).Value = Sheets("Suivi hebdo").Range("B" & j).Value Then
                        Sheets("Suivi hebdo").Range(Montableau(r) & j).Value = "Recup."
                    End If
 
                    'Perms matin/soir
                    For k = 3 To 6
                        If Selection.Offset(0, k).Value = Sheets("Suivi hebdo").Range("B" & j).Value Then
                            If Sheets("Suivi hebdo").Range(Montableau(r) & j).Value = "" Then
                                Sheets("Suivi hebdo").Range(Montableau(r) & j).Value = "Inc."
                            Else
                                Valeur = Sheets("Suivi hebdo").Range(Montableau(r) & j).Value & "+ "
                                Sheets("Suivi hebdo").Range(Montableau(r) & j).Value = Valeur & "Inc."
                            End If
                        End If
                    Next k
 
                    'Préparation changement
                    If Selection.Offset(0, 7).Value = Sheets("Suivi hebdo").Range("B" & j).Value And Not TYPEJOUR(Selection) = 1 Then
                        If Sheets("Suivi hebdo").Range(Montableau(r) & j).Value = "" Then
                            Sheets("Suivi hebdo").Range(Montableau(r) & j).Value = "Prep."
                        Else
                            Valeur = Sheets("Suivi hebdo").Range(Montableau(r) & j).Value & "+ "
                            Sheets("Suivi hebdo").Range(Montableau(r) & j).Value = Valeur & "Prep."
                        End If
                    End If
 
                    'Réalisation changement
                    If Selection.Offset(0, 8).Value = Sheets("Suivi hebdo").Range("B" & j).Value And Not TYPEJOUR(Selection) = 1 Then
                        If Sheets("Suivi hebdo").Range(Montableau(r) & j).Value = "" Then
                            Sheets("Suivi hebdo").Range(Montableau(r) & j).Value = "Real."
                        Else
                            Valeur = Sheets("Suivi hebdo").Range(Montableau(r) & j).Value & "+ "
                            Sheets("Suivi hebdo").Range(Montableau(r) & j).Value = Valeur & "Real."
                        End If
                    End If
 
                    'Bulletin
                    If Not Selection.Offset(0, 19).Value = "" And Not TYPEJOUR(Selection) = 1 Then
                       If Selection.Offset(0, 19).Value = Sheets("Suivi hebdo").Range("B" & j).Value Then
                           Sheets("Suivi hebdo").Range(Montableau(r) & j).Interior.ColorIndex = 15
                       End If
                    End If
 
                    'Congé/indispo
                    For l = 10 To 18
                        If Not Selection.Offset(0, l).Value = "" And Selection.Offset(0, l).Value = Sheets("Suivi hebdo").Range("B" & j).Value Then
                            Sheets("Suivi hebdo").Range(Montableau(r) & j).Interior.ColorIndex = 56
                        End If
                    Next l
 
                    'jour férié
                    If TYPEJOUR(Selection) = 2 And Not StrValeurJour = "samedi" And Not StrValeurJour = "dimanche" Then
                        For s = 5 To NbPersonne
                            Sheets("Suivi hebdo").Range(Montableau(r) & s).ClearContents
                            Sheets("Suivi hebdo").Range(Montableau(r) & s).Interior.ColorIndex = 56
                        Next s
                    End If
                Next j
            End If
        Next r
 
        Selection.Offset(1, 0).Select
    Next i
End Sub

J'ai aussi pas très bien initialisé toutes mes variables :calim2:

Et comme ça ça fonctionne si je positionne mon curseur sur la bonne case de la feuille suivante

05/05/2010, 11h50
Didier Gonard

Bonjour,

Code:

ActiveCell.Select

c’est vbatiquement pléonasmique ! ;)

Le plus souvent l’utilisation des select est calamiteuse au niveau code et les activecell très dangereuses si l’utilisateur a la main sur les données.

Si tu veux écrire à un endroit, nomfeuille.rangexx.value = 55 permet d’aller où on veut sans select …

Si l’ordre de tes feuilles est figé (pas de déplacement, d’insertion etc..), tu peux utiliser les index genre :

Worksheets(Activesheet.index+1).range(" B5 ").value= "toto " et le 1 peut très bien être une variable compteur d’une boucle for I = 2 to worksheets.count…

cordialement,

Didier
05/05/2010, 13h37
hengril8
Re,

TROUVééééééééééééééééé :ccool::ccool::ccool::ccool:

Alors, j'avais mon range("I18").select qui planté car j'étais déjà sur l'onglet suivant alors que lui lancé l'instruction sur l'onglet précédent j'ai donc sur conseil de Ormonth (grand merci) j'ai mis en place ce code qui fonctionne maintenant :
Code:

1 2 Worksheets(ActiveSheet.Index + 1).Select ActiveSheet.Range("I18").Select
Merci à tous et bonne journée.
Cordialement,

Hengril