Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transformer la valeur d'une cellule

L

Leskwal

XLDnaute Occasionnel
Bonsoir le forum, de retour vers vous...

Ma demande :

Quelque soit l'endroit où je rentre la valeur 0 dans une cellule, elle devient "1".

En fichier joint :

Une macro tourne, et fonctionne sur une plage donnée (FOR EACH...NEXT...), mais cela ne m'intéresse pas car dans le fichier réel, pour chaque cellule modifiée une série de tests et de calculs interviennent et les cellules non modifiées sont quand même testées, ce qui me ralenti considérablement le processus. (Calez vous en A1 dans le fichier joint et Tapez "0" Entrer, "0" Entrer très rapidement et vous comprendrez mon problème...)

Ce que je souhaite : pour une cellule unique modifiée : => "0" devient "1"

J'ai mis sous forme de commentaire ce que je souhaitais...

Un grand MERCI d'avance.


Pascal
 

Pièces jointes

  • Pour XLD Cellule 0 to 1.xlsm
    18.4 KB · Affichages: 60
Trier par date Trier par votes
B

Banzai64

XLDnaute Accro
Re : Transformer la valeur d'une cellule

Bonsoir

Remplaces la macro par celle-ci

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  Target.Replace What:="0", Replacement:="1"
  Application.EnableEvents = True
End Sub
 
Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué
Re : Transformer la valeur d'une cellule

Saltu Leskwal,
essayez ceci. Il s'agit de procéder avec une recherche plutôt qu'avec une boucle. Beaucoup plus rapide et vous n'avez pas besoin de tester 1300 cellules à chaque fois que vous faites une modification.

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c
Set c = Range("A1:Z50").Find(0, LookIn:=xlFormulas, Lookat:=xlWhole)
If Not c Is Nothing Then
   Cells(c.Row, c.Column).Value = 1
   Exit Sub
End If

End Sub

Cordialement,

Étienne

Édit : Salut Banzai. Plus rapide que moi !!! Très bonne solution. Au plaisir de te recroiser.
 
Vote positif 0 Vote négatif
D

david84

XLDnaute Barbatruc
Re : Transformer la valeur d'une cellule

Bonsoir,
à tester :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target = 0 Then Target = 1
End Sub
Testé sur une feuille sans autre macro. Si nécessaire, désactiver les événementielles avec application.EnableEvents;
A+
 
Vote positif 0 Vote négatif
L

Leskwal

XLDnaute Occasionnel
Re : Transformer la valeur d'une cellule

Merci à tous les 2

j'ai testé la soluce de Banzai64 : elle fonctionne parfaitement, cependant j'ai voulu faire simple dans mon exemple en transformant le "0" en "1" mais dans la réalité, je transforme le "0" en "0,0001"...
La soluce ne fonctionne pas car la cellule testée en 0 devient 0.0001 mais est de nouveau testée car commence par "0" , et donc j'ai une suite dans la cellule comme ci-dessous...


OUPS

Comment faire ?

Pascal
 
Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué
Re : Transformer la valeur d'une cellule

Salut Pascal, le forum,
essaie comme ceci :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  Target.Replace What:="0", Replacement:="1", Lookat:=xlWhole
  Application.EnableEvents = True
End Sub

À noter que ma solution initiale aurait également fonctionné.

Cordialement,

Étienne
 
Vote positif 0 Vote négatif
L

Leskwal

XLDnaute Occasionnel
Re : Transformer la valeur d'une cellule

Merci a tous

ça fonctionne parfaitement....

Que veut dire la commande :

Code: 
Lookat:=xlWhole

Il semble que cela arrête la boucle ... Me trompé-je ???

Merci

Pascal
 
Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc
Re : Transformer la valeur d'une cellule

Leskwal à dit:
Que veut dire la commande :
Code: 
Lookat:=xlWhole
Il semble que cela arrête la boucle ... Me trompé-je ???
Merci
Pascal
Cliquez pour agrandir...

Bonjour, cela signifie que la valeur recherchée doit correspondre à la totalité de la cellule, par opposition à "xlpart", ou la valeur peut être seulement une partie du contenu de la cellule...

bonne journée
@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Transformer le résulta d'une formule en Date
Réponses
2
Affichages
167
Nathan027
N
D
  • Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
385
dadu35
D
N
  • Résolu(e)
XL 2021 formule pour afficher une valeur en fonction d'une autre . 3 conditions
Réponses
5
Affichages
300
natadom
N
R
  • Résolu(e)
XL 2019 Recherche valeur (Critère date et ID) et copier valeur dans tableau dans la cellule correspondante
3 4 5
Réponses
66
Affichages
2 K
Rabeto
R
J
  • Question
Autres mention #VALEUR! en 0 pour sommeprod d'une autre cellule.
Réponses
3
Affichages
216
sylvanu
G
  • Question
XL 2016 Bug dans Données/Convertir si cellule de la ligne 1 vide ?
Réponses
7
Affichages
283
Guy_M
G
Y
  • Résolu(e)
XL 2013 Colorier une cellule en fonction d'une valeur
Réponses
3
Affichages
296
Yvan1
Y
L
  • Question
Microsoft 365 Mémoriser la valeur d'une cellule qui change sous condition
Réponses
3
Affichages
402
Jacky67
J
  • Question
XL 2013 Boucle : copie valeur d'une table dans un autre onglet jusqu'à cellule non vide
Réponses
4
Affichages
197
jerome91
J
  • Question
XL 2019 problème d'automatisation d'attribution couleur d'une cellule en rapport d'une valeur texte d'une autre cellule
Réponses
10
Affichages
554
Ferbank
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…