Comment changer ou ajouter des cellules dans le code vba déja existant

patrick965

XLDnaute Impliqué
VOICI J'AIMERAIS MODIFIER LE CODE VBA DE LA FEUILLE 3 QUI EST CECI:
_________________________________________________________________________________
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Application.ScreenUpdating = False
Cancel = True
If Not Intersect(Target, Range("A7:A274")) Is Nothing Then
Dim ligne
Dim derligne
ligne = Target.Row
Range(Cells(ligne, 1), Cells(ligne, 2)).Select
Selection.Copy
Sheets("Feuil1").Select
derligne = Sheets(1).Range("A65535").End(xlUp).Row + 1
Sheets(1).Range("A" & derligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil3").Select
Cells(Target.Row, 4).Select
Selection.Copy
Sheets("Feuil1").Select
Sheets(1).Range("F" & derligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Feuil3").Select
End If
Application.ScreenUpdating = True
End Sub
_______________________________________________________________________________

EN FAIT JAIMERAIS QUE LES CELLULES ( NO D'ITEM , MATÉRIAUX , DESCRIPRION/COULEUR , QUANTITÉ P1 , PRIX TOTAL) SAJOUTE A LA FEUILLE 1 EN CLIQUENT DROITE SUR NO ITEM DE LA PAGE 3 . JE VEUX QUIL SE COPIE PEU IMPORTE L'ORDRE QUAND JE CLIQUE DESSUE EN FILE LES UN AVEC LES AUTRE.
DÉJA DANS CE CODE( NO D'ITEM,MATÉRIAUX,PRIX APROX )CE COPIE COMME JE VEUX MAIS JAIMERAIS GARDER (NO ITEM ,MATÉRIAUX,)MAIS JAIMERAIS AJOUTER ( DESCRIPTION/COULEUR , PRIX TOTAL ) ET ENLEVER ( PRIX APROX ) MERCI BEAUCOUP A L'AME CHARITABLE VOYER LA PIECE JOINTE .
 

Pièces jointes

  • CALCULATEUR EXRESS.xls
    216.5 KB · Affichages: 178
  • CALCULATEUR EXRESS.xls
    216.5 KB · Affichages: 179
  • CALCULATEUR EXRESS.xls
    216.5 KB · Affichages: 178
Dernière édition:

Discussions similaires

Réponses
3
Affichages
550

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof