remplacé une valeur par une phrase automatiquement

[laskar]

Bonjour a tous

Je suis a la recherhce d'une solution
je m'explique:
Je fait des relevé de mesures sur un site et je rentre mes données sur un tableau excel

Je voudrais savoir si il existe un fonction ou une macro pour, qu' a chaque fois que je met un zero dans une colonne sa soit remplacé pas une phrase qui dit "pas de débit" tout sa sans influencé la fonction "sommes" car il faut que je totalise les débits

Merci

 

[Raja]

Re : remplacé une valeur par une phrase automatiquement

Bonjour,

Un exemple de fichier serait le bienvenu pour comprendre ton souci.

 

[abcd]

Re : remplacé une valeur par une phrase automatiquement

Bonjour,

Format personnalisé : [=0]"pas de débit"

abcd

 

[Guest]

Re : remplacé une valeur par une phrase automatiquement

bonjour Laskar,

Dans un format de cellule personnalisé, en Troisème membre du format tu mets: "Pas de débit" avec les guillemets.

Exemple: Standard;Standard;"Pas de débit"

Ou 0,00;- 0,00;"Pas de débit"

A+

 

[laskar]

Re : remplacé une valeur par une phrase automatiquement

Merci pour toute ses réponse

j'ai trouvé la solution grace a vos conseil qui sont très précieux

continué comme sa ce site il dechire

 

[Hulk]

Re : remplacé une valeur par une phrase automatiquement

Hello le Forum, le fil,

Si j'ai bien compris, une petite version via macro

Dans un module standar

Sub Si_zero()

Dim x As Variant

For Each x In Range("A1:A" & Range("A65536").End(xlUp).Row)
 If x = "0" Then
  x.Value = "Pas de débit"
  
  '***************************************************************
  'Si tu veux y mettre dans une autre colonne, par ex. Colonne D
  'x.Offset(0, 3).Value = "Pas de débit"
  '***************************************************************
 
 End If
Next

End Sub

et dans le code de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A3:A65536")) Is Nothing Then
Si_zero
End If
End Sub

Cdt, Hulk.

 

[Hulk]

Re : remplacé une valeur par une phrase automatiquement

Re,

J'suis bête.. tu peux direct y mettre dans le code de la feuille comme ci dessous et supprimer le module.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Variant

For Each x In Range("A1:A" & Range("A65536").End(xlUp).Row)
 If x = "0" Then
  x.Value = "Pas de débit"
  
 End If
Next

End Sub

Cdt, Hulk.

 

[vbacrumble]

Re : remplacé une valeur par une phrase automatiquement

Bonjour


Hulk:
tu as du zapper cette information

tout sa sans influencé la fonction "sommes"

A+

 

[Hulk]

Re : remplacé une valeur par une phrase automatiquement

Hello,

moi qui croyait avoir (péniblement) réussi à faire ce qu'il voulait..

Autant pour moi !

Mais hmn c'est quoi il y a des formules en colonne A c'est ça donc ? (Parfois suis lent à la détente )

Ben si oui, ça j'sais pô faire mais j'demande qu'à apprendre !

Merci vbacrumble.

Cdt, Hulk.

 

[vbacrumble]

Re : remplacé une valeur par une phrase automatiquement

Re



Parfois, il n'est pas utile d'utiliser VBA, non ? (ou juste par plaisir alors )

Les solutions avec format personnalisé sont ici à privilégier non ?

A+

 

[abcd]

Re : remplacé une valeur par une phrase automatiquement

Salut vbacrumble,

Parole de sage !

Et pour les formulistes, une petite colonne supplémentaire est préférable à une formule compliquée, difficile à comprendre, donc à maitriser.

abcd

 

[Hulk]

Re : remplacé une valeur par une phrase automatiquement

Hello,

Ok je note

Sorry si j'ai un peu troublé le post.

Bonne fin de journée à tous !

Hulk.