Modification Code VBA

[UJAP]

Bonjour,

Pouvez-vous m'aider à modifier mon code VBA ci-dessous généré lors de l'enregistrement d'une macro commande.

Son objectif est de multiplier le chiffre contenu dans la Colonne B par 1 jusqu'à la fin du tableau dans la colonne C. Le problème est que la longueur du tableau peut varier en fonction des extractions.

Peut-on demander à Excel de faire jusqu'à ce qu'il y a des renseignements dans la colonne B.

Merci pour vos réponses;

Sub E_3()
'
' E_3 Macro
' Rub*1
'

'
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*1"
    Range("C3").Select
    Selection.AutoFill Destination:=Range("C3:C3066")
    Range("C3:C3066").Select
    Columns("C:C").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Range("B2").Select
End Sub

 

[Pierrot93]

Re : Modification Code VBA

Bonjour,

essaye ceci, non testé...

Option Explicit
Sub test()
Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
With Range("C3:C" & Cells(Rows.Count, 2).End(xlUp).Row)
    .FormulaR1C1 = "=RC[-1]*1"
    .Copy
    .PasteSpecial Paste:=xlPasteValues
End With
Columns(2).Delete Shift:=xlToLeft
End Sub

bonne journée
@+

 

[UJAP]

Re : Modification Code VBA

Merci super,

Une autre question, si j'abuse pas trop,

Comment peut-on dire par dire par VBA si les chiffres de la colonne D > 0 remplacer le "-" par "" dans la colonne F ?

Merci d'avance,

 

[Pierrot93]

Re : Modification Code VBA

Re,

si tu as bien des nombres en D et F regarde peut être ceci :

If Range("D1") > 0 Then Range("F1") = Abs(Range("F1"))

 

[Pierrot93]

Re : Modification Code VBA

Re,

pour bloucler sur la colonne D :

Dim i As Long
For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row
    If Cells(i, 4) > 0 Then Cells(i, 5) = Abs(Cells(i, 5))
Next i

 

[UJAP]

Re : Modification Code VBA

Donc le code à mettre dans le VBA serait ceci :

Sub E_5()
'
' E_5 Macro
' Base +
'

'

If Range("D1") > 0 Then Range("F1") = Abs(Range("F1"))
Dim i As Long
For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row
If Cells(i, 4) > 0 Then Cells(i, 5) = Abs(Cells(i, 5))
Next i
End Sub

 

[Pierrot93]

Re : Modification Code VBA

Re,

enlève ceci :

If Range("D1") > 0 Then Range("F1") = Abs(Range("F1"))

et remplace le 2 par un 1 si tu veux le test à partir de la première ligne...

 

[UJAP]

Re : Modification Code VBA

J'ai une erreur signalée lors de l'exécution

Sub E_5()
 '
 ' E_5 Macro
 ' Base +
 '

 '
 Dim i As Long
 For i = 1 To Cells(Rows.Count, 4).End(xlUp).Row
 If Cells(i, 4) > 0 [B]Then Cells(i, 4) = Abs(Cells(i, 4))[/B]
 Next i
 End Sub

 

[Pierrot93]

Re : Modification Code VBA

Re,

Then Cells(i, 4) = Abs(Cells(i, 4))

enlève les balises .... et vérifie bien que tes cellules contiennent des nombres...

 

[UJAP]

Re : Modification Code VBA

Merci,

Il doit vérifier la colonne D > 0 et remplacer dans la colonne F,

Je dois donc modifier mon code

 

[Pierrot93]

Re : Modification Code VBA

Re,

si c'est le cas, voir post #5, il faut que tu remplaces dans ta ligne de code les deux 4 par des 6

 

[Pierrot93]

Re : Modification Code VBA

Re,

For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row
    If Cells(i, 4) > 0 Then Cells(i, 6) = Abs(Cells(i, 6))
Next i

 

[UJAP]

Re : Modification Code VBA

Je suis un perdu ! j'ai toujours le message d'erreur

Quel code je dois mettre dans le VBA ?

Merci en tout cas,

 

[Pierrot93]

Re : Modification Code VBA

Re,

code du post #12.... mais comme déjà dit, regarde que les 2 colonnes en question contiennent bien des nombres... sinon un bout de fichier en pièce jointe aiderait à t'aider....

 

[UJAP]

Re : Modification Code VBA

Oui tu as raison, ci-joint un exemple de fichier,

Voilà mon renseignement :

- Peut-on créer un VBA pr dire si les chiffres de la colonnes D sont > 0 alors remplacer le "-" dans la colonne F ?

Et

- Chiffres de la colonne D < 0 rajouter un "-" un moins devant les chiffres de la Colonne F hormis les 0 ?

Tout cela est-il possible ?

Merci,