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

- - Dernière réponse : eriiic
Messages postés
23109
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
7 décembre 2019
- 9 avril 2018 à 11:15
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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
24734
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
7 décembre 2019
4914
2
Merci
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

Dire « Merci » 2

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

CCM 62786 internautes nous ont dit merci ce mois-ci

Raymond PENTIER
Messages postés
50494
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
8 décembre 2019
11400 -
Excellente idée, Vaucluse !
kodime
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.
titeufdu89
Messages postés
371
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
4 mars 2019
30 -
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...
Vaucluse
Messages postés
24734
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
7 décembre 2019
4914 -
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
23109
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
7 décembre 2019
5786
1
Merci
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
kodime
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?
eriiic
Messages postés
23109
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
7 décembre 2019
5786 -
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
kodime
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
eriiic
Messages postés
23109
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
7 décembre 2019
5786 -
Bonjour,

démarre une nouveau sujet stp
eric
Messages postés
50494
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
8 décembre 2019
11400
0
Merci
Bonjour.

Il n'y a pas de solution avec les fonctions classiques d'Excel.
Il te faudra te mettre à VBA et écrire une macro ...
kodime
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.