appliquer ma macro à la colonne Fermé

Question

bonjour à tous 

je viens vers vous suite à un problème de finalisation de ma macro celle-ci fonctionne sur une cellule d'une colonne sauf que j'ai à la suite de cette cellule AJ1 jusqu'à AJ6604 et là je vais jeter mon pc par la fenêtre ... ça parait être impossible 

je compte sur votre aide ,merci

ThauTheme · Answer

Bonjour Christian, bonjour le forum,

Avec de telles "explications", même pas la macro incriminée, je pense que tu as raison. Jette ton PC par la fenêtre...

Christiandu10 · Answer

salut Thautheme 

désolé mais j'ai pas bien compris ton commentaire ... j'ai dit certainement quelque chose de mal ... mais quoi ??
J'ai juste besoin de savoir si je peux trouver de l'aide sur ce forum

Christiandu10 · Answer

je vais essayer d'être plus claire j'ai une macro pour le rechercher/remplacer
celle-ci fonctionne bien mais sur la première ligne de la colonne AJ1 et j'aimerai pouvoir faire la même chose jusqu'à la cellule AJ6604

Christiandu10 · Answer

salut à tous , voici mon code en entier celui-ci fonctionne sur la première cellule de la colonne 36 mais il faudrait pouvoir faire de la première cellule de la première ligne à la cellule de la ligne 6604 de la même colonne.en une seule fois ...pour des raisons évidentes de " temps" lol .



Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 28/06/2015 par CHRISTAN
'

'
    Selection.Copy
    Application.ReplaceFormat.Interior.ColorIndex = 40
    Cells.Replace What:="pouvoir", Replacement:="", LookAt:=xlPart,
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
End Sub

ThauTheme · Answer

Bonjour le fil, bonjour le forum,

Comme l'a souligné Éric, tu demandais de l'aide mis tu ne fournissais aucun moyen pour qu'on le fasse. Ma première intervention voulait juste dire cela...

Ton code, tel qu'il est écrit remplace TOUTES (Cells) les cellules de l'onglet actif et non pas uniquement la cellule AJ1 comme tu sembles le dire. Certes, il manque un _ mais je pense que c'est une erreur de recopie.
Si tu veux le limiter voici comment je l'écrirais (non testé) :

Sub Macro1()
'Selection.Copy ???
Application.ReplaceFormat.Interior.ColorIndex = 40
Range("AJ1:AJ6604").Replace What:="pouvoir", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
End Sub

ThauTheme · Answer

Bonsoir le fil, bonsoir le forum,

Ce qui est vraiment bizarre c'est que tu n'aies toujours pas mis ton fichier en pièce jointe...

ThauTheme · Answer

Bonjour le fil, bonjour le forum,

Pour pouvoir faire le remplacement sur n'importe quel mot, voici le code modifié (non testé) avec une boîte d'entrée (InputBox) :

Sub Macro1()
Dim be As Variant 'déclare la variable be (Boîte d'Entrée)

deb: 'étiquette
be = Application.InputBox("Tapez le mot à remplacer.", "REMPLACEMENT", Type:=2) 'définit la boîte d'entrée be
If be = False Then Exit Sub 'si bouton "Annuler", sort de la procédure
If be = "" Then MsgBox "Vous n'avez saisi aucun mot !": GoTo deb 'si non renseignée,message, retour a la boîte d'entrée via l'étiquette "deb"

'Selection.Copy ???
Application.ReplaceFormat.Interior.ColorIndex = 40
Range("AJ1:AJ6604").Replace What:=be, Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
End Sub

Pour envoyer un fichier regarde du coté de :  https://www.cjoint.com/

Appliquer ma macro à la colonne

7 réponses

Discussions similaires