Positionnement

[Hamb]

Bonjour le Forum,

J’ai un petit enfin non un gros problème !
Lorsque j’exécute cette procédure à la sortie obligatoirement il se positionne en « A4 ».

Private Sub recepplanningsemaine1_Click()
Sheets("Recep_Salaries").Select
recepplanning.Hide
ActiveSheet.Unprotect
Range("T23:AO54").Select
Selection.Copy
Range("T274").Select
ActiveSheet.Paste

MsgBox "ok"
ActiveSheet.Range("v276").Select

End Sub

Alors que normalement il devrait se positionner en “v276”. Le copier-coller s’effectue bien mais pas le positionnement final en « v276 » il se retrouve en « a4 ».
Si quelqu’un pouvait me dire ou ça coince je suis preneur car la je sèche, enfin je sèche souvent mais la c’est plus grave.
Cordialement

 

[Luki]

Re : Positionnement

Salut,

Essaie avec :
ActiveSheet.Range("v276").Activate

 

[RENAUDER]

Re : Positionnement

Bonjour,
Tu as essayé
Application.Goto Reference:=Worksheets("Recep_Salaries").Range("V276"), _
scroll:=True

 

[Hamb]

Re : Positionnement

Re bonjour,

J’ai essayé les deux formules rien à faire il me renvoie systématiquement en « A4 ».. snif
Une autre idée ???

Cordialement

 

[Gorfael]

Re : Positionnement

Bonjour le Forum,

J’ai un petit enfin non un gros problème !
Lorsque j’exécute cette procédure à la sortie obligatoirement il se positionne en « A4 ».

Private Sub recepplanningsemaine1_Click()
Sheets("Recep_Salaries").Select
recepplanning.Hide
ActiveSheet.Unprotect
Range("T23:AO54").Select
Selection.Copy
Range("T274").Select
ActiveSheet.Paste

MsgBox "ok"
ActiveSheet.Range("v276").Select

End Sub

Alors que normalement il devrait se positionner en “v276”. Le copier-coller s’effectue bien mais pas le positionnement final en « v276 » il se retrouve en « a4 ».
Si quelqu’un pouvait me dire ou ça coince je suis preneur car la je sèche, enfin je sèche souvent mais la c’est plus grave.
Cordialement

Salut
Pas d'erreur "Brute" de détectée, mais le fichier contient peut-être des macros à lancement automatique, et vu la syntaxe de cette macro, l'autre interréagit peut-être. Regardes si ton fichier ne comprte pas des instructions commençant par "Application." ou des gestions d'erreur qui bloquent ta macro

Exécute ta macro en mode Pas-à-pas et contrôle à cheque instruction ce qu'elle fait (si tu peux, bien évidemment 😛

Sinon :
Private Sub recepplanningsemaine1_Click()
Sheets("Recep_Salaries").Select
recepplanning.Hide
ActiveSheet.Unprotect
Range("T23:AO54").Copy Range("T274")

MsgBox "ok"
Range("v276").activate
End Sub

Mais, vraisemblablement, ça ne changera pas grand chose.

A+
NB tu Unprotect, mais pas Protect après ?

 

[Hamb]

Re : Positionnement

Bonjour Gorfael,

Effectivement ça ne fonctionne pas, tjr en final « a4 ». je vais tenter de vérifier si quelque chose bloque mais je ne sais pas faire depuis l’éditeur du pas a pas.
Si tu pouvais me dire comment faire je vais essayer.
Par contre j’ai intégré ta macro elle est plus courte que la mienne héhé et fonctionne aussi bien .

Cordialement

 

[Gorfael]

Re : Positionnement

Bonjour Gorfael,

Effectivement ça ne fonctionne pas, tjr en final « a4 ». je vais tenter de vérifier si quelque chose bloque mais je ne sais pas faire depuis l’éditeur du pas a pas.
Si tu pouvais me dire comment faire je vais essayer.
Par contre j’ai intégré ta macro elle est plus courte que la mienne héhé et fonctionne aussi bien .

Cordialement

Salut
tu mets un point d'arrêt sur la ligne de titre de la macro (clic sur la barre grise àa gauche du code, un rond marron aaparait)
tu lances la macro
la ligne qu'elle effectuera au prochain pas est surlignée en jaune
Tu utilises la touche F8 pour exécuter la ligne surlignée et passer à la suivante

Quand tu sais où ça bloque, tu peux remettre un point d'arrêt et utiliser la touche F5 pour aller de point d'arrêt en point d'arrêt

Quand je debuggue, je passes les lignes pouvant créer l'erreur ou me founissant des valeurs de données en pas-à-pas avec F8 et le reste ne rapide avec F5

A+