Remplacer le contenu d'une colonne par autre chose

Résolu
Marie Chant Messages postés 136 Date d'inscription   Statut Membre Dernière intervention   -  
Marie Chant Messages postés 136 Date d'inscription   Statut Membre Dernière intervention   -
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 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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 136 Date d'inscription   Statut Membre Dernière intervention   9
 
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 136 Date d'inscription   Statut Membre Dernière intervention   9
 
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