Remplacer le contenu d'une colonne par autre chose

Résolu/Fermé
Marie Chant Messages postés 106 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 12 juillet 2024 - 8 mai 2017 à 22:15
Marie Chant Messages postés 106 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 12 juillet 2024 - 9 mai 2017 à 16:28
Bonjour,


Comme je ne suis pas très habile avec les macros, j'aurais besoin d'un peu d'aide.

J'ai une colonne en Excel soit la colonne A ou il y a quelques choses d'inscrit sur chaque ligne. Sur la colonne A se sont des choses différentes d'inscrit sur chaque ligne.

ex A1 000.fedrse.123.dfd.111 etc... en A2 000.213.59.21 et je voudrais remplacer ce qu'il y a d'inscrit par autre chose soit 204240. ALors remplace toute la colonne A par 204240

J'aimerais avoir une macro qui me ferais ça.

merci beaucoup de votre aide.



A voir également:

1 réponse

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
8 mai 2017 à 22:32
Bonjour,

Pourquoi une macro quand il suffit de le faire en manuel ?

1) Tu sélectionnes A1
2) Appuies sur Maj+Ctrl+Flêche vers le bas (ça sélectionne la colonne du tableau)
3) Saisis 204240
4) Valides par Maj+Ctrl+Entrée
0
Marie Chant Messages postés 106 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 12 juillet 2024 5
9 mai 2017 à 15:00
Bonjour Patrice33740,

Je voulais en vba car j'ai déjà une macro pour ce fichier mais les paramètres ont changés a cause d'une nouvelle version apportée pour sortir mon rapport.. Maintenant je dois changer la colonne A avant même de partir ma macro. Je voulais simplement inclure la commande dans la macro existante.

merci beaucoup de votre aide
0
Marie Chant Messages postés 106 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 12 juillet 2024 5
Modifié le 9 mai 2017 à 16:39
Bon j'ai mis cela a ma macro existante et cela fonctionne

range("A2").Select
range(Selection, Selection.End(xlDown)).Select
Selection.FormulaArray = "204240"
ActiveWindow.SmallScroll Down:=-9
MAIS maintenant je dois convertir la colonne Q en monétaire pour quelle additionne les montants dans la colonne au complet. J'ai ceci dans mon code de vba mais cela ne fonctionne pas Est-ce que c'est parce qu'il y a un titre??
Columns("Q:Q").Select
Selection.TextToColumns Destination:=range("Q1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), DecimalSeparator:=".", ThousandsSeparator:=",", _
TrailingMinusNumbers:=True
cela ne garde pas en nombre et je ne sais pas pourquoi. merci beaucoup de m'aider.
0