Inserer une décale de valeur
Fermé
Bilop
-
29 nov. 2012 à 14:32
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 - 30 nov. 2012 à 11:09
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 - 30 nov. 2012 à 11:09
A voir également:
- Inserer une décale de valeur
- Insérer liste déroulante excel - Guide
- Insérer signature word - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Pièce 2 euros dessin bonhomme valeur ✓ - Forum Loisirs / Divertissements
- Insérer sommaire word - Guide
3 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
29 nov. 2012 à 14:45
29 nov. 2012 à 14:45
Bonjour
J'espère avoir été explicite
Raté !
au besoin
mettre le classeur sans données confidentielles en pièce jointe sur
https://www.cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse
J'espère avoir été explicite
Raté !
au besoin
mettre le classeur sans données confidentielles en pièce jointe sur
https://www.cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
30 nov. 2012 à 11:09
30 nov. 2012 à 11:09
re,
<code>Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" And IsNumeric(Target) Then
Application.EnableEvents = False
Range("J15:J17") = Range("J16:J18").Value
Range("J18") = Target
Application.EnableEvents = True
End If
End Sub
pour installer
copier ce code
clic droit sur le nom de la feuille
visualiser le code
coller
il faut que les macros soient activées
au cas où:
Excel>=2007
1/ Si l'onglet Développeur n'apparait pas dans le ruban:
Cliquer sur le bouton Office,
puis sur le bouton Options Excel.
Cliquer sur le menu Standard.
Cocher l'option Afficher l'onglet Développeur dans le ruban.
Cliquer sur le bouton OK pour valider.
2/ activer les macros
Cliquer sur le bouton Office,
puis sur le bouton Options Excel.
Cliquer sur centre de gestion de confidentialité
puis sur param^tre du centre de gestion de la confidentialité
puis cocher le bouton radio activer les macros
Cliquerz sur le bouton OK pour valider.
ton Excel est maintenant définitivement prêt à travailler avec des macros
XL<2007 (de mémoire)
Outils-macros-sécurité macros-niveau moyen ou faible
<code>Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" And IsNumeric(Target) Then
Application.EnableEvents = False
Range("J15:J17") = Range("J16:J18").Value
Range("J18") = Target
Application.EnableEvents = True
End If
End Sub
pour installer
copier ce code
clic droit sur le nom de la feuille
visualiser le code
coller
il faut que les macros soient activées
au cas où:
Excel>=2007
1/ Si l'onglet Développeur n'apparait pas dans le ruban:
Cliquer sur le bouton Office,
puis sur le bouton Options Excel.
Cliquer sur le menu Standard.
Cocher l'option Afficher l'onglet Développeur dans le ruban.
Cliquer sur le bouton OK pour valider.
2/ activer les macros
Cliquer sur le bouton Office,
puis sur le bouton Options Excel.
Cliquer sur centre de gestion de confidentialité
puis sur param^tre du centre de gestion de la confidentialité
puis cocher le bouton radio activer les macros
Cliquerz sur le bouton OK pour valider.
ton Excel est maintenant définitivement prêt à travailler avec des macros
XL<2007 (de mémoire)
Outils-macros-sécurité macros-niveau moyen ou faible