Macro pour remplacer la valeurs d'une cellule par un chiffre
Résolu/Fermé
mthuong
Messages postés
15
Date d'inscription
lundi 3 août 2015
Statut
Membre
Dernière intervention
28 avril 2016
-
21 avril 2016 à 14:50
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 21 avril 2016 à 16:53
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 21 avril 2016 à 16:53
A voir également:
- Macro excel remplacer une valeur par une autre
- Liste déroulante excel - Guide
- Remplacer disque dur par ssd - Guide
- Déplacer une colonne excel - Guide
- Remplacer un mot par un autre word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
5 réponses
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
21 avril 2016 à 14:52
21 avril 2016 à 14:52
Bonjour
Peux tu envoyer un bout de ton fichier, sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse
tu fais "Coller".
Cdlmnt
Peux tu envoyer un bout de ton fichier, sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse
tu fais "Coller".
Cdlmnt
mthuong
Messages postés
15
Date d'inscription
lundi 3 août 2015
Statut
Membre
Dernière intervention
28 avril 2016
21 avril 2016 à 15:24
21 avril 2016 à 15:24
https://www.cjoint.com/c/FDvnxRcLtoG
voici le lien d'un pièce joint merci beaucoup pour les consignes
voici le lien d'un pièce joint merci beaucoup pour les consignes
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
21 avril 2016 à 16:04
21 avril 2016 à 16:04
1. Feuille Valeurs remplacées en G2 pour arronndir à l'entier le plus proche
=ARRONDI(A2*D2;0)
à tirer jusqu'en I6
2. En principe tu devrais mettre ton code dans la procedure
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
Peux tu envoyer ton code ?
Cdlmnt
=ARRONDI(A2*D2;0)
à tirer jusqu'en I6
2. En principe tu devrais mettre ton code dans la procedure
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
Peux tu envoyer ton code ?
Cdlmnt
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
21 avril 2016 à 16:09
21 avril 2016 à 16:09
plus concrètement dans le module de la feuille "Feuil2"
Option Explicit
Const celreg = "A12"
Const celnom = "A17"
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(celreg)) Is Nothing Then
' le code derrière le changement de région
Exit Sub
End If
If Not Intersect(Target, Range(celnom)) Is Nothing Then
' le code derrière le changement de nom
Exit Sub
End If
End Sub
mthuong
Messages postés
15
Date d'inscription
lundi 3 août 2015
Statut
Membre
Dernière intervention
28 avril 2016
21 avril 2016 à 16:47
21 avril 2016 à 16:47
ça a marché! super! Merci beaucoup
j'ai ajouté mon code dans le tien
Private Sub Worksheet_Change(ByVal Target As Range)
Const celreg = "A2"
Const celnom = "H2"
If Not Intersect(Target, Range(celreg)) Is Nothing Then
' le code derrière le changement de région
ActiveSheet.Calculate
Range("h2").Select
Selection.ClearContents
ActiveSheet.Calculate
Exit Sub
End If
If Not Intersect(Target, Range(celnom)) Is Nothing Then
' le code derrière le changement de nom
ActiveSheet.Calculate
Exit Sub
End If
End Sub
j'ai ajouté mon code dans le tien
Private Sub Worksheet_Change(ByVal Target As Range)
Const celreg = "A2"
Const celnom = "H2"
If Not Intersect(Target, Range(celreg)) Is Nothing Then
' le code derrière le changement de région
ActiveSheet.Calculate
Range("h2").Select
Selection.ClearContents
ActiveSheet.Calculate
Exit Sub
End If
If Not Intersect(Target, Range(celnom)) Is Nothing Then
' le code derrière le changement de nom
ActiveSheet.Calculate
Exit Sub
End If
End Sub
mthuong
Messages postés
15
Date d'inscription
lundi 3 août 2015
Statut
Membre
Dernière intervention
28 avril 2016
21 avril 2016 à 16:53
21 avril 2016 à 16:53
en fait pour la 1ere question j'ai pu arrondir les chiffres moi même, ce que je souhaite faire c'est de créer un macro pour remplacer les valeurs inférieurs à 1 par 1 et les mettre en rouge juste après les calculs. est ce que tu peux m'aider? merci beaucoup
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
21 avril 2016 à 16:53
21 avril 2016 à 16:53
De tien
Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)
Bonne journée
Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)
Bonne journée
