Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Départ macro par Chiffre

Départ macro par Chiffre

11 réponses
Avatar
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
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
1 2
Avatar
Jacky
Re..
...excuse-moi pour le mélange ...
C'est pas bien grave....
Tu as peut être remarqué que dans cet exemple dans le but de ne pas répéter
de 4 à 12 la macro, il y a passage de variable(chiffre) entre la macro
événementielle et la macro "copie"
A méditer
--
Salutations
JJ


"Guy72" a écrit dans le message de news:

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

"Jacky" a écrit dans le message de news:

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






































1 2