Remplacer le contenu de plusieurs cellules
Résolu/Fermé
Med
-
19 mars 2018 à 16:38
eriiic
eriiic
- Messages postés
- 24430
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 11 août 2022
A voir également:
- Modifier le contenu de plusieurs cellule excel
- Excel remplacement multiple - Meilleures réponses
- Excel modifier plusieurs cellules en même temps - Meilleures réponses
- Modifier le contenu de plusieurs cellules ✓ - Forum - Bureautique
- Remplacer le contenu de plusieurs cellules ✓ - Forum - Excel
- Ajout même texte dans plusieurs cellules ✓ - Forum - Excel
- Changer un nombre dans plusieurs cellules en même temps - Forum - Excel
- Modifier plusieurs formules en 1 seule fois? - Forum - Bureautique
3 réponses
Vaucluse
19 mars 2018 à 18:52
- Messages postés
- 26495
- Date d'inscription
- lundi 23 juillet 2007
- Statut
- Contributeur
- Dernière intervention
- 8 avril 2022
19 mars 2018 à 18:52
Bonjour
Comme ci dessous, ça ira toujours plus vite que de tout filtrer:
sélectionner toutes les feuilles à traiter
ensuite:
dans la fenêtre affichée
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
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
eriiic
Modifié le 20 mars 2018 à 11:43
- Messages postés
- 24430
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 11 août 2022
Modifié le 20 mars 2018 à 11:43
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.
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
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
Modifié le 20 mars 2018 à 14:09
- Messages postés
- 5
- Date d'inscription
- lundi 19 mars 2018
- Statut
- Membre
- Dernière intervention
- 21 mars 2018
Modifié le 20 mars 2018 à 14:09
Cher Eriiic, mille merci !!! tu m'as soulagé !!! merci encore et encore !
Merci a tous les autres qui ont contribué !!!
Merci a tous les autres qui ont contribué !!!
kodime
20 mars 2018 à 14:43
- Messages postés
- 5
- Date d'inscription
- lundi 19 mars 2018
- Statut
- Membre
- Dernière intervention
- 21 mars 2018
20 mars 2018 à 14:43
Eric comment ecrit- on les macros, sans etre un programmeur?
eriiic
20 mars 2018 à 19:16
- Messages postés
- 24430
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 11 août 2022
20 mars 2018 à 19:16
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
Une bonne doc pour commencer :
Cours VBA
eric
kodime
21 mars 2018 à 10:00
- Messages postés
- 5
- Date d'inscription
- lundi 19 mars 2018
- Statut
- Membre
- Dernière intervention
- 21 mars 2018
21 mars 2018 à 10:00
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
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
Raymond PENTIER
19 mars 2018 à 17:41
- Messages postés
- 56479
- Date d'inscription
- lundi 13 août 2007
- Statut
- Contributeur
- Dernière intervention
- 11 août 2022
19 mars 2018 à 17:41
Bonjour.
Il n'y a pas de solution avec les fonctions classiques d'Excel.
Il te faudra te mettre à VBA et écrire une macro ...
Il n'y a pas de solution avec les fonctions classiques d'Excel.
Il te faudra te mettre à VBA et écrire une macro ...
kodime
19 mars 2018 à 18:24
- Messages postés
- 5
- Date d'inscription
- lundi 19 mars 2018
- Statut
- Membre
- Dernière intervention
- 21 mars 2018
19 mars 2018 à 18:24
merci pour cette réponse, et comment y parvenir? je ne m y connais pas en VBA non plus.
20 mars 2018 à 01:06
20 mars 2018 à 11:02
20 mars 2018 à 11:11
20 mars 2018 à 11:37
... 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