Revenir à la première ligne à la fin d'une macro

**Vincent32** · 10/11/2010, 14h54

Bonjour à tous,

Je souhaiterais savoir comment revenir à la première ligne du classeur (de manière automatique à l'issue de ma macro.

J'ai essayé le code suivant qui ne fonctionne pas :

Code :

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

1
2
 
Sheets("nom de la feuille").Cells(ligne désirée, colonne désirée).Select

Une idée ?

Merci pour votre aide

Cordialement

Vincent

**rvtoulon** · 10/11/2010, 15h06

bonjour,
et comme çà :

Code :

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

Sheets("Feuil1").Rows(1).Select

EDIT:
ou comme çà:

Code :

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

Sheets("Feuil1").Cells(1, 1).EntireRow.Select

**fring** · 10/11/2010, 15h18

Bonjour,

Attention, pour pouvoir sélectionner une cellule dans une feuille, il faut que cette feuille soit la feuille active

Code :

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

1
2
Sheets("nom de la feuille").Activate
Cells(ligne désirée, colonne désirée).Select

**Vincent32** · 10/11/2010, 15h29

Les solutions proposées ne fonctionnent pas.

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
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
 
Sub Budget()
 
'
' Budget Macro
' Macro enregistrée le 02/09/2010 par richarde
' Calculs des budgets total et dpt
'
 
Dim labo As String
Dim Dpt As String
 
Dim ligne As Integer
 
Dim Choix As String
 
Dim BudgetR052 As Single
Dim BudgetR053 As Single
Dim BudgetTot As Single
Dim BudgetAtt As Single
Dim BudgetAttR052 As Single
Dim BudgetAttR053 As Single
 
Dim PctR052 As Integer
Dim PctR053 As Integer
Dim PctAttR052 As Integer
Dim PctAttR053 As Integer
 
 
ligne = 7
For Each Cell In Range("H7:H500")
    Choix = Cells(ligne, 12)
    If Choix = "Validé" Then
        BudgetTot = BudgetTot + Cell.Value
    ElseIf Choix = "En attente" Then
        BudgetAtt = BudgetAtt + Cell.Value
    End If
    ligne = ligne + 1
Next
 
ligne = 7
For Each Cell In Range("B7:B500")
    Choix = Cells(ligne, 12)
    labo = Cell.Value
    Dpt = Mid(labo, 4, 1)
    If Choix = "Validé" Then
        If Dpt = "2" Then
            BudgetR052 = BudgetR052 + Cells(ligne, 8).Value
        Else
            BudgetR053 = BudgetR053 + Cells(ligne, 8).Value
        End If
    ElseIf Choix = "En attente" Then
    If Dpt = "2" Then
            BudgetAttR052 = BudgetAttR052 + Cells(ligne, 8).Value
        Else
            BudgetAttR053 = BudgetAttR053 + Cells(ligne, 8).Value
        End If
    End If
    ligne = ligne + 1
Next
 
If BugdetTot = "0" Then
    PctR052 = 0
    PctR053 = 0
ElseIf BudgetTot > 0 Then
    PctR052 = BudgetR052 / BudgetTot * 100
    PctR053 = BudgetR053 / BudgetTot * 100
End If
 
If BugdetAtt = "0" Then
    PctAttR052 = 0
    PctAttR053 = 0
ElseIf BudgetAtt > 0 Then
    PctAttR052 = BudgetAttR052 / BudgetAtt * 100
    PctAttR053 = BudgetAttR053 / BudgetAtt * 100
End If
 
Range("F1") = BudgetTot
Range("F2") = PctR052 & "%"
Range("F3") = PctR053 & "%"
Range("H1") = BudgetAtt
Range("H2") = PctAttR052 & "%"
Range("H3") = PctAttR053 & "%"
 
 
Sheets("Recueil 2011").Activate
Cells(1, 1).Select
 
End Sub

Vincent

**rvtoulon** · 10/11/2010, 15h36

remplace:

Code :

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

1
2
Sheets("Recueil 2011").Activate
Cells(1, 1).Select

par ceci:

Code :

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

1
2
Sheets("Recueil 2011").Activate
Cells(1, 1).EntireRow.Select

cells (1,1)sélectionne une cellule ici A1
cells (1,1).entirerow sélectionne la ligne entière

**Vincent32** · 10/11/2010, 15h41

En fait,

Peu m'importe qu'il sélectionne une ligne ou une cellule, ce qui m'intéresse c'est qu'une fois la macro finie, la ligne 1 de ma feuille doit être visible (et non pas la 147 ou la 235).

J'ai également omis de préciser que ma fenêtre est fractionnée (je ne sais pas si cela à une importance).

Or pour l'instant la ligne qui apparaît à l'écran est la dernière colorée.

**MarcelG** · 10/11/2010, 15h46

Bonjour,

Dans ce cas,

Code :

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

ActiveWindow.ScrollRow = 1

(voir aide en ligne)

Cordialement.

Marcel

**rvtoulon** · 10/11/2010, 15h53

J'ai également omis de préciser que ma fenêtre est fractionnée (je ne sais pas si cela à une importance).

ben oui

.
Marcel à vu juste

**Vincent32** · 10/11/2010, 16h06

ça ne fonctionne toujours pas ...

**MarcelG** · 10/11/2010, 16h11

Où as-tu-placé la ligne de code proposée ?

Sur quelle ligne ton code présente-t-il un bug ?

Quel est le message d'erreur?

Cordialement.

Marcel

**Vincent32** · 10/11/2010, 16h18

Où as-tu-placé la ligne de code proposée ?

J'ai placé la ligne de code juste avant le end sub

Sur quelle ligne ton code présente-t-il un bug ?

Quel est le message d'erreur?

Je n'ai pas de bug, ni de message d'erreur, la fen^tre ne revient simplement pas au début

sinon le code tourne correctement

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
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
Sub Budget()
 
'
' Budget Macro
' Macro enregistrée le 02/09/2010 par richarde
' Calculs des budgets total et dpt
'
 
Dim labo As String
Dim Dpt As String
 
Dim ligne As Integer
 
Dim Choix As String
 
Dim BudgetR052 As Single
Dim BudgetR053 As Single
Dim BudgetTot As Single
Dim BudgetAtt As Single
Dim BudgetAttR052 As Single
Dim BudgetAttR053 As Single
 
Dim PctR052 As Integer
Dim PctR053 As Integer
Dim PctAttR052 As Integer
Dim PctAttR053 As Integer
 
 
ligne = 7
For Each Cell In Range("H7:H500")
    Choix = Cells(ligne, 12)
    If Choix = "Validé" Then
        BudgetTot = BudgetTot + Cell.Value
    ElseIf Choix = "En attente" Then
        BudgetAtt = BudgetAtt + Cell.Value
    End If
    ligne = ligne + 1
Next
 
ligne = 7
For Each Cell In Range("B7:B500")
    Choix = Cells(ligne, 12)
    labo = Cell.Value
    Dpt = Mid(labo, 4, 1)
    If Choix = "Validé" Then
        If Dpt = "2" Then
            BudgetR052 = BudgetR052 + Cells(ligne, 8).Value
        Else
            BudgetR053 = BudgetR053 + Cells(ligne, 8).Value
        End If
    ElseIf Choix = "En attente" Then
    If Dpt = "2" Then
            BudgetAttR052 = BudgetAttR052 + Cells(ligne, 8).Value
        Else
            BudgetAttR053 = BudgetAttR053 + Cells(ligne, 8).Value
        End If
    End If
    ligne = ligne + 1
Next
 
If BugdetTot = "0" Then
    PctR052 = 0
    PctR053 = 0
ElseIf BudgetTot > 0 Then
    PctR052 = BudgetR052 / BudgetTot * 100
    PctR053 = BudgetR053 / BudgetTot * 100
End If
 
If BugdetAtt = "0" Then
    PctAttR052 = 0
    PctAttR053 = 0
ElseIf BudgetAtt > 0 Then
    PctAttR052 = BudgetAttR052 / BudgetAtt * 100
    PctAttR053 = BudgetAttR053 / BudgetAtt * 100
End If
 
Range("F1") = BudgetTot
Range("F2") = PctR052 & "%"
Range("F3") = PctR053 & "%"
Range("H1") = BudgetAtt
Range("H2") = PctAttR052 & "%"
Range("H3") = PctAttR053 & "%"
 
 
ActiveWindow.ScrollRow = 1
 
End Sub

**fring** · 10/11/2010, 16h32

Envoyé par Vincent32

J'ai également omis de préciser que ma fenêtre est fractionnée (je ne sais pas si cela à une importance).

Code :

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

1
2
ActiveWindow.Panes(1).Activate
Range("A1").Select

ou Panes(2)...Panes(3)...selon la fraction dans laquelle tu veux que cela se produit

**MarcelG** · 10/11/2010, 16h36

Sur l'aide en ligne

Note
Si la fenêtre est fractionnée, la propriété ScrollRow de l'objet Window fait référence au volet supérieur gauche. Si les volets sont figés, la propriété ScrollRow de l'objet Window exclut les zones figées.

Si tes fenêtres sont figées alors il te faut libérer les volets

Code :

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

1
2
3
4
5
6
Application.ScreenUpdating = False
With ActiveWindow
    .FreezePanes = False
    .ScrollRow = 1
    .FreezePanes = True
End With

Cordialement.

Marcel

**Vincent32** · 10/11/2010, 16h38

La fessée n'y aura rien changé, je ne reviens toujours pas à la première ligne

Sinon Marcel tu es un dieu (surtout auprès de ma collègue)

en tout cas merci à tous les trois pour votre aide

Bon week end

**fring** · 10/11/2010, 16h55

Voilà ce qui se passe lorsqu'on ne dit pas tout ou lorsqu'on s'exprime mal...
Ta fenêtre n'est pas fractionnée mais figée

**Vincent32** · 10/11/2010, 17h07

En fait elle était fractionné mais suite à la manip de marcel elle est devenu figé. Enfin le rendu est le même donc le programme fonctionne

En tout cas merci

Vincent

(Désolé j'avais oublié de cocher résolu, voilà mon erreur réparée)

**MarcelG** · 10/11/2010, 18h04

Quelle manipulation ?

A aucun moment, je n'ai commencé de code par

Code :

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

ActiveWindow.FreezePanes = True

Merci pour ta réponse.

Marcel

**Vincent32** · 16/11/2010, 07h29

Bonjour,

Désolé pour cette longue attente avant ma réponse.

Avant d'inscrire tes lignes code dans le fichier (et d'avoir fait tourner le programme), le fichier était "fractionné". une fois que j'ai fait tourner le programme, de "fractionné" mon fichier est devenu "figé" au même endroit que le fractionnement.

Au final, fractionné ou figé cela revient au même pour moi.

Je réitère tous mes remerciements au près de vous tous pour m'avoir aidé.

Bonne journée,

Cordialement

Vincent

**MarcelG** · 16/11/2010, 09h09

Bonjour Vincent, Bonjour le Forum,

Je tiens à préciser que je partais du fait que tes fenêtres étaient figées avant ma proposition de code.
C'est d'ailleurs je pense ce qu'en a conclu Fring, que je salue au passage.
Sans cela, la ligne de code proposée au départ aurait été effective.

N'ayant pas pour habitude d'encombrer le forum, j'en resterai là.

M.

Revenir à la première ligne à la fin d'une macro

Macros et VBA Excel

Discussions similaires

Partager

Partager