Macro pour remplacer la valeurs d'une cellule par un chiffre
Résolu
mthuong
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Macro excel remplacer une valeur par une autre
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Déplacer une colonne excel - Guide
- Remplacer disque dur par ssd - Guide
- Liste déroulante excel - Guide
- Excel trier par ordre croissant chiffre - Guide
5 réponses
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
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
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
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
ç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
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