Bonjour, j'ai un petit probleme, j'aimerais que quand je clic sur le bouton
effacer j'aimerais que la première ligne que je voit en haut soit la ligne 7,
des fois ca marche et d'autre fois non, tous dépendant ou mon curseur est
situer.
Merci à l'avance
Voici ce que j'ai
'Sub Bouton_Effacer()
Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes The
Range("L10:O10,t10:u10,e12:i12,p12:r12,f17,m17,t17,h25:r25,h26:r26,b29:u29,b30:u30,b31:u31,b32:u32,n34:s34,d36:g36,i36:k36,n36:p36,r36:t36").ClearContents
Range("L10:O10").Select
ActiveWindow.SmallScroll Down:=6
End If
End Sub
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
isabelle
bonjour Aiwa,
Application.GoTo Reference:=[A7], Scroll:=True
isabelle
Bonjour, j'ai un petit probleme, j'aimerais que quand je clic sur le bouton effacer j'aimerais que la première ligne que je voit en haut soit la ligne 7, des fois ca marche et d'autre fois non, tous dépendant ou mon curseur est situer.
Merci à l'avance
Voici ce que j'ai 'Sub Bouton_Effacer() 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("L10:O10,t10:u10,e12:i12,p12:r12,f17,m17,t17,h25:r25,h26:r26,b29:u29,b30:u30,b31:u31,b32:u32,n34:s34,d36:g36,i36:k36,n36:p36,r36:t36").ClearContents Range("L10:O10").Select ActiveWindow.SmallScroll Down:=6 End If End Sub
bonjour Aiwa,
Application.GoTo Reference:=[A7], Scroll:=True
isabelle
Bonjour, j'ai un petit probleme, j'aimerais que quand je clic sur le bouton
effacer j'aimerais que la première ligne que je voit en haut soit la ligne 7,
des fois ca marche et d'autre fois non, tous dépendant ou mon curseur est
situer.
Merci à l'avance
Voici ce que j'ai
'Sub Bouton_Effacer()
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("L10:O10,t10:u10,e12:i12,p12:r12,f17,m17,t17,h25:r25,h26:r26,b29:u29,b30:u30,b31:u31,b32:u32,n34:s34,d36:g36,i36:k36,n36:p36,r36:t36").ClearContents
Range("L10:O10").Select
ActiveWindow.SmallScroll Down:=6
End If
End Sub
Bonjour, j'ai un petit probleme, j'aimerais que quand je clic sur le bouton effacer j'aimerais que la première ligne que je voit en haut soit la ligne 7, des fois ca marche et d'autre fois non, tous dépendant ou mon curseur est situer.
Merci à l'avance
Voici ce que j'ai 'Sub Bouton_Effacer() 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("L10:O10,t10:u10,e12:i12,p12:r12,f17,m17,t17,h25:r25,h26:r26,b29:u29,b30:u30,b31:u31,b32:u32,n34:s34,d36:g36,i36:k36,n36:p36,r36:t36").ClearContents Range("L10:O10").Select ActiveWindow.SmallScroll Down:=6 End If End Sub
Aiwa
Merci Isabelle, j'ai été oubliger de dévérouiller la cellule A7 pour que sa fonctionne, dans ce que tu ma donner peut-on modifier de quoi pour que ca fonctionne pareil meme si la cellule est vérouiller, pcq j'ai dévérouiller juste les cellule ou on doit remplir les champs, comme ca cest plus facile de ce déplacer avec TAB. Merci encore
bonjour Aiwa,
Application.GoTo Reference:=[A7], Scroll:=True
isabelle
Bonjour, j'ai un petit probleme, j'aimerais que quand je clic sur le bouton effacer j'aimerais que la première ligne que je voit en haut soit la ligne 7, des fois ca marche et d'autre fois non, tous dépendant ou mon curseur est situer.
Merci à l'avance
Voici ce que j'ai 'Sub Bouton_Effacer() 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("L10:O10,t10:u10,e12:i12,p12:r12,f17,m17,t17,h25:r25,h26:r26,b29:u29,b30:u30,b31:u31,b32:u32,n34:s34,d36:g36,i36:k36,n36:p36,r36:t36").ClearContents Range("L10:O10").Select ActiveWindow.SmallScroll Down:=6 End If End Sub
Merci Isabelle, j'ai été oubliger de dévérouiller la cellule A7 pour que sa
fonctionne, dans ce que tu ma donner peut-on modifier de quoi pour que ca
fonctionne pareil meme si la cellule est vérouiller, pcq j'ai dévérouiller
juste les cellule ou on doit remplir les champs, comme ca cest plus facile de
ce déplacer avec TAB. Merci encore
bonjour Aiwa,
Application.GoTo Reference:=[A7], Scroll:=True
isabelle
Bonjour, j'ai un petit probleme, j'aimerais que quand je clic sur le bouton
effacer j'aimerais que la première ligne que je voit en haut soit la ligne 7,
des fois ca marche et d'autre fois non, tous dépendant ou mon curseur est
situer.
Merci à l'avance
Voici ce que j'ai
'Sub Bouton_Effacer()
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("L10:O10,t10:u10,e12:i12,p12:r12,f17,m17,t17,h25:r25,h26:r26,b29:u29,b30:u30,b31:u31,b32:u32,n34:s34,d36:g36,i36:k36,n36:p36,r36:t36").ClearContents
Range("L10:O10").Select
ActiveWindow.SmallScroll Down:=6
End If
End Sub
Merci Isabelle, j'ai été oubliger de dévérouiller la cellule A7 pour que sa fonctionne, dans ce que tu ma donner peut-on modifier de quoi pour que ca fonctionne pareil meme si la cellule est vérouiller, pcq j'ai dévérouiller juste les cellule ou on doit remplir les champs, comme ca cest plus facile de ce déplacer avec TAB. Merci encore
bonjour Aiwa,
Application.GoTo Reference:=[A7], Scroll:=True
isabelle
Bonjour, j'ai un petit probleme, j'aimerais que quand je clic sur le bouton effacer j'aimerais que la première ligne que je voit en haut soit la ligne 7, des fois ca marche et d'autre fois non, tous dépendant ou mon curseur est situer.
Merci à l'avance
Voici ce que j'ai 'Sub Bouton_Effacer() 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("L10:O10,t10:u10,e12:i12,p12:r12,f17,m17,t17,h25:r25,h26:r26,b29:u29,b30:u30,b31:u31,b32:u32,n34:s34,d36:g36,i36:k36,n36:p36,r36:t36").ClearContents Range("L10:O10").Select ActiveWindow.SmallScroll Down:=6 End If End Sub
isabelle
je ne suis pas sur, peut être comme ça,
Application.GoTo Reference:=Rows(7), Scroll:=True
isabelle
Merci Isabelle, j'ai été oubliger de dévérouiller la cellule A7 pour que sa fonctionne, dans ce que tu ma donner peut-on modifier de quoi pour que ca fonctionne pareil meme si la cellule est vérouiller, pcq j'ai dévérouiller juste les cellule ou on doit remplir les champs, comme ca cest plus facile de ce déplacer avec TAB. Merci encore
bonjour Aiwa,
Application.GoTo Reference:=[A7], Scroll:=True
isabelle
Bonjour, j'ai un petit probleme, j'aimerais que quand je clic sur le bouton effacer j'aimerais que la première ligne que je voit en haut soit la ligne 7, des fois ca marche et d'autre fois non, tous dépendant ou mon curseur est situer.
Merci à l'avance
Voici ce que j'ai 'Sub Bouton_Effacer() 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("L10:O10,t10:u10,e12:i12,p12:r12,f17,m17,t17,h25:r25,h26:r26,b29:u29,b30:u30,b31:u31,b32:u32,n34:s34,d36:g36,i36:k36,n36:p36,r36:t36").ClearContents Range("L10:O10").Select ActiveWindow.SmallScroll Down:=6 End If End Sub
je ne suis pas sur, peut être comme ça,
Application.GoTo Reference:=Rows(7), Scroll:=True
isabelle
Merci Isabelle, j'ai été oubliger de dévérouiller la cellule A7 pour que sa
fonctionne, dans ce que tu ma donner peut-on modifier de quoi pour que ca
fonctionne pareil meme si la cellule est vérouiller, pcq j'ai dévérouiller
juste les cellule ou on doit remplir les champs, comme ca cest plus facile de
ce déplacer avec TAB. Merci encore
bonjour Aiwa,
Application.GoTo Reference:=[A7], Scroll:=True
isabelle
Bonjour, j'ai un petit probleme, j'aimerais que quand je clic sur le bouton
effacer j'aimerais que la première ligne que je voit en haut soit la ligne 7,
des fois ca marche et d'autre fois non, tous dépendant ou mon curseur est
situer.
Merci à l'avance
Voici ce que j'ai
'Sub Bouton_Effacer()
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("L10:O10,t10:u10,e12:i12,p12:r12,f17,m17,t17,h25:r25,h26:r26,b29:u29,b30:u30,b31:u31,b32:u32,n34:s34,d36:g36,i36:k36,n36:p36,r36:t36").ClearContents
Range("L10:O10").Select
ActiveWindow.SmallScroll Down:=6
End If
End Sub
Merci Isabelle, j'ai été oubliger de dévérouiller la cellule A7 pour que sa fonctionne, dans ce que tu ma donner peut-on modifier de quoi pour que ca fonctionne pareil meme si la cellule est vérouiller, pcq j'ai dévérouiller juste les cellule ou on doit remplir les champs, comme ca cest plus facile de ce déplacer avec TAB. Merci encore
bonjour Aiwa,
Application.GoTo Reference:=[A7], Scroll:=True
isabelle
Bonjour, j'ai un petit probleme, j'aimerais que quand je clic sur le bouton effacer j'aimerais que la première ligne que je voit en haut soit la ligne 7, des fois ca marche et d'autre fois non, tous dépendant ou mon curseur est situer.
Merci à l'avance
Voici ce que j'ai 'Sub Bouton_Effacer() 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("L10:O10,t10:u10,e12:i12,p12:r12,f17,m17,t17,h25:r25,h26:r26,b29:u29,b30:u30,b31:u31,b32:u32,n34:s34,d36:g36,i36:k36,n36:p36,r36:t36").ClearContents Range("L10:O10").Select ActiveWindow.SmallScroll Down:=6 End If End Sub
Aiwa
Ca fonctionne pas Isabelle, sil y a pas d'autre solution je vais débloque la cellule A7, mais s'il a une solution j'aimerais le savoir, merci de prendre le temps de m'aider.
je ne suis pas sur, peut être comme ça,
Application.GoTo Reference:=Rows(7), Scroll:=True
isabelle
Merci Isabelle, j'ai été oubliger de dévérouiller la cellule A7 pour que sa fonctionne, dans ce que tu ma donner peut-on modifier de quoi pour que ca fonctionne pareil meme si la cellule est vérouiller, pcq j'ai dévérouiller juste les cellule ou on doit remplir les champs, comme ca cest plus facile de ce déplacer avec TAB. Merci encore
bonjour Aiwa,
Application.GoTo Reference:=[A7], Scroll:=True
isabelle
Bonjour, j'ai un petit probleme, j'aimerais que quand je clic sur le bouton effacer j'aimerais que la première ligne que je voit en haut soit la ligne 7, des fois ca marche et d'autre fois non, tous dépendant ou mon curseur est situer.
Merci à l'avance
Voici ce que j'ai 'Sub Bouton_Effacer() 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("L10:O10,t10:u10,e12:i12,p12:r12,f17,m17,t17,h25:r25,h26:r26,b29:u29,b30:u30,b31:u31,b32:u32,n34:s34,d36:g36,i36:k36,n36:p36,r36:t36").ClearContents Range("L10:O10").Select ActiveWindow.SmallScroll Down:=6 End If End Sub
Ca fonctionne pas Isabelle, sil y a pas d'autre solution je vais débloque la
cellule A7, mais s'il a une solution j'aimerais le savoir, merci de prendre
le temps de m'aider.
je ne suis pas sur, peut être comme ça,
Application.GoTo Reference:=Rows(7), Scroll:=True
isabelle
Merci Isabelle, j'ai été oubliger de dévérouiller la cellule A7 pour que sa
fonctionne, dans ce que tu ma donner peut-on modifier de quoi pour que ca
fonctionne pareil meme si la cellule est vérouiller, pcq j'ai dévérouiller
juste les cellule ou on doit remplir les champs, comme ca cest plus facile de
ce déplacer avec TAB. Merci encore
bonjour Aiwa,
Application.GoTo Reference:=[A7], Scroll:=True
isabelle
Bonjour, j'ai un petit probleme, j'aimerais que quand je clic sur le bouton
effacer j'aimerais que la première ligne que je voit en haut soit la ligne 7,
des fois ca marche et d'autre fois non, tous dépendant ou mon curseur est
situer.
Merci à l'avance
Voici ce que j'ai
'Sub Bouton_Effacer()
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("L10:O10,t10:u10,e12:i12,p12:r12,f17,m17,t17,h25:r25,h26:r26,b29:u29,b30:u30,b31:u31,b32:u32,n34:s34,d36:g36,i36:k36,n36:p36,r36:t36").ClearContents
Range("L10:O10").Select
ActiveWindow.SmallScroll Down:=6
End If
End Sub
Ca fonctionne pas Isabelle, sil y a pas d'autre solution je vais débloque la cellule A7, mais s'il a une solution j'aimerais le savoir, merci de prendre le temps de m'aider.
je ne suis pas sur, peut être comme ça,
Application.GoTo Reference:=Rows(7), Scroll:=True
isabelle
Merci Isabelle, j'ai été oubliger de dévérouiller la cellule A7 pour que sa fonctionne, dans ce que tu ma donner peut-on modifier de quoi pour que ca fonctionne pareil meme si la cellule est vérouiller, pcq j'ai dévérouiller juste les cellule ou on doit remplir les champs, comme ca cest plus facile de ce déplacer avec TAB. Merci encore
bonjour Aiwa,
Application.GoTo Reference:=[A7], Scroll:=True
isabelle
Bonjour, j'ai un petit probleme, j'aimerais que quand je clic sur le bouton effacer j'aimerais que la première ligne que je voit en haut soit la ligne 7, des fois ca marche et d'autre fois non, tous dépendant ou mon curseur est situer.
Merci à l'avance
Voici ce que j'ai 'Sub Bouton_Effacer() 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("L10:O10,t10:u10,e12:i12,p12:r12,f17,m17,t17,h25:r25,h26:r26,b29:u29,b30:u30,b31:u31,b32:u32,n34:s34,d36:g36,i36:k36,n36:p36,r36:t36").ClearContents Range("L10:O10").Select ActiveWindow.SmallScroll Down:=6 End If End Sub
