inserer une fontion dans un vba

Version imprimable

est-ce possible de mettre une fonction dans un code ,
au depart la macro effectue un copier coller , mais les resultat de la feuille facture b21:b44 devrait donner a la copie de la feuille inventaire un le nombre indiquer mais en negatif.mais je ne peux pas appliquer negatif a la colonnes de la feuille inventaire car il y a d'autre donner qui si insert au renouvellement de stock .

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sheets("INVENTAIRE").Select
    Rows("10:35").Select
    Selection.Insert Shift:=xlDown
    Sheets("FACTURE").Select
    Range("A21:A44").Select
    Selection.Copy
    Sheets("INVENTAIRE").Select
    Range("A10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A10").Select
    Sheets("FACTURE").Select
    Application.CutCopyMode = False
    Range("B21:B44").Select
    Selection.Copy
    Sheets("INVENTAIRE").Select
    Range("C10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False(GENRE ICI IL FAUDRAIT MULTIPLIER PAR -1, )           
    Range("C10").Select
    Sheets("FACTURE").Select
    Application.CutCopyMode = False
    Range("A21:B44").Select
    Selection.ClearContents
    Range("A21").Select
End Sub

Salut lebeniste et le forum
Ton code :aie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
Dim Cel As Range
Sheets("INVENTAIRE").Activate
Rows("10:35").Insert Shift:=xlDown
Sheets("FACTURE").Range("A21:A44").Copy
Range("A10").PasteSpecial Paste:=xlPasteValues
Range("A10").PasteSpecial Paste:=xlPasteFormats
Sheets("FACTURE").Range("B21:B44").Copy
Range("C10").PasteSpecial Paste:=xlPasteValues
Range("C10").PasteSpecial Paste:=xlPasteFormats
For Each Cel In Selection
    Cel = Cel * -1
Next Cel
Sheets("FACTURE").Activate
Range("A21:B44").ClearContents
Range("A21").Activate
End Sub

A+

14/03/2009, 01h45
lebeniste

:oops: mon code est long mais je ne sais jamais quoi enlever ???

le tien fonctionne merveille merci
14/03/2009, 02h23
Gorfael
Salut lebeniste et le forum
Pour épurer un code, il suffit quelques fois de raisonner logiquement... et de tester
Par exemple :
Code:

1 2 3 4 5 6 Sheets("FACTURE").Select Range("A21:A44").Select Selection.Copy Sheets("INVENTAIRE").Select Range("A10").Select Selection.PasteSpecial
peut devenir:
Code:

1 2 Sheets("FACTURE").Range("A21:A44").Copy Sheets("INVENTAIRE").Range("A10").pastespecial
Tu fais ton code, à l'aide des macros apprentissage. Quand il fonctionne tu l'épure en supprimant les select/selection. et tu testes (tu ne peux trier que la feuille active, par exemple). Les select ne se font que sur la feuille active, donc, si tu n'as plus de selection, tu peux éviter de changer de feuille. Avec l'habitude, ton code deviendra plus compréhensible, plus léger et tes macros iront plus vite.
Mais comme pour tout, sur Office, tu commences toujours par perdre du temps, avant d'en gagner.
A+
14/03/2009, 02h32
lebeniste

merci des renseignements, je ne savais pas que ca pouvais ralentir la macro .
peut-etre meme que a l'activation de mes macro l'ecran flash (s'intille) ca peut etre une cause ????

je me demandais toujours quel section je pouvais enlever, mais tes conseils me seront utile,
au fond on fait du essais erreur et avec le temps on deviens meilleur

comme dans tout il faut commencer par le bas de l'echelle , je gravitte les marche peu a peu .....

merci
14/03/2009, 04h07
lebeniste
Citation:

For Each Cel In Selection
Cel = Cel * -1
Next Cel

d'apres se que j'ai vue , " cel " = quantité ?

si je veux mettre pour une colonne ou il y a des $ mais une colonne specifique en negatif ?
Code:

1 2 3 For Each format$ In Selection format$ = format$ * -1 Next format$
ne fonctionne pas

il y a une place ou je pourrais voir tout ces description de texte ???
14/03/2009, 19h02
Gorfael

Salut lebeniste et le forum

Citation:

d'apres se que j'ai vue , " cel " = quantité ?

Non: cel est défini comme un range (plage de cellule, et dans ce cas, une seule cellule). Or la propriété par défaut d'un range est value, ce qui revient à écrire :

Code:

Cel.value = Cel.value * -1

Citation:

si je veux mettre pour une colonne ou il y a des $ mais une colonne specifique en negatif ?

comprend pas 8O

Citation:

il y a une place ou je pourrais voir tout ces description de texte ???

ça non plus.
Pense que je n'ai que ce que tu mets dans tes postes, et le fromage blanc qui me sert à maintenir l'écart entre mes oreilles.
Donc ce qui ext évident pour toi l'est un peu moins (voire pas du tout) pour moi
A+

j'ai tendance a oublier que moi je vois mais que les autre ne vois pas ....:roll:

voici suite a mon code de rendre une case en negatif suite a la copie, je voulais ajouté une autre cellule, j'ai ajouter la cellule suplementaire et il y a une erreur a chaque fois , voici le code qui fonctionne pour la cellule c10

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ZA()
Dim Cel As Range
Sheets("INVENTAIRE").Activate
Rows("10:35").Insert Shift:=xlDown
Sheets("FACTURE").Range("A21:A44").Copy
Range("A10").PasteSpecial Paste:=xlPasteValues
 
Sheets("FACTURE").Range("C21:C44").Copy
Range("B10").PasteSpecial Paste:=xlPasteValues
 
Sheets("FACTURE").Range("B21:B44").Copy
Range("C10").PasteSpecial Paste:=xlPasteValues
For Each Cel In Selection
    Cel = Cel * -1
Next Cel
 
 
End Sub

celui que j'ai modifier afin d'ajouter la cellule d10 ne negatif

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ZA()
Dim Cel As Range
Sheets("INVENTAIRE").Activate
Rows("10:35").Insert Shift:=xlDown
Sheets("FACTURE").Range("A21:A44").Copy
Range("A10").PasteSpecial Paste:=xlPasteValues

Sheets("FACTURE").Range("C21:C44").Copy
Range("B10").PasteSpecial Paste:=xlPasteValues

Sheets("FACTURE").Range("B21:B44").Copy
Range("C10").PasteSpecial Paste:=xlPasteValues
For Each Cel In Selection
    Cel = Cel * -1
Next Cel
le bout ajouterSheets("FACTURE").Range("e21:e44").Copy
Range("d10").PasteSpecial Paste:=xlPasteValues
For Each Cel In Selection
    Cel = Cel * -1erreur est ici
Next Cel


End Sub

15/03/2009, 00h56
Gorfael

Salut lebeniste et le forum
si la même boucle d'instruction fonction pour la colonne C et pas pour la D ... C'est que ça vient de la colonne. transforme :

Code:

Cel = Cel * -1

en

Code:

If isnumeric(cel) then Cel = Cel * -1

A+
15/03/2009, 21h54
lebeniste

merci

y-a t'i un site ou je peux voir la description des codes,

exemple :
Cel = Cel veux dire ???????

ou
If isnumeric(cel) then Cel = Cel voudrait dire ????

un site du vocabulaire vba

cela m'aiderais probablement .

pour se qui est de ton code merci il fonctionne
15/03/2009, 21h56
Jean-Philippe André

Bonsoir,
un article très complet des fonctions VBA est disponible ici :
http://dominiquemaniez.developpez.co.../fonctionsVBA/
bonne lecture :king:
16/03/2009, 02h18
Gorfael

Salut lebeniste et le forum

Citation:

Cel = Cel veux dire ???????

Veut rien dire et n'est pas employé (on parle d'ici).
La formule est :
Cel = Cel*-1
Cel est une variable déclarée en range (plage de cellule)
La propriété par défaut d'un range est Value.
Si cel est une cellule d'adresse D5, et qu'elle contient la valeur 2 avant l'instruction : La valeur contenue dans la cellule D5 après l'exécution du code sera égale à la valeur de D5 avant l'intruction multipliée par -1. soit -2

Le résultat de l'opération (Cel * -1) sera stocké dans la cellule Cel

Code:

If isnumeric(cel) then Cel = Cel*1

si la cellule représentée par Cel est un nombre, inverser son signe (si elle est positive, la rendre négative, ou inversement).
A+
16/03/2009, 02h29
lebeniste

explicatin tres clair , merci :king: