Appliquer ma macro à la colonne
Christiandu10
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Appliquer ma macro à la colonne
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Colonne word - Guide
- Formule somme excel colonne - Guide
7 réponses
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...
Avec de telles "explications", même pas la macro incriminée, je pense que tu as raison. Jette ton PC par la fenêtre...
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
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
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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é) :
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
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...
Ce qui est vraiment bizarre c'est que tu n'aies toujours pas mis ton fichier en pièce jointe...
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) :
Pour envoyer un fichier regarde du coté de : https://www.cjoint.com/
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/