Bonjour,
Le script qui suit génère l'erreur 438 (propriété ou méthode non gérée par
cet objet) à la ligne "Selection.End(xlDown).Select"
Je soupçonne "ActiveSheet.Shapes("envoyerrecevoir").Select" être à la base
du problème parce que l'objet reste sélectionné (bien malgré moi!)
Merci de vos suggestions.
Private Sub Workbook_Open()
ActiveSheet.Shapes("envoyerrecevoir").Select ICI
Selection.OnAction = "Feuil4.renvoi"
Range("A4").Select
ActiveWindow.FreezePanes = True
ActiveSheet.Range("F4").Select
Selection.End(xlDown).Select ET ICI
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
--
René Delcourt
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Phil99999
Non, c'est bien le Selection.End(xlDown).Select qui plante Quel est le but de cette commande ?
Bonjour, Le script qui suit génère l'erreur 438 (propriété ou méthode non gérée par cet objet) à la ligne "Selection.End(xlDown).Select" Je soupçonne "ActiveSheet.Shapes("envoyerrecevoir").Select" être à la base du problème parce que l'objet reste sélectionné (bien malgré moi!) Merci de vos suggestions.
Private Sub Workbook_Open() ActiveSheet.Shapes("envoyerrecevoir").Select ICI Selection.OnAction = "Feuil4.renvoi" Range("A4").Select ActiveWindow.FreezePanes = True ActiveSheet.Range("F4").Select Selection.End(xlDown).Select ET ICI ActiveCell.Offset(1, 0).Range("A1").Select End Sub -- René Delcourt
Non, c'est bien le Selection.End(xlDown).Select qui plante
Quel est le but de cette commande ?
Bonjour,
Le script qui suit génère l'erreur 438 (propriété ou méthode non gérée par
cet objet) à la ligne "Selection.End(xlDown).Select"
Je soupçonne "ActiveSheet.Shapes("envoyerrecevoir").Select" être à la base
du problème parce que l'objet reste sélectionné (bien malgré moi!)
Merci de vos suggestions.
Private Sub Workbook_Open()
ActiveSheet.Shapes("envoyerrecevoir").Select ICI
Selection.OnAction = "Feuil4.renvoi"
Range("A4").Select
ActiveWindow.FreezePanes = True
ActiveSheet.Range("F4").Select
Selection.End(xlDown).Select ET ICI
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
--
René Delcourt
Non, c'est bien le Selection.End(xlDown).Select qui plante Quel est le but de cette commande ?
Bonjour, Le script qui suit génère l'erreur 438 (propriété ou méthode non gérée par cet objet) à la ligne "Selection.End(xlDown).Select" Je soupçonne "ActiveSheet.Shapes("envoyerrecevoir").Select" être à la base du problème parce que l'objet reste sélectionné (bien malgré moi!) Merci de vos suggestions.
Private Sub Workbook_Open() ActiveSheet.Shapes("envoyerrecevoir").Select ICI Selection.OnAction = "Feuil4.renvoi" Range("A4").Select ActiveWindow.FreezePanes = True ActiveSheet.Range("F4").Select Selection.End(xlDown).Select ET ICI ActiveCell.Offset(1, 0).Range("A1").Select End Sub -- René Delcourt
René Delcourt
Le but est de placer le curseur à la dernière entrée d'une colonne (qui ne correspond pas nécessairement à la dernière ligne) -- René Delcourt
Non, c'est bien le Selection.End(xlDown).Select qui plante Quel est le but de cette commande ?
Bonjour, Le script qui suit génère l'erreur 438 (propriété ou méthode non gérée par cet objet) à la ligne "Selection.End(xlDown).Select" Je soupçonne "ActiveSheet.Shapes("envoyerrecevoir").Select" être à la base du problème parce que l'objet reste sélectionné (bien malgré moi!) Merci de vos suggestions.
Private Sub Workbook_Open() ActiveSheet.Shapes("envoyerrecevoir").Select ICI Selection.OnAction = "Feuil4.renvoi" Range("A4").Select ActiveWindow.FreezePanes = True ActiveSheet.Range("F4").Select Selection.End(xlDown).Select ET ICI ActiveCell.Offset(1, 0).Range("A1").Select End Sub -- René Delcourt
Le but est de placer le curseur à la dernière entrée d'une colonne (qui ne
correspond pas nécessairement à la dernière ligne)
--
René Delcourt
Non, c'est bien le Selection.End(xlDown).Select qui plante
Quel est le but de cette commande ?
Bonjour,
Le script qui suit génère l'erreur 438 (propriété ou méthode non gérée par
cet objet) à la ligne "Selection.End(xlDown).Select"
Je soupçonne "ActiveSheet.Shapes("envoyerrecevoir").Select" être à la base
du problème parce que l'objet reste sélectionné (bien malgré moi!)
Merci de vos suggestions.
Private Sub Workbook_Open()
ActiveSheet.Shapes("envoyerrecevoir").Select ICI
Selection.OnAction = "Feuil4.renvoi"
Range("A4").Select
ActiveWindow.FreezePanes = True
ActiveSheet.Range("F4").Select
Selection.End(xlDown).Select ET ICI
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
--
René Delcourt
Le but est de placer le curseur à la dernière entrée d'une colonne (qui ne correspond pas nécessairement à la dernière ligne) -- René Delcourt
Non, c'est bien le Selection.End(xlDown).Select qui plante Quel est le but de cette commande ?
Bonjour, Le script qui suit génère l'erreur 438 (propriété ou méthode non gérée par cet objet) à la ligne "Selection.End(xlDown).Select" Je soupçonne "ActiveSheet.Shapes("envoyerrecevoir").Select" être à la base du problème parce que l'objet reste sélectionné (bien malgré moi!) Merci de vos suggestions.
Private Sub Workbook_Open() ActiveSheet.Shapes("envoyerrecevoir").Select ICI Selection.OnAction = "Feuil4.renvoi" Range("A4").Select ActiveWindow.FreezePanes = True ActiveSheet.Range("F4").Select Selection.End(xlDown).Select ET ICI ActiveCell.Offset(1, 0).Range("A1").Select End Sub -- René Delcourt
Phil99999
D'acc alors en remplacement des deux lignes : ActiveSheet.Range("F4").Select Selection.End(xlDown).Select
C'est : Range("F4").End(xlDown).Select
Le but est de placer le curseur à la dernière entrée d'une colonne (qui ne correspond pas nécessairement à la dernière ligne) -- René Delcourt
Non, c'est bien le Selection.End(xlDown).Select qui plante Quel est le but de cette commande ?
Bonjour, Le script qui suit génère l'erreur 438 (propriété ou méthode non gérée par cet objet) à la ligne "Selection.End(xlDown).Select" Je soupçonne "ActiveSheet.Shapes("envoyerrecevoir").Select" être à la base du problème parce que l'objet reste sélectionné (bien malgré moi!) Merci de vos suggestions.
Private Sub Workbook_Open() ActiveSheet.Shapes("envoyerrecevoir").Select ICI Selection.OnAction = "Feuil4.renvoi" Range("A4").Select ActiveWindow.FreezePanes = True ActiveSheet.Range("F4").Select Selection.End(xlDown).Select ET ICI ActiveCell.Offset(1, 0).Range("A1").Select End Sub -- René Delcourt
D'acc alors en remplacement des deux lignes :
ActiveSheet.Range("F4").Select
Selection.End(xlDown).Select
C'est :
Range("F4").End(xlDown).Select
Le but est de placer le curseur à la dernière entrée d'une colonne (qui ne
correspond pas nécessairement à la dernière ligne)
--
René Delcourt
Non, c'est bien le Selection.End(xlDown).Select qui plante
Quel est le but de cette commande ?
Bonjour,
Le script qui suit génère l'erreur 438 (propriété ou méthode non gérée par
cet objet) à la ligne "Selection.End(xlDown).Select"
Je soupçonne "ActiveSheet.Shapes("envoyerrecevoir").Select" être à la base
du problème parce que l'objet reste sélectionné (bien malgré moi!)
Merci de vos suggestions.
Private Sub Workbook_Open()
ActiveSheet.Shapes("envoyerrecevoir").Select ICI
Selection.OnAction = "Feuil4.renvoi"
Range("A4").Select
ActiveWindow.FreezePanes = True
ActiveSheet.Range("F4").Select
Selection.End(xlDown).Select ET ICI
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
--
René Delcourt
D'acc alors en remplacement des deux lignes : ActiveSheet.Range("F4").Select Selection.End(xlDown).Select
C'est : Range("F4").End(xlDown).Select
Le but est de placer le curseur à la dernière entrée d'une colonne (qui ne correspond pas nécessairement à la dernière ligne) -- René Delcourt
Non, c'est bien le Selection.End(xlDown).Select qui plante Quel est le but de cette commande ?
Bonjour, Le script qui suit génère l'erreur 438 (propriété ou méthode non gérée par cet objet) à la ligne "Selection.End(xlDown).Select" Je soupçonne "ActiveSheet.Shapes("envoyerrecevoir").Select" être à la base du problème parce que l'objet reste sélectionné (bien malgré moi!) Merci de vos suggestions.
Private Sub Workbook_Open() ActiveSheet.Shapes("envoyerrecevoir").Select ICI Selection.OnAction = "Feuil4.renvoi" Range("A4").Select ActiveWindow.FreezePanes = True ActiveSheet.Range("F4").Select Selection.End(xlDown).Select ET ICI ActiveCell.Offset(1, 0).Range("A1").Select End Sub -- René Delcourt
René Delcourt
C'est ok. Merci -- René Delcourt
D'acc alors en remplacement des deux lignes : ActiveSheet.Range("F4").Select Selection.End(xlDown).Select
C'est : Range("F4").End(xlDown).Select
Le but est de placer le curseur à la dernière entrée d'une colonne (qui ne correspond pas nécessairement à la dernière ligne) -- René Delcourt
Non, c'est bien le Selection.End(xlDown).Select qui plante Quel est le but de cette commande ?
Bonjour, Le script qui suit génère l'erreur 438 (propriété ou méthode non gérée par cet objet) à la ligne "Selection.End(xlDown).Select" Je soupçonne "ActiveSheet.Shapes("envoyerrecevoir").Select" être à la base du problème parce que l'objet reste sélectionné (bien malgré moi!) Merci de vos suggestions.
Private Sub Workbook_Open() ActiveSheet.Shapes("envoyerrecevoir").Select ICI Selection.OnAction = "Feuil4.renvoi" Range("A4").Select ActiveWindow.FreezePanes = True ActiveSheet.Range("F4").Select Selection.End(xlDown).Select ET ICI ActiveCell.Offset(1, 0).Range("A1").Select End Sub -- René Delcourt
C'est ok.
Merci
--
René Delcourt
D'acc alors en remplacement des deux lignes :
ActiveSheet.Range("F4").Select
Selection.End(xlDown).Select
C'est :
Range("F4").End(xlDown).Select
Le but est de placer le curseur à la dernière entrée d'une colonne (qui ne
correspond pas nécessairement à la dernière ligne)
--
René Delcourt
Non, c'est bien le Selection.End(xlDown).Select qui plante
Quel est le but de cette commande ?
Bonjour,
Le script qui suit génère l'erreur 438 (propriété ou méthode non gérée par
cet objet) à la ligne "Selection.End(xlDown).Select"
Je soupçonne "ActiveSheet.Shapes("envoyerrecevoir").Select" être à la base
du problème parce que l'objet reste sélectionné (bien malgré moi!)
Merci de vos suggestions.
Private Sub Workbook_Open()
ActiveSheet.Shapes("envoyerrecevoir").Select ICI
Selection.OnAction = "Feuil4.renvoi"
Range("A4").Select
ActiveWindow.FreezePanes = True
ActiveSheet.Range("F4").Select
Selection.End(xlDown).Select ET ICI
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
--
René Delcourt
D'acc alors en remplacement des deux lignes : ActiveSheet.Range("F4").Select Selection.End(xlDown).Select
C'est : Range("F4").End(xlDown).Select
Le but est de placer le curseur à la dernière entrée d'une colonne (qui ne correspond pas nécessairement à la dernière ligne) -- René Delcourt
Non, c'est bien le Selection.End(xlDown).Select qui plante Quel est le but de cette commande ?
Bonjour, Le script qui suit génère l'erreur 438 (propriété ou méthode non gérée par cet objet) à la ligne "Selection.End(xlDown).Select" Je soupçonne "ActiveSheet.Shapes("envoyerrecevoir").Select" être à la base du problème parce que l'objet reste sélectionné (bien malgré moi!) Merci de vos suggestions.
Private Sub Workbook_Open() ActiveSheet.Shapes("envoyerrecevoir").Select ICI Selection.OnAction = "Feuil4.renvoi" Range("A4").Select ActiveWindow.FreezePanes = True ActiveSheet.Range("F4").Select Selection.End(xlDown).Select ET ICI ActiveCell.Offset(1, 0).Range("A1").Select End Sub -- René Delcourt
