REMPLACER

[JOJO]

BONJOUR a tous

comment remplacer des cellules qui affiche 0 en colonne AF en les remplaçant par 1 sans pour autant que cela n affecte un 1 supplementaire dans les autres cellules , exemple au lieu de 406 -416, et comment en colonne AG remplacer les 1 par 0 sans que cela affecte les autres celulles , exemples 122-022 ;j ai essaye avec la fonction REMPLACER , mais cela me change tout mes chiffres .alors que ceux a changer sont des chiffres isolés .
merci d avance

AF AG
178 10
486 73
836 122
0 1
406 111

jojo

 

[andré]

Salut Jojo,

Si tu ne dois pas employer les résultats pour des calculs, tu peux le faire par un format personnalisé des colonnes :
AF : [=0]1;Standard
AG : [=1]'0';Standard

Dans le cas contraire, il y a deux solutions :

la colonne supplémentaire avec une formule du type :
=SI(AF1=0;1;AF1)
=SI(AG1=1;0;AG1)

une procédure un peu plus compliquée :
Placer un filtre automatique sur la colonne AF (menu Données / Filtrer)
Filter sur le 0
Sélectionner la colonne AF
Touche clavier F5 / Cellules / Cellules visibles seulement
Menu Edition / Remplacer
Rechercher : 0
Remplacer par : 1
Remplacer tout / OK / Fermer
Idem pour la colonne AG (recherchere : 1 et remplacer par : 0)

Â+



Â+

 

[JeanMarie]

Bonjour JoJo

J'allai répondre de la même qu'André sur un autre fil, 'ce n'est pas possible'.
Mais voilà, il suffit d'adpater pour chaque cellule le format numérique. Il me semble que le nombre de format personnalisé dans Excel est limité !.

Voici un code qui pourrait te dépanner si tu as peu de valeurs dans ton tableau.

Public Sub JoJoAF()
Dim I As Long
For I = 1 To Range('Feuil1!AF65536').End(xlUp).Row
   If Range('Feuil1!AF' & I).Text Like '*0*' Then _
      Range('Feuil1!AF' & I).NumberFormat = Replace(Range('Feuil1!AF' & I).Text, '0', '1')
Next I
End Sub

Public Sub JoJoAG()
Dim I As Long
For I = 1 To Range('Feuil1!AG65536').End(xlUp).Row
   If Range('Feuil1!AG' & I).Text Like '*1*' Then _
      Range('Feuil1!AG' & I).NumberFormat = Chr(34) & Replace(Range('Feuil1!AG' & I).Text, '1', '0') & ''''
Next I
End Sub

@+Jean-Marie

 

[JOJO]

ok , la deuxieme solution semble plus adequat , je vais donc l appliquer pour voir .
je te remercie beaucoup
bonnejournée a toi
jojo

 

[JOJO]

merci Jean marie , je vais aussi essayer cela , mais j ai au moins 200 lignes ds mes colonnes ?
merci d avoir consacre un peu de ton temps a ecrire tout cela
jojo

 

[JeanMarie]

Salut André

Quand j'avais posté, je n'avais pas rafraichi le fil.

@+Jean-Marie

 

[chris]

Bonjour
Je n'ai peut-être pas tout compris mais il y a dans la fonction remplacer la possibilité de cocher Totalité du contenu de la cellule (affichage au moyen du bouton options) : dans ce cas le cherche et remplace ne remplace que les 0 isolés.

 

[andré]

Salut chris,

Bien vu !
J'avais tout-à-fait oublié cette option.

Â+

 

[JOJO]

merci a tout ceux qui on repondu pendant mon absence
et aux supers solutions apportées.
grand merci