Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion a10
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

a10

XLDnaute Impliqué
bonjour,

j'ai dans une case un code

as 00001f

je voudrai faire une macro pour mettre ce code sous forme

asZ0001f

je rajoute un Z a la place de l'espace.
et je dois faire cela sur 55 0000 codes
( tous les codes sont dans la colonne a
et je dois mettre le nouveau code dans la colonne B

a+
 
Trier par date Trier par votes
Re : macro

l'enregistreur de macro donne ceci par exemple environs 3 secondes d'execution
Code: 
Sub Macro2()
'
' Macro2 Macro
'

Application.ScreenUpdating = False
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=SUBSTITUTE(R[0]C[-1],"" "",""Z"")"
    Selection.AutoFill Destination:=Range("B2:B550000"), Type:=xlFillDefault
    Range("B:B").Select
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C1").Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
   
End Sub
 
Vote positif 0 Vote négatif
Re : macro

Bonjour, a10, st007, le Forum,

Une autre proposition :

Code: 
Option Explicit
Sub Remplacer()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Range("a" & Rows.Count).End(xlUp).Row To 1 Step -1
        Range("a" & i).Offset(, 1) = Range("a" & i)
        With Range("a" & i).Offset(, 1): .Replace What:=" 0", Replacement:="Z": End With
        Next
     Application.ScreenUpdating = True
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : macro

Bonsoir à tous

Un autre, autre proposition. 😉
Code: 
Sub a()
Dim t, x()
t = Columns(1).SpecialCells(xlCellTypeConstants).Value
ReDim x(1 To UBound(t))
For i = 1 To UBound(t)
x(i) = Split(t(i, 1))(0) & "Z" & Split(t(i, 1))(1)
Next i
[B1].Resize(UBound(x)) = Application.Transpose(x)
End Sub
(test ok -> NB: données texte en colonne A, sans vide.)
 
Vote positif 0 Vote négatif
Re : macro

Bonjour à tous
Si... à dit:
Code: 
Sub Remplacer()
 Range("A1", [A65000].End(xlUp)).Replace " 0", "Z"
End Sub
Cliquez pour agrandir...
Un petit ajout puisque le demandeur utilise Excel 2010.
Code: 
Sub RemplaceXL2KX()
'D'après Si...
Range("A1", Range("A" & Rows.Count).End(xlUp)).Replace " 0", "Z"
End Sub
PS: Je brave mon actuelle allergie à Replace en postant ici 😉
Si... le cœur t'en dit (00 idem 😉) , car je me sens bien seul avec Dranreb là-bas 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : macro

re
Staple1600 à dit:
Bonjour à tous

Un petit ajout puisque le demandeur utilise Excel 2010.
Cliquez pour agrandir...

mais peut-être moins de 65536 lignes ?

Tu auras sans doute remarqué que j'essaie, presque toujours, d'aller au plus court.
Ici, il y aura toujours une réponse pour de simples questions de réajustement 😉.

Je suis moins vaillant que 00 😀😀 et plus flemard que toi 😛 !
 
Vote positif 0 Vote négatif
Re : macro

Bonsoir Si...

et je dois faire cela sur 55 0000 codes
Cliquez pour agrandir...
Effectivement, mais quand je poste une réponse sur XLD, en général je pense au demandeur et aux éventuels lecteurs du fil que le sujet pourrait intéresser.
Et comme disait mon grand oncle Théophraste 😉
Quod abundat non vitiat

PS: Je suppose que tout comme 00 le cœur ne t'en dit rien ? 😉
 
Vote positif 0 Vote négatif
Re : macro

Staple1600 à dit:
PS: Je suppose que tout comme 00 le cœur ne t'en dit rien ? 😉
Cliquez pour agrandir...

Désolé pour l'incruste mais je réponds ici : un essai dans ce contexte. (Si... ce n'est pas cela, ...)

Note (0/100) :
Le fichier ne correspond pas à la demande mais je le laisse quand même : aller voir ailleurs Si... j'y suis 🙁.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
XL 2016 classeur rendez-vous avec userform en VBA
Réponses
4
Affichages
179
J- Paul
J
A
  • Question Question
XL 2016 Récupérer dans un libellé un mot avant une cassure
2
Réponses
29
Affichages
1 K
nullosse
N
F
  • Question Question
XL 2016 Transformation fichier
Réponses
6
Affichages
333
Cousinhub
G
  • Question Question
Microsoft 365 Créer somme sous condition
Réponses
7
Affichages
281
gary34
G
  • Question Question
Microsoft 365 Click sur ListBox pour récupérer info
2
Réponses
15
Affichages
968
TooFatBoy
D
  • Question Question
XL 2021 filtre addition occurrence
Réponses
10
Affichages
335
chris
D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
438
sylvanu
B
  • Résolu(e)
Microsoft 365 Valeurs plages de cellules
Réponses
2
Affichages
200
BOILEAU
B
N
  • Question Question
Autres comment effectuer une recherche ordre
2
Réponses
27
Affichages
781
n_turf
N
G
  • Question Question
Microsoft 365 Tableau
Réponses
5
Affichages
288
ALS35
A
  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
418
KTM
V
  • Question Question
XL 2019 Problème de formule dans une fiche de suivi de temps
Réponses
2
Affichages
173
vivi21
V
J
  • Question Question
XL 2019 index equiv avec fonction ou sur plusieurs feuilles
Réponses
11
Affichages
909
job75
  • Résolu(e)
XL 2019 Augmenter la vitesse de traitement
2 3
Réponses
37
Affichages
2 K
dysorthographie
S
  • Question Question
XL 2016 Problème ajout client et modification code postale dans gestion de stock/clients/factures
Réponses
8
Affichages
625
Piment
P
N
  • Résolu(e)
XL 2019 copier coller sous condition avec trois feuil
Réponses
11
Affichages
616
Nico77
N
V
  • Question Question
XL 2019 Fonction si
Réponses
7
Affichages
508
vipi61
V
D
  • Question Question
XL 2021 Problème de macro
Réponses
5
Affichages
250
Didierpasdoué
D
  • Question Question
XL 2019 Application.Run
Réponses
3
Affichages
258
Atiom
C
  • Résolu(e)
XL 2016 Macro permettant d'automatiser le tri d'un tableau Excel et de différencier les lignes
Réponses
5
Affichages
252
Chris1263
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…