Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then
Application.EnableEvents = False
Target.Copy
Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation
Target.Offset(1, 0).PasteSpecial Paste:=xlFormats
Application.EnableEvents = True
ActiveCell.Offset(-1, 1).Select
End If
ActiveWorkbook.RefreshAll
End Sub
Qui me permet d'étendre des zones de validation de données à chaque nouvelle
saisie.
Mon probléme est le suivant à chaque saisie j'ai ce message normal
"sélectionnez une destination et appuyer sur Entrée"
Hors je ne veux recopier que les listes de validation et non le contenu des
cellules.
Quelqu'un aurait-il la solution
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-4, 19/02/2007
Analyse le : 19/02/2007 10:16:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
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
JB
Bonjour,
Dans la PJ, je n'obtient pas de message
http://cjoint.com/?ctlbjT7X2v
JB
On 19 fév, 10:16, "Pascal" wrote:
Bonjour, J'ai ce code
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then Application.EnableEvents = False Target.Copy Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation Target.Offset(1, 0).PasteSpecial Paste:=xlFormats Application.EnableEvents = True ActiveCell.Offset(-1, 1).Select End If ActiveWorkbook.RefreshAll End Sub
Qui me permet d'étendre des zones de validation de données à chaque nouvelle saisie. Mon probléme est le suivant à chaque saisie j'ai ce message normal "sélectionnez une destination et appuyer sur Entrée" Hors je ne veux recopier que les listes de validation et non le contenu d es cellules.
Quelqu'un aurait-il la solution
Merci
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000714-4, 19/02/2007 Analyse le : 19/02/2007 10:16:48 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
Dans la PJ, je n'obtient pas de message
http://cjoint.com/?ctlbjT7X2v
JB
On 19 fév, 10:16, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour,
J'ai ce code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then
Application.EnableEvents = False
Target.Copy
Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation
Target.Offset(1, 0).PasteSpecial Paste:=xlFormats
Application.EnableEvents = True
ActiveCell.Offset(-1, 1).Select
End If
ActiveWorkbook.RefreshAll
End Sub
Qui me permet d'étendre des zones de validation de données à chaque nouvelle
saisie.
Mon probléme est le suivant à chaque saisie j'ai ce message normal
"sélectionnez une destination et appuyer sur Entrée"
Hors je ne veux recopier que les listes de validation et non le contenu d es
cellules.
Quelqu'un aurait-il la solution
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-4, 19/02/2007
Analyse le : 19/02/2007 10:16:48
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then Application.EnableEvents = False Target.Copy Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation Target.Offset(1, 0).PasteSpecial Paste:=xlFormats Application.EnableEvents = True ActiveCell.Offset(-1, 1).Select End If ActiveWorkbook.RefreshAll End Sub
Qui me permet d'étendre des zones de validation de données à chaque nouvelle saisie. Mon probléme est le suivant à chaque saisie j'ai ce message normal "sélectionnez une destination et appuyer sur Entrée" Hors je ne veux recopier que les listes de validation et non le contenu d es cellules.
Quelqu'un aurait-il la solution
Merci
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000714-4, 19/02/2007 Analyse le : 19/02/2007 10:16:48 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Pascal
Bonjour Jacques Je t'envoie mon exemple http://www.cijoint.fr/cij10519719644939.xls
"JB" a écrit dans le message de news:
Bonjour,
Dans la PJ, je n'obtient pas de message
http://cjoint.com/?ctlbjT7X2v
JB
On 19 fév, 10:16, "Pascal" wrote:
Bonjour, J'ai ce code
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then Application.EnableEvents = False Target.Copy Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation Target.Offset(1, 0).PasteSpecial Paste:=xlFormats Application.EnableEvents = True ActiveCell.Offset(-1, 1).Select End If ActiveWorkbook.RefreshAll End Sub
Qui me permet d'étendre des zones de validation de données à chaque nouvelle saisie. Mon probléme est le suivant à chaque saisie j'ai ce message normal "sélectionnez une destination et appuyer sur Entrée" Hors je ne veux recopier que les listes de validation et non le contenu des cellules.
Quelqu'un aurait-il la solution
Merci
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000714-4, 19/02/2007 Analyse le : 19/02/2007 10:16:48 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000714-4, 19/02/2007 Analyse le : 19/02/2007 11:03:10 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000714-4, 19/02/2007 Analyse le : 19/02/2007 11:06:02 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Bonjour Jacques
Je t'envoie mon exemple
http://www.cijoint.fr/cij10519719644939.xls
"JB" <jacques.boisgontier@gmail.com> a écrit dans le message de news:
1171879315.376073.199840@v45g2000cwv.googlegroups.com...
Bonjour,
Dans la PJ, je n'obtient pas de message
http://cjoint.com/?ctlbjT7X2v
JB
On 19 fév, 10:16, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour,
J'ai ce code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then
Application.EnableEvents = False
Target.Copy
Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation
Target.Offset(1, 0).PasteSpecial Paste:=xlFormats
Application.EnableEvents = True
ActiveCell.Offset(-1, 1).Select
End If
ActiveWorkbook.RefreshAll
End Sub
Qui me permet d'étendre des zones de validation de données à chaque
nouvelle
saisie.
Mon probléme est le suivant à chaque saisie j'ai ce message normal
"sélectionnez une destination et appuyer sur Entrée"
Hors je ne veux recopier que les listes de validation et non le contenu
des
cellules.
Quelqu'un aurait-il la solution
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-4, 19/02/2007
Analyse le : 19/02/2007 10:16:48
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000714-4, 19/02/2007
Analyse le : 19/02/2007 11:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-4, 19/02/2007
Analyse le : 19/02/2007 11:06:02
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour Jacques Je t'envoie mon exemple http://www.cijoint.fr/cij10519719644939.xls
"JB" a écrit dans le message de news:
Bonjour,
Dans la PJ, je n'obtient pas de message
http://cjoint.com/?ctlbjT7X2v
JB
On 19 fév, 10:16, "Pascal" wrote:
Bonjour, J'ai ce code
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then Application.EnableEvents = False Target.Copy Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation Target.Offset(1, 0).PasteSpecial Paste:=xlFormats Application.EnableEvents = True ActiveCell.Offset(-1, 1).Select End If ActiveWorkbook.RefreshAll End Sub
Qui me permet d'étendre des zones de validation de données à chaque nouvelle saisie. Mon probléme est le suivant à chaque saisie j'ai ce message normal "sélectionnez une destination et appuyer sur Entrée" Hors je ne veux recopier que les listes de validation et non le contenu des cellules.
Quelqu'un aurait-il la solution
Merci
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000714-4, 19/02/2007 Analyse le : 19/02/2007 10:16:48 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000714-4, 19/02/2007 Analyse le : 19/02/2007 11:03:10 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000714-4, 19/02/2007 Analyse le : 19/02/2007 11:06:02 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Elliac
Bonjour Pascal,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then Application.EnableEvents = False Target.Copy Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation Target.Offset(1, 0).PasteSpecial Paste:=xlFormats Application.CutCopyModeúlse Application.EnableEvents = True ActiveCell.Offset(-1, 1).Select End If ActiveWorkbook.RefreshAll End Sub
Camille
"Pascal" wrote:
Bonjour, J'ai ce code
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then Application.EnableEvents = False Target.Copy Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation Target.Offset(1, 0).PasteSpecial Paste:=xlFormats Application.EnableEvents = True ActiveCell.Offset(-1, 1).Select End If ActiveWorkbook.RefreshAll End Sub
Qui me permet d'étendre des zones de validation de données à chaque nouvelle saisie. Mon probléme est le suivant à chaque saisie j'ai ce message normal "sélectionnez une destination et appuyer sur Entrée" Hors je ne veux recopier que les listes de validation et non le contenu des cellules.
Quelqu'un aurait-il la solution
Merci
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000714-4, 19/02/2007 Analyse le : 19/02/2007 10:16:48 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Bonjour Pascal,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then
Application.EnableEvents = False
Target.Copy
Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation
Target.Offset(1, 0).PasteSpecial Paste:=xlFormats
Application.CutCopyModeúlse
Application.EnableEvents = True
ActiveCell.Offset(-1, 1).Select
End If
ActiveWorkbook.RefreshAll
End Sub
Camille
"Pascal" wrote:
Bonjour,
J'ai ce code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then
Application.EnableEvents = False
Target.Copy
Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation
Target.Offset(1, 0).PasteSpecial Paste:=xlFormats
Application.EnableEvents = True
ActiveCell.Offset(-1, 1).Select
End If
ActiveWorkbook.RefreshAll
End Sub
Qui me permet d'étendre des zones de validation de données à chaque nouvelle
saisie.
Mon probléme est le suivant à chaque saisie j'ai ce message normal
"sélectionnez une destination et appuyer sur Entrée"
Hors je ne veux recopier que les listes de validation et non le contenu des
cellules.
Quelqu'un aurait-il la solution
Merci
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-4, 19/02/2007
Analyse le : 19/02/2007 10:16:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then Application.EnableEvents = False Target.Copy Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation Target.Offset(1, 0).PasteSpecial Paste:=xlFormats Application.CutCopyModeúlse Application.EnableEvents = True ActiveCell.Offset(-1, 1).Select End If ActiveWorkbook.RefreshAll End Sub
Camille
"Pascal" wrote:
Bonjour, J'ai ce code
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 1 And Target.Column <= 6 And Target.Count = 1 Then Application.EnableEvents = False Target.Copy Target.Offset(1, 0).PasteSpecial Paste:=xlPasteValidation Target.Offset(1, 0).PasteSpecial Paste:=xlFormats Application.EnableEvents = True ActiveCell.Offset(-1, 1).Select End If ActiveWorkbook.RefreshAll End Sub
Qui me permet d'étendre des zones de validation de données à chaque nouvelle saisie. Mon probléme est le suivant à chaque saisie j'ai ce message normal "sélectionnez une destination et appuyer sur Entrée" Hors je ne veux recopier que les listes de validation et non le contenu des cellules.
Quelqu'un aurait-il la solution
Merci
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000714-4, 19/02/2007 Analyse le : 19/02/2007 10:16:48 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
