Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
bonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
bonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
bonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
Merci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
Merci Beaucoup isabelle
bonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
Merci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End SubMerci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End Sub
Merci Beaucoup isabelle
bonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End SubMerci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End SubMerci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End Sub
Merci Beaucoup isabelle
bonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End SubMerci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End SubMerci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne ÃÆ D5, mais
j'aimerais aussi remonter ÃÆ la ligne 1.
Merci ÃÆ l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistr̮̩e le 2004-05-14
Set Plg > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?
bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End Sub
Merci Beaucoup isabelle
bonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne ÃÆ D5, mais
j'aimerais aussi remonter ÃÆ la ligne 1.
Merci ÃÆ l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistr̮̩e le 2004-05-14
Set Plg > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End SubMerci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne ÃÆ D5, mais
j'aimerais aussi remonter ÃÆ la ligne 1.
Merci ÃÆ l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistr̮̩e le 2004-05-14
Set Plg > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
lorsque tu exécutais seulement :
Set Plg =
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
il n'y avait pas d'erreur à la ligne: Range("D5").Select ?
isabelle
Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End SubMerci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
lorsque tu exécutais seulement :
Set Plg =
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
il n'y avait pas d'erreur à la ligne: Range("D5").Select ?
isabelle
Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?
bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End Sub
Merci Beaucoup isabelle
bonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
lorsque tu exécutais seulement :
Set Plg =
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
il n'y avait pas d'erreur à la ligne: Range("D5").Select ?
isabelle
Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End SubMerci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
Non aucune erreur ca fonctionnais bienlorsque tu exécutais seulement :
Set Plg > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
il n'y avait pas d'erreur à la ligne: Range("D5").Select ?
isabelle
Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("ÃÆêtes-vous sÃÆûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End SubMerci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne ÃÆÃâ D5, mais
j'aimerais aussi remonter ÃÆÃâ la ligne 1.
Merci ÃÆÃâ l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistr̮̩̉̉e le 2004-05-14
Set Plg > > > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
Non aucune erreur ca fonctionnais bien
lorsque tu exécutais seulement :
Set Plg > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
il n'y avait pas d'erreur à la ligne: Range("D5").Select ?
isabelle
Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?
bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("ÃÆêtes-vous sÃÆûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End Sub
Merci Beaucoup isabelle
bonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne ÃÆÃâ D5, mais
j'aimerais aussi remonter ÃÆÃâ la ligne 1.
Merci ÃÆÃâ l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistr̮̩̉̉e le 2004-05-14
Set Plg > > > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
Non aucune erreur ca fonctionnais bienlorsque tu exécutais seulement :
Set Plg > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
il n'y avait pas d'erreur à la ligne: Range("D5").Select ?
isabelle
Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("ÃÆêtes-vous sÃÆûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End SubMerci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne ÃÆÃâ D5, mais
j'aimerais aussi remonter ÃÆÃâ la ligne 1.
Merci ÃÆÃâ l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistr̮̩̉̉e le 2004-05-14
Set Plg > > > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
je n'arrive pas à reproduire ton problème même en verrouillant la cellule A1 et en protégeant la feuille.
si tu veut bien tenter un autre essaie avec :
Set Plg =
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("A1").Select
Range("D5").Select
isabelle
Non aucune erreur ca fonctionnais bienlorsque tu exécutais seulement :
Set Plg > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
il n'y avait pas d'erreur à la ligne: Range("D5").Select ?
isabelle
Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End SubMerci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
je n'arrive pas à reproduire ton problème même en verrouillant la cellule A1 et en protégeant la feuille.
si tu veut bien tenter un autre essaie avec :
Set Plg =
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("A1").Select
Range("D5").Select
isabelle
Non aucune erreur ca fonctionnais bien
lorsque tu exécutais seulement :
Set Plg > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
il n'y avait pas d'erreur à la ligne: Range("D5").Select ?
isabelle
Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?
bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End Sub
Merci Beaucoup isabelle
bonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub
je n'arrive pas à reproduire ton problème même en verrouillant la cellule A1 et en protégeant la feuille.
si tu veut bien tenter un autre essaie avec :
Set Plg =
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("A1").Select
Range("D5").Select
isabelle
Non aucune erreur ca fonctionnais bienlorsque tu exécutais seulement :
Set Plg > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
il n'y avait pas d'erreur à la ligne: Range("D5").Select ?
isabelle
Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?bonjour Aiwa,
essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True
par,
Application.Goto Reference:=Range("A1"), Scroll:=True
isabelle
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore
Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End SubMerci Beaucoup isabellebonjour Aiwa,
Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select
isabelle
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.
Merci à l'avance
Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14
Set Plg > > > > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub