Macro

[zorgaz]

bonjour
comment faire une macro pour multiplier par 2 juste le nombre de la colonne g
mais juste sur ces codes ( j ai 37000 lignes sur le fichier d origine )

PK000017
PK000018
PK000201
PK000215
PK000256

merci de votre aide

 

[zorgaz]

Re : Macro

petit up
merci

 

[Ubot303]

Re : Macro

Bonjour,

Pourquoi ne rajoutes-tu pas une colonne avec =G2*2 puis tu tires la formule sur les 37 000 lignes?

😀

 

[zorgaz]

Re : Macro

C est juste sur les PKxxxxxx cité en exemple qui doivent etre multiplié par 2
merci

 

[GeoTrouvePas]

Re : Macro

Salut Zorgaz et Ubot

Si j'ai bien compris ta question qui est tout sauf claire, voilà une macro qui devrait t'aider :

 Sub test
i = 1
While Cells(i, 1) <> 0
    If Cells(i, 5) = "PK000017" Or Cells(i, 5) = "PK000018" Or Cells(i, 5) = "PK000201" Or Cells(i, 5) = "PK000215" Or Cells(i, 5) = "PK000256" Then
        Cells(i, 8) = Cells(i, 7) * 2
    End If
    i = i + 1
Wend
End Sub

Petite remarque au passage : "Macro" comme sujet, c'est pas terrible. Si tout le monde était aussi explicite, un post sur deux s'appellerait "Macro" et l'autre "formule" ...

Edit : 2ème petite remarque : Un up au bout d'une heure, ça fait pas très sérieux...

 

[Benjy]

Re : Macro

Dans le même esprit que UBOT303, avec cette formule à placer en H1 et à tirer vers le bas :
=SI(OU(E1="PK000017";E1="PK000018";E1="PK000201";E1="PK000215";E1="PK000256");2*G1;"")

 

[Ubot303]

Re : Macro

Voila j'allais le dire Benjy...

Et je rejoints Geo : le titre est faux en plus parce que vu la simplicité du problème : on ne passe pas par une macro mais par une formule avec une condition 😀

 

[Benjy]

Re : Macro

La macro n'est pas une mauvaise idée dans ce cas... Car avec la formule on écrit "rien" dans de nombreuses cases.
La macro de Géo ( très bien pensée au passage.. ) n'écrit elle, que dans les cellules concernées.

 

[zorgaz]

Re : Macro

bon ok
merci
j ai chaud et j ai le rhume alors je suis impatient

 

[Cousinhub]

Re : Macro

Bonsoir,

pour traiter 37000 lignes, peut-être avec le code dans ce fichier

Nota, pour que cela fonctionne dans ton fichier, il faut que tu mettes des titres de A1 à G1, et qu'en L1, tu mettes le même titre que en E1.
Sous L1, tu mets tes conditions :

PK000017
PK000018
PK000201
PK000215
PK000256

bref, regarde, et dis quoi...

Le code :

Sub multipli()
Application.ScreenUpdating = False
Range("E1:E" & [E65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("L1:L6"), Unique:=False
[K1] = 2
[K1].Copy
Range("_FilterDataBase").Offset(1, 2).Resize(Range("_FilterDataBase"). _
      Rows.Count - 1).SpecialCells(xlCellTypeVisible).PasteSpecial Operation:=xlMultiply
ActiveSheet.ShowAllData
[K1].Clear
End Sub

Bonne soirée

 

[Ubot303]

Re : Macro

Benjy : mouais, passer par une macro nécessite trop de conditions (sécurité moyenne...) et un niveau Excel plus important pour s'orienter vers ce type de solution avec un problème aussi simple 🙂

Si tu ne veux pas écrire "", autant demander à l'auteur ce qu'il faut mettre dans ce cas... Peut-être souhaite t'il un

=SI(OU(E1="PK000017";E1="PK000018";E1="PK000201";E 1="PK000215";E1="PK000256");2*G1;G1)

😀

edit : bam bhbh balance le copier spécial multiplication 😉 que du lourd 😀

 

[Benjy]

Re : Macro

Benjy : mouais, passer par une macro nécessite trop de conditions (sécurité moyenne...) et un niveau Excel plus important pour s'orienter vers ce type de solution avec un problème aussi simple 🙂

Si tu ne veux pas écrire "", autant demander à l'auteur ce qu'il faut mettre dans ce cas... Peut-être souhaite t'il un



😀

edit : bam bhbh balance le copier spécial multiplication 😉 que du lourd 😀

😀😀
Je te rejoins... D'ailleurs ma solution proposé était bien celle par formule 😉
Mais sur 37 000 lignes ! Sa aussi sa peut faire lourd ! 😛

 

[Ubot303]

Re : Macro

Tu peux rajouter un copier coller valeur derrière 😀

Ca te dégage les valeurs "" ainsi que les formules et t'allège ainsi le moulinage de ton fichier 🙂

 

[Benjy]

Re : Macro

Why not. Mais j'ai le sentiment que nous parlons dans le vide et que l'auteur du post est retourné se moucher et se rafraichir.

 

[Ubot303]

Re : Macro

Et c'est notre souci? 😀

Il a demandé de la précision et de la réactivité en titrant son post très mal 😉
Résultat : on est la et on attend ces retours/remarques/suggestions/réponses 😀