Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
erphJcAJJHA.5704@TK2MSFTNGP02.phx.gbl...
Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
erphJcAJJHA.5704@TK2MSFTNGP02.phx.gbl...
Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
O1EQ5tAJJHA.2580@TK2MSFTNGP05.phx.gbl...
Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
erphJcAJJHA.5704@TK2MSFTNGP02.phx.gbl...
Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
O%Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
O%23V0blFJJHA.1156@TK2MSFTNGP04.phx.gbl...
Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
O1EQ5tAJJHA.2580@TK2MSFTNGP05.phx.gbl...
Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
erphJcAJJHA.5704@TK2MSFTNGP02.phx.gbl...
Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
O%Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Oui toujours Z+2
Oui toujours Z+2
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
O%Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Oui toujours Z+2
Oui toujours Z+2
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eY7L1cHJJHA.1308@TK2MSFTNGP02.phx.gbl...
Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
O%23V0blFJJHA.1156@TK2MSFTNGP04.phx.gbl...
Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
O1EQ5tAJJHA.2580@TK2MSFTNGP05.phx.gbl...
Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
erphJcAJJHA.5704@TK2MSFTNGP02.phx.gbl...
Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Oui toujours Z+2
Oui toujours Z+2
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
O%Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...Oui toujours Z+2
Alors tu es conscient que pour A1=4 la copie se fera de Z6 à Z9 donc avant
Z9
Il y a aussi que...au départ c'était
Range("AZ19:AZ34").Copy Destination:=Range("F15")
et maintenant c'est
Range("Z9:Z14").Copy Destination:=Range("F15")
Je pars sur cette dernière base
Dans un module simple cette macro
'--------------
Sub copie(chiffre)
x = chiffre + chiffre - 2
Range("Z9:Z" & x).Copy Destination:=Range("F15")
End Sub
'----------------
Dans le module de la feuille celle-ci
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Call copie(Target)
Application.EnableEvents = True
End If
End Sub
'-----------------------
Sur la feuille en A1
Donnée/validation==>autoriser==>Liste
Source==>4;5;6;7;8;9;10;11;12
voir ici
http://cjoint.com/?kcnckCaE1G
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
%Oui toujours Z+2
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
O%Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
Oui toujours Z+2
Alors tu es conscient que pour A1=4 la copie se fera de Z6 à Z9 donc avant
Z9
Il y a aussi que...au départ c'était
Range("AZ19:AZ34").Copy Destination:=Range("F15")
et maintenant c'est
Range("Z9:Z14").Copy Destination:=Range("F15")
Je pars sur cette dernière base
Dans un module simple cette macro
'--------------
Sub copie(chiffre)
x = chiffre + chiffre - 2
Range("Z9:Z" & x).Copy Destination:=Range("F15")
End Sub
'----------------
Dans le module de la feuille celle-ci
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Call copie(Target)
Application.EnableEvents = True
End If
End Sub
'-----------------------
Sur la feuille en A1
Donnée/validation==>autoriser==>Liste
Source==>4;5;6;7;8;9;10;11;12
voir ici
http://cjoint.com/?kcnckCaE1G
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
%23Ll7auHJJHA.5900@TK2MSFTNGP02.phx.gbl...
Oui toujours Z+2
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eY7L1cHJJHA.1308@TK2MSFTNGP02.phx.gbl...
Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
O%23V0blFJJHA.1156@TK2MSFTNGP04.phx.gbl...
Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
O1EQ5tAJJHA.2580@TK2MSFTNGP05.phx.gbl...
Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
erphJcAJJHA.5704@TK2MSFTNGP02.phx.gbl...
Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...Oui toujours Z+2
Alors tu es conscient que pour A1=4 la copie se fera de Z6 à Z9 donc avant
Z9
Il y a aussi que...au départ c'était
Range("AZ19:AZ34").Copy Destination:=Range("F15")
et maintenant c'est
Range("Z9:Z14").Copy Destination:=Range("F15")
Je pars sur cette dernière base
Dans un module simple cette macro
'--------------
Sub copie(chiffre)
x = chiffre + chiffre - 2
Range("Z9:Z" & x).Copy Destination:=Range("F15")
End Sub
'----------------
Dans le module de la feuille celle-ci
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Call copie(Target)
Application.EnableEvents = True
End If
End Sub
'-----------------------
Sur la feuille en A1
Donnée/validation==>autoriser==>Liste
Source==>4;5;6;7;8;9;10;11;12
voir ici
http://cjoint.com/?kcnckCaE1G
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
%Oui toujours Z+2
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
O%Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...Oui toujours Z+2
Alors tu es conscient que pour A1=4 la copie se fera de Z6 à Z9 donc avant
Z9
Il y a aussi que...au départ c'était
Range("AZ19:AZ34").Copy Destination:=Range("F15")
et maintenant c'est
Range("Z9:Z14").Copy Destination:=Range("F15")
Je pars sur cette dernière base
Dans un module simple cette macro
'--------------
Sub copie(chiffre)
x = chiffre + chiffre - 2
Range("Z9:Z" & x).Copy Destination:=Range("F15")
End Sub
'----------------
Dans le module de la feuille celle-ci
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Call copie(Target)
Application.EnableEvents = True
End If
End Sub
'-----------------------
Sur la feuille en A1
Donnée/validation==>autoriser==>Liste
Source==>4;5;6;7;8;9;10;11;12
voir ici
http://cjoint.com/?kcnckCaE1G
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
%Oui toujours Z+2
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
O%Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
Oui toujours Z+2
Alors tu es conscient que pour A1=4 la copie se fera de Z6 à Z9 donc avant
Z9
Il y a aussi que...au départ c'était
Range("AZ19:AZ34").Copy Destination:=Range("F15")
et maintenant c'est
Range("Z9:Z14").Copy Destination:=Range("F15")
Je pars sur cette dernière base
Dans un module simple cette macro
'--------------
Sub copie(chiffre)
x = chiffre + chiffre - 2
Range("Z9:Z" & x).Copy Destination:=Range("F15")
End Sub
'----------------
Dans le module de la feuille celle-ci
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Call copie(Target)
Application.EnableEvents = True
End If
End Sub
'-----------------------
Sur la feuille en A1
Donnée/validation==>autoriser==>Liste
Source==>4;5;6;7;8;9;10;11;12
voir ici
http://cjoint.com/?kcnckCaE1G
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
%23Ll7auHJJHA.5900@TK2MSFTNGP02.phx.gbl...
Oui toujours Z+2
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eY7L1cHJJHA.1308@TK2MSFTNGP02.phx.gbl...
Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
O%23V0blFJJHA.1156@TK2MSFTNGP04.phx.gbl...
Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
O1EQ5tAJJHA.2580@TK2MSFTNGP05.phx.gbl...
Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
erphJcAJJHA.5704@TK2MSFTNGP02.phx.gbl...
Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...Oui toujours Z+2
Alors tu es conscient que pour A1=4 la copie se fera de Z6 à Z9 donc avant
Z9
Il y a aussi que...au départ c'était
Range("AZ19:AZ34").Copy Destination:=Range("F15")
et maintenant c'est
Range("Z9:Z14").Copy Destination:=Range("F15")
Je pars sur cette dernière base
Dans un module simple cette macro
'--------------
Sub copie(chiffre)
x = chiffre + chiffre - 2
Range("Z9:Z" & x).Copy Destination:=Range("F15")
End Sub
'----------------
Dans le module de la feuille celle-ci
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Call copie(Target)
Application.EnableEvents = True
End If
End Sub
'-----------------------
Sur la feuille en A1
Donnée/validation==>autoriser==>Liste
Source==>4;5;6;7;8;9;10;11;12
voir ici
http://cjoint.com/?kcnckCaE1G
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
%Oui toujours Z+2
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
O%Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
J'avoue que je n'y comprend plus rien.
Je t'envoie un fichier d'exemple, plus facile pour moi à expliquer.
http://cjoint.com/?kcn7SHVtVQ
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:
%Re...Oui toujours Z+2
Alors tu es conscient que pour A1=4 la copie se fera de Z6 à Z9 donc
avant
Z9
Il y a aussi que...au départ c'était
Range("AZ19:AZ34").Copy Destination:=Range("F15")
et maintenant c'est
Range("Z9:Z14").Copy Destination:=Range("F15")
Je pars sur cette dernière base
Dans un module simple cette macro
'--------------
Sub copie(chiffre)
x = chiffre + chiffre - 2
Range("Z9:Z" & x).Copy Destination:=Range("F15")
End Sub
'----------------
Dans le module de la feuille celle-ci
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Call copie(Target)
Application.EnableEvents = True
End If
End Sub
'-----------------------
Sur la feuille en A1
Donnée/validation==>autoriser==>Liste
Source==>4;5;6;7;8;9;10;11;12
voir ici
http://cjoint.com/?kcnckCaE1G
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
%Oui toujours Z+2
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
O%Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
J'avoue que je n'y comprend plus rien.
Je t'envoie un fichier d'exemple, plus facile pour moi à expliquer.
http://cjoint.com/?kcn7SHVtVQ
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23XxZ37HJJHA.4144@TK2MSFTNGP06.phx.gbl...
Re...
Oui toujours Z+2
Alors tu es conscient que pour A1=4 la copie se fera de Z6 à Z9 donc
avant
Z9
Il y a aussi que...au départ c'était
Range("AZ19:AZ34").Copy Destination:=Range("F15")
et maintenant c'est
Range("Z9:Z14").Copy Destination:=Range("F15")
Je pars sur cette dernière base
Dans un module simple cette macro
'--------------
Sub copie(chiffre)
x = chiffre + chiffre - 2
Range("Z9:Z" & x).Copy Destination:=Range("F15")
End Sub
'----------------
Dans le module de la feuille celle-ci
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Call copie(Target)
Application.EnableEvents = True
End If
End Sub
'-----------------------
Sur la feuille en A1
Donnée/validation==>autoriser==>Liste
Source==>4;5;6;7;8;9;10;11;12
voir ici
http://cjoint.com/?kcnckCaE1G
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
%23Ll7auHJJHA.5900@TK2MSFTNGP02.phx.gbl...
Oui toujours Z+2
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eY7L1cHJJHA.1308@TK2MSFTNGP02.phx.gbl...
Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
O%23V0blFJJHA.1156@TK2MSFTNGP04.phx.gbl...
Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
O1EQ5tAJJHA.2580@TK2MSFTNGP05.phx.gbl...
Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
erphJcAJJHA.5704@TK2MSFTNGP02.phx.gbl...
Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
J'avoue que je n'y comprend plus rien.
Je t'envoie un fichier d'exemple, plus facile pour moi à expliquer.
http://cjoint.com/?kcn7SHVtVQ
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:
%Re...Oui toujours Z+2
Alors tu es conscient que pour A1=4 la copie se fera de Z6 à Z9 donc
avant
Z9
Il y a aussi que...au départ c'était
Range("AZ19:AZ34").Copy Destination:=Range("F15")
et maintenant c'est
Range("Z9:Z14").Copy Destination:=Range("F15")
Je pars sur cette dernière base
Dans un module simple cette macro
'--------------
Sub copie(chiffre)
x = chiffre + chiffre - 2
Range("Z9:Z" & x).Copy Destination:=Range("F15")
End Sub
'----------------
Dans le module de la feuille celle-ci
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Call copie(Target)
Application.EnableEvents = True
End If
End Sub
'-----------------------
Sur la feuille en A1
Donnée/validation==>autoriser==>Liste
Source==>4;5;6;7;8;9;10;11;12
voir ici
http://cjoint.com/?kcnckCaE1G
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
%Oui toujours Z+2
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
O%Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
'---------
Sub copie(chiffre)
[f10:f32].Clear
x = chiffre * 2 + 7
Range("Z9:Z" & x).Copy Destination:=Range("F10")
End Sub
'-------------
Ton fichier modifié
http://cjoint.com/?kcotFXQQlV
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
%J'avoue que je n'y comprend plus rien.
Je t'envoie un fichier d'exemple, plus facile pour moi à expliquer.
http://cjoint.com/?kcn7SHVtVQ
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:
%Re...Oui toujours Z+2
Alors tu es conscient que pour A1=4 la copie se fera de Z6 à Z9 donc
avant
Z9
Il y a aussi que...au départ c'était
Range("AZ19:AZ34").Copy Destination:=Range("F15")
et maintenant c'est
Range("Z9:Z14").Copy Destination:=Range("F15")
Je pars sur cette dernière base
Dans un module simple cette macro
'--------------
Sub copie(chiffre)
x = chiffre + chiffre - 2
Range("Z9:Z" & x).Copy Destination:=Range("F15")
End Sub
'----------------
Dans le module de la feuille celle-ci
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Call copie(Target)
Application.EnableEvents = True
End If
End Sub
'-----------------------
Sur la feuille en A1
Donnée/validation==>autoriser==>Liste
Source==>4;5;6;7;8;9;10;11;12
voir ici
http://cjoint.com/?kcnckCaE1G
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
%Oui toujours Z+2
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
O%Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la
cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
'---------
Sub copie(chiffre)
[f10:f32].Clear
x = chiffre * 2 + 7
Range("Z9:Z" & x).Copy Destination:=Range("F10")
End Sub
'-------------
Ton fichier modifié
http://cjoint.com/?kcotFXQQlV
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
%23XH8vZIJJHA.1936@TK2MSFTNGP06.phx.gbl...
J'avoue que je n'y comprend plus rien.
Je t'envoie un fichier d'exemple, plus facile pour moi à expliquer.
http://cjoint.com/?kcn7SHVtVQ
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23XxZ37HJJHA.4144@TK2MSFTNGP06.phx.gbl...
Re...
Oui toujours Z+2
Alors tu es conscient que pour A1=4 la copie se fera de Z6 à Z9 donc
avant
Z9
Il y a aussi que...au départ c'était
Range("AZ19:AZ34").Copy Destination:=Range("F15")
et maintenant c'est
Range("Z9:Z14").Copy Destination:=Range("F15")
Je pars sur cette dernière base
Dans un module simple cette macro
'--------------
Sub copie(chiffre)
x = chiffre + chiffre - 2
Range("Z9:Z" & x).Copy Destination:=Range("F15")
End Sub
'----------------
Dans le module de la feuille celle-ci
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Call copie(Target)
Application.EnableEvents = True
End If
End Sub
'-----------------------
Sur la feuille en A1
Donnée/validation==>autoriser==>Liste
Source==>4;5;6;7;8;9;10;11;12
voir ici
http://cjoint.com/?kcnckCaE1G
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
%23Ll7auHJJHA.5900@TK2MSFTNGP02.phx.gbl...
Oui toujours Z+2
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eY7L1cHJJHA.1308@TK2MSFTNGP02.phx.gbl...
Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
O%23V0blFJJHA.1156@TK2MSFTNGP04.phx.gbl...
Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
O1EQ5tAJJHA.2580@TK2MSFTNGP05.phx.gbl...
Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
erphJcAJJHA.5704@TK2MSFTNGP02.phx.gbl...
Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la
cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy
Re...
'---------
Sub copie(chiffre)
[f10:f32].Clear
x = chiffre * 2 + 7
Range("Z9:Z" & x).Copy Destination:=Range("F10")
End Sub
'-------------
Ton fichier modifié
http://cjoint.com/?kcotFXQQlV
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
%J'avoue que je n'y comprend plus rien.
Je t'envoie un fichier d'exemple, plus facile pour moi à expliquer.
http://cjoint.com/?kcn7SHVtVQ
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:
%Re...Oui toujours Z+2
Alors tu es conscient que pour A1=4 la copie se fera de Z6 à Z9 donc
avant
Z9
Il y a aussi que...au départ c'était
Range("AZ19:AZ34").Copy Destination:=Range("F15")
et maintenant c'est
Range("Z9:Z14").Copy Destination:=Range("F15")
Je pars sur cette dernière base
Dans un module simple cette macro
'--------------
Sub copie(chiffre)
x = chiffre + chiffre - 2
Range("Z9:Z" & x).Copy Destination:=Range("F15")
End Sub
'----------------
Dans le module de la feuille celle-ci
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Call copie(Target)
Application.EnableEvents = True
End If
End Sub
'-----------------------
Sur la feuille en A1
Donnée/validation==>autoriser==>Liste
Source==>4;5;6;7;8;9;10;11;12
voir ici
http://cjoint.com/?kcnckCaE1G
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
%Oui toujours Z+2
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Est-ce que pour une copie de
Z9:Z6 pour 4
---
Z9:Z12 pour 7
Z9:Z14 pour 8
---
Z9:Z22 pour 12
Toujours Z+2
--
Salutations
JJ
"Guy72" a écrit dans le message de news:
O%Excuse Jacky
Puis-je le faire avec une liste déroulante en A1 de 4 à 12 ?
Sub Sept()
Range("Z9:Z12").Copy Destination:=Range("F15")
End Sub
Sub Huit()
Range("Z9:Z14").Copy Destination:=Range("F15")
End Sub
etc..........
Merci de ton aide
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:Re...
Dans le module de la feuille en question.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Target = 8 Then Huit
End If
End Sub
'---------------
--
Salutations
JJ
"Guy72" a écrit dans le message de news:Bonjour,
Peut-on faire démarrer cette macro avec le chiffre 8 dans la
cellule
A1
Sub Huit()
Range("AZ19:AZ34").Copy Destination:=Range("F15")
End Sub
Merci de votre aide
--
Cordialement
Guy