Départ macro par Chiffre

Le
Guy72
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #17396341
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"
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




Guy72
Le #17397271
Bonjour Jacky et encore merci. pour les deux réponses
--
Cordialement
Guy

"Jacky"
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"
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








Guy72
Le #17397401
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"
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"
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








Jacky
Le #17399431
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" 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"
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"
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












Guy72
Le #17399661
Oui toujours Z+2
--
Cordialement
Guy

"Jacky"
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" 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"
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"
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
















Jacky
Le #17399821
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" %
Oui toujours Z+2
--
Cordialement
Guy

"Jacky"
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" 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"
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"
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




















Jacky
Le #17400181
Re...
Si la plage de copie devait être quand même dans la zone AZ19:AZ x
Modifie comme ceci:
'----------
Sub copie(chiffre)
x = chiffre * 2 + 18
Range("AZ19:AZ" & x).Copy Range("F15")
End Sub
'--------------
--
Salutations
JJ


"Jacky" %
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" %
Oui toujours Z+2
--
Cordialement
Guy

"Jacky"
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" 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"
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"
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

























Guy72
Le #17400171
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" %
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" %
Oui toujours Z+2
--
Cordialement
Guy

"Jacky"
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" 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"
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"
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

























Jacky
Le #17400471
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" %
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" %
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" %
Oui toujours Z+2
--
Cordialement
Guy

"Jacky"
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" 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"
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"
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





























Guy72
Le #17400451
Merci Jacky,
c'est ça et excuse-moi pour le mélange que j'ai fait dans mes explications.
--
Cordialement
Guy

"Jacky"
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" %
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" %
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" %
Oui toujours Z+2
--
Cordialement
Guy

"Jacky"
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" 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"
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"
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


































Publicité
Poster une réponse
Anonyme