Remplacer le contenu de plusieurs cellules [Résolu/Fermé]

Signaler
-
Messages postés
23652
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 novembre 2020
-
Bonjour,
Un gros souci. j'ai 83 feuilles de calcul et j'ai des colonnes de A1 à BJ1, il y a des cellules vides et des cellules non vide avec différent chiffres de 1 à 43. Je voudrais remplacer par 1 toutes les cellules contenant un chiffre. j'utilise le tri par colonne mais c'est assez fastidieux... Pourriez me donner une solution rapide. merci

3 réponses

Messages postés
25568
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
18 novembre 2020
5 603
Bonjour

Comme ci dessous, ça ira toujours plus vite que de tout filtrer:

sélectionner toutes les feuilles à traiter
  • si ce sont toutes les feuilles du classeur, clic droit sur un onglet et "sélectionner tout
  • si il y a d'autre feuille à ne pas traiter, placer tous les noms d'onglet cote à cote en bas de page, sélectionner le 1°, enfoncer la touche shift, sélectionner le dernier, tous les onglets entre les deux sont sélectionnés

ensuite:
  • touche ctrl + touche h

dans la fenêtre affichée
  • remplacer > entrer le nombre à éliminer
  • en Bas placer 1
  • et remplacer tout

Attention, effectuer ça du plus grand (43) au plus petit (2) car sinon, l'opération va modifier les nombres et pourrait poser de problèmes)

cette fenêtre de remplacement restant affichée, vous pouvez traiter de 43 à 2 sans modifier les sélections. Ca prendra un peu de temps, mais ça se fait!

crdlmnt

2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 76687 internautes nous ont dit merci ce mois-ci

Messages postés
52670
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
18 novembre 2020
14 604
Excellente idée, Vaucluse !
Messages postés
5
Date d'inscription
lundi 19 mars 2018
Statut
Membre
Dernière intervention
21 mars 2018

Merci Beaucoup Vaucluse, j'avais commencé cette idée hier soir en effet dans l'attente d'une VBA qui pourrait être plus rapide.
Messages postés
371
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
4 mars 2019
34
petite précision si tu utilises cette fonction "remplacer", notamment pour les chiffres de 2 a 9 il te faut afficher les "options de recherche" (dans la fenêtre "Rechercher et remplacer") et cocher la case "Totalité du contenu de la cellule" sans quoi, si tu modifies le 8 par exemple, la fonction te modifiera le chiffre 8 des nombres 18, 28, 38...
Messages postés
25568
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
18 novembre 2020
5 603
Bonjour titeuf du 89

... d'où, dans mes explications, la recommandation de bien commencer par le plus grand, 43 pour aller jusqu'au plus petit 2.

Ainsi, par exemple, on ne remplace 8 que lorsque tous les nombres supérieurs qui contenaient un 8 ont disparu
.crdlmnt
Messages postés
23652
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 novembre 2020
6 475
Bonjour,

en supposant que ce sont des saisies et non des formules.
Remplace tous les nombres de toutes les feuilles, même si >43. Préciser s'il faut en exclure.
Sub un()
    Dim sh As Worksheet, pl As Range
    For Each sh In Worksheets
        Set pl = sh.Range("A:BJ").SpecialCells(xlCellTypeConstants, xlNumbers)
        If Not pl Is Nothing Then pl.Value = 1
    Next sh
End Sub


eric

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Messages postés
5
Date d'inscription
lundi 19 mars 2018
Statut
Membre
Dernière intervention
21 mars 2018

Eric comment ecrit- on les macros, sans etre un programmeur?
Messages postés
23652
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 novembre 2020
6 475
En commençant avec des petits projets en et regardant les cours sur le B.A.BA de VBA sur le net.
Une bonne doc pour commencer :
Cours VBA
eric
Messages postés
5
Date d'inscription
lundi 19 mars 2018
Statut
Membre
Dernière intervention
21 mars 2018

Merci bcp. c'est très instructif !!!
Bonjour Monsieur Eriic,
Je viens vers vous pour un VBA cette fois pour remplacer les cellules par 0. j'ai travaillé sur mon fichier et je n'ai que des cellules et vierges et d'autres avec 1. Je voudrais maintenant remplacer toutes les cellules vides par 0 de la colonne O2:BI2 sur plusieurs lignes. Merci de votre disponibilité et de votre aide
Messages postés
23652
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 novembre 2020
6 475
Bonjour,

démarre une nouveau sujet stp
eric
Messages postés
52670
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
18 novembre 2020
14 604
Bonjour.

Il n'y a pas de solution avec les fonctions classiques d'Excel.
Il te faudra te mettre à VBA et écrire une macro ...
Messages postés
5
Date d'inscription
lundi 19 mars 2018
Statut
Membre
Dernière intervention
21 mars 2018

merci pour cette réponse, et comment y parvenir? je ne m y connais pas en VBA non plus.