macro

[a10]

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+

 

[st007]

Re : macro

Un rechercher remplacer ne convient pas ?
ou simplement

=SUBSTITUE(A2;" ";"Z")

 

[st007]

Re : macro

l'enregistreur de macro donne ceci par exemple environs 3 secondes d'execution

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

 

[DoubleZero]

Re : macro

Bonjour, a10, st007, le Forum,

Une autre proposition :

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 🙂

 

[Staple1600]

Re : macro

Bonsoir à tous

Un autre, autre proposition. 😉

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.)

 

[Si...]

Re : macro

salut

et 1Si... ?

Sub Remplacer()
 Range("A1", [A65000].End(xlUp)).Replace " 0", "Z"
End Sub

 

[DoubleZero]

Re : macro

Bonjour à toutes et à tous,

...et 1Si... ?...

"bon sang mais c’est bien sûr !"

A bientôt 😀😀

 

[Staple1600]

Re : macro

Bonjour à tous

Sub Remplacer()
 Range("A1", [A65000].End(xlUp)).Replace " 0", "Z"
End Sub

Un petit ajout puisque le demandeur utilise Excel 2010.

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 😉

 

[DoubleZero]

Re : macro

Re-bonjour,

... 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 😉

Si... seulement je pouvais t'aider 😕

Or... je crains fort que cela ne se produise jamais 😱

A bientôt 🙂🙂

 

[Si...]

Re : macro

re

Bonjour à tous

Un petit ajout puisque le demandeur utilise Excel 2010.

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 😛 !

 

[Staple1600]

Re : macro

Bonsoir Si...

et je dois faire cela sur 55 0000 codes

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 ? 😉

 

[DoubleZero]

Re : macro

Re-bonjour,

...Je suppose que tout comme 00 le cœur ne t'en dit rien ? 😉

Que nenni !

Le cœur m'en dit 🙂.

Mon niveau, lui, ne m'en dit que 00 😡 !

A bientôt 🙂🙂

 

[Si...]

Re : macro

PS: Je suppose que tout comme 00 le cœur ne t'en dit rien ? 😉

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 🙁.