Faciliter language VB

TheProdigy

TheProdigy

XLDnaute Impliqué
Bonjour,

Je voudrais faciliter le language suivant pour le rendre plus souple.
Merci
Private Sub Workbook_Open()
' a l'ouverture du fichier
'comparaison entre V1 et W1
If Sheets("repmam").Range("V1").Value <> Sheets("repmam").Range("W1").Value Then
'si difference changement de V1 et W1
' qui entrainera les changements en D8 C8 D7 C7
Sheets("repmam").Range("V1") = Sheets("repmam").Range("W1")
Sheets("repmam").Range("V2") = Sheets("repmam").Range("W2")
Sheets("repmam").Range("V3") = Sheets("repmam").Range("W3")
Sheets("repmam").Range("V4") = Sheets("repmam").Range("W4")
Sheets("repmam").Range("V5") = Sheets("repmam").Range("W5")
Sheets("repmam").Range("V6") = Sheets("repmam").Range("W6")
Sheets("repmam").Range("V7") = Sheets("repmam").Range("W7")
Sheets("repmam").Range("V8") = Sheets("repmam").Range("W8")
Sheets("repmam").Range("V9") = Sheets("repmam").Range("W9")
Sheets("repmam").Range("V10") = Sheets("repmam").Range("W10")
Sheets("repmam").Range("V11") = Sheets("repmam").Range("W11")
Sheets("repmam").Range("V12") = Sheets("repmam").Range("W12")
Sheets("repmam").Range("V13") = Sheets("repmam").Range("W13")
Sheets("repmam").Range("V14") = Sheets("repmam").Range("W14")
Sheets("repmam").Range("V15") = Sheets("repmam").Range("W15")
Sheets("repmam").Range("V16") = Sheets("repmam").Range("W16")
Sheets("repmam").Range("V17") = Sheets("repmam").Range("W17")
Sheets("repmam").Range("V18") = Sheets("repmam").Range("W18")
Sheets("repmam").Range("V19") = Sheets("repmam").Range("W19")
Sheets("repmam").Range("V20") = Sheets("repmam").Range("W20")
Sheets("repmam").Range("V21") = Sheets("repmam").Range("W21")
Sheets("repmam").Range("V22") = Sheets("repmam").Range("W22")
Sheets("repmam").Range("V23") = Sheets("repmam").Range("W23")
Sheets("repmam").Range("V24") = Sheets("repmam").Range("W24")
Sheets("repmam").Range("V25") = Sheets("repmam").Range("W25")
Sheets("repmam").Range("V26") = Sheets("repmam").Range("W26")
Sheets("repmam").Range("V27") = Sheets("repmam").Range("W27")
Sheets("repmam").Range("V28") = Sheets("repmam").Range("W28")
Sheets("repmam").Range("V29") = Sheets("repmam").Range("W29")
Sheets("repmam").Range("V30") = Sheets("repmam").Range("W30")
Sheets("repmam").Range("V31") = Sheets("repmam").Range("W31")
Sheets("repmam").Range("V32") = Sheets("repmam").Range("W32")
Sheets("repmam").Range("V33") = Sheets("repmam").Range("W33")
Sheets("repmam").Range("V34") = Sheets("repmam").Range("W34")
Sheets("repmam").Range("V35") = Sheets("repmam").Range("W35")
'Maintenant les plus values
Sheets("repmam").Range("X1") = Sheets("repmam").Range("Y1")
Sheets("repmam").Range("X2") = Sheets("repmam").Range("Y2")
Sheets("repmam").Range("X3") = Sheets("repmam").Range("Y3")
Sheets("repmam").Range("X4") = Sheets("repmam").Range("Y4")
Sheets("repmam").Range("X5") = Sheets("repmam").Range("Y5")
Sheets("repmam").Range("X6") = Sheets("repmam").Range("Y6")
Sheets("repmam").Range("X7") = Sheets("repmam").Range("Y7")
Sheets("repmam").Range("X8") = Sheets("repmam").Range("Y8")
Sheets("repmam").Range("X9") = Sheets("repmam").Range("Y9")
Sheets("repmam").Range("X10") = Sheets("repmam").Range("Y10")
Sheets("repmam").Range("X11") = Sheets("repmam").Range("Y11")
Sheets("repmam").Range("X12") = Sheets("repmam").Range("Y12")
Sheets("repmam").Range("X13") = Sheets("repmam").Range("Y13")
Sheets("repmam").Range("X14") = Sheets("repmam").Range("Y14")
Sheets("repmam").Range("X15") = Sheets("repmam").Range("Y15")
Sheets("repmam").Range("X16") = Sheets("repmam").Range("Y16")
Sheets("repmam").Range("X17") = Sheets("repmam").Range("Y17")
Sheets("repmam").Range("X18") = Sheets("repmam").Range("Y18")
Sheets("repmam").Range("X19") = Sheets("repmam").Range("Y19")
Sheets("repmam").Range("X20") = Sheets("repmam").Range("Y20")
Sheets("repmam").Range("X21") = Sheets("repmam").Range("Y21")
Sheets("repmam").Range("X22") = Sheets("repmam").Range("Y22")
Sheets("repmam").Range("X23") = Sheets("repmam").Range("Y23")
Sheets("repmam").Range("X24") = Sheets("repmam").Range("Y24")
Sheets("repmam").Range("X25") = Sheets("repmam").Range("Y25")
Sheets("repmam").Range("X26") = Sheets("repmam").Range("Y26")
Sheets("repmam").Range("X27") = Sheets("repmam").Range("Y27")
Sheets("repmam").Range("X28") = Sheets("repmam").Range("Y28")
Sheets("repmam").Range("X29") = Sheets("repmam").Range("Y29")
Sheets("repmam").Range("X30") = Sheets("repmam").Range("Y30")
Sheets("repmam").Range("X31") = Sheets("repmam").Range("Y31")
Sheets("repmam").Range("X32") = Sheets("repmam").Range("Y32")
Sheets("repmam").Range("X33") = Sheets("repmam").Range("Y33")
Sheets("repmam").Range("X34") = Sheets("repmam").Range("Y34")
Sheets("repmam").Range("X35") = Sheets("repmam").Range("Y35")
'=======================Maintenant la MCM====================
Sheets("repmcm").Range("V1") = Sheets("repmcm").Range("W1")
Sheets("repmcm").Range("V2") = Sheets("repmcm").Range("W2")
Sheets("repmcm").Range("V3") = Sheets("repmcm").Range("W3")
Sheets("repmcm").Range("V4") = Sheets("repmcm").Range("W4")
Sheets("repmcm").Range("V5") = Sheets("repmcm").Range("W5")
Sheets("repmcm").Range("V6") = Sheets("repmcm").Range("W6")
Sheets("repmcm").Range("V7") = Sheets("repmcm").Range("W7")
Sheets("repmcm").Range("V8") = Sheets("repmcm").Range("W8")
Sheets("repmcm").Range("V9") = Sheets("repmcm").Range("W9")
Sheets("repmcm").Range("V10") = Sheets("repmcm").Range("W10")
Sheets("repmcm").Range("V11") = Sheets("repmcm").Range("W11")
Sheets("repmcm").Range("V12") = Sheets("repmcm").Range("W12")
Sheets("repmcm").Range("V13") = Sheets("repmcm").Range("W13")
Sheets("repmcm").Range("V14") = Sheets("repmcm").Range("W14")
Sheets("repmcm").Range("V15") = Sheets("repmcm").Range("W15")
Sheets("repmcm").Range("V16") = Sheets("repmcm").Range("W16")
Sheets("repmcm").Range("V17") = Sheets("repmcm").Range("W17")
Sheets("repmcm").Range("V18") = Sheets("repmcm").Range("W18")
Sheets("repmcm").Range("V19") = Sheets("repmcm").Range("W19")
Sheets("repmcm").Range("V20") = Sheets("repmcm").Range("W20")
Sheets("repmcm").Range("V21") = Sheets("repmcm").Range("W21")
Sheets("repmcm").Range("V22") = Sheets("repmcm").Range("W22")
Sheets("repmcm").Range("V23") = Sheets("repmcm").Range("W23")
Sheets("repmcm").Range("V24") = Sheets("repmcm").Range("W24")
Sheets("repmcm").Range("V25") = Sheets("repmcm").Range("W25")
Sheets("repmcm").Range("V26") = Sheets("repmcm").Range("W26")
Sheets("repmcm").Range("V27") = Sheets("repmcm").Range("W27")
Sheets("repmcm").Range("V28") = Sheets("repmcm").Range("W28")
Sheets("repmcm").Range("V29") = Sheets("repmcm").Range("W29")
Sheets("repmcm").Range("V30") = Sheets("repmcm").Range("W30")
Sheets("repmcm").Range("V31") = Sheets("repmcm").Range("W31")
Sheets("repmcm").Range("V32") = Sheets("repmcm").Range("W32")
Sheets("repmcm").Range("V33") = Sheets("repmcm").Range("W33")
Sheets("repmcm").Range("V34") = Sheets("repmcm").Range("W34")
Sheets("repmcm").Range("V35") = Sheets("repmcm").Range("W35")
'Maintenant les plus values MCM*****************************
Sheets("repmcm").Range("X1") = Sheets("repmcm").Range("Y1")
Sheets("repmcm").Range("X2") = Sheets("repmcm").Range("Y2")
Sheets("repmcm").Range("X3") = Sheets("repmcm").Range("Y3")
Sheets("repmcm").Range("X4") = Sheets("repmcm").Range("Y4")
Sheets("repmcm").Range("X5") = Sheets("repmcm").Range("Y5")
Sheets("repmcm").Range("X6") = Sheets("repmcm").Range("Y6")
Sheets("repmcm").Range("X7") = Sheets("repmcm").Range("Y7")
Sheets("repmcm").Range("X8") = Sheets("repmcm").Range("Y8")
Sheets("repmcm").Range("X9") = Sheets("repmcm").Range("Y9")
Sheets("repmcm").Range("X10") = Sheets("repmcm").Range("Y10")
Sheets("repmcm").Range("X11") = Sheets("repmcm").Range("Y11")
Sheets("repmcm").Range("X12") = Sheets("repmcm").Range("Y12")
Sheets("repmcm").Range("X13") = Sheets("repmcm").Range("Y13")
Sheets("repmcm").Range("X14") = Sheets("repmcm").Range("Y14")
Sheets("repmcm").Range("X15") = Sheets("repmcm").Range("Y15")
Sheets("repmcm").Range("X16") = Sheets("repmcm").Range("Y16")
Sheets("repmcm").Range("X17") = Sheets("repmcm").Range("Y17")
Sheets("repmcm").Range("X18") = Sheets("repmcm").Range("Y18")
Sheets("repmcm").Range("X19") = Sheets("repmcm").Range("Y19")
Sheets("repmcm").Range("X20") = Sheets("repmcm").Range("Y20")
Sheets("repmcm").Range("X21") = Sheets("repmcm").Range("Y21")
Sheets("repmcm").Range("X22") = Sheets("repmcm").Range("Y22")
Sheets("repmcm").Range("X23") = Sheets("repmcm").Range("Y23")
Sheets("repmcm").Range("X24") = Sheets("repmcm").Range("Y24")
Sheets("repmcm").Range("X25") = Sheets("repmcm").Range("Y25")
Sheets("repmcm").Range("X26") = Sheets("repmcm").Range("Y26")
Sheets("repmcm").Range("X27") = Sheets("repmcm").Range("Y27")
Sheets("repmcm").Range("X28") = Sheets("repmcm").Range("Y28")
Sheets("repmcm").Range("X29") = Sheets("repmcm").Range("Y29")
Sheets("repmcm").Range("X30") = Sheets("repmcm").Range("Y30")
Sheets("repmcm").Range("X31") = Sheets("repmcm").Range("Y31")
Sheets("repmcm").Range("X32") = Sheets("repmcm").Range("Y32")
Sheets("repmcm").Range("X33") = Sheets("repmcm").Range("Y33")
Sheets("repmcm").Range("X34") = Sheets("repmcm").Range("Y34")
Sheets("repmcm").Range("X35") = Sheets("repmcm").Range("Y35")
end if
end sub
 
Trier par date Trier par votes
pierrejean

pierrejean

XLDnaute Barbatruc
Re : Faciliter language VB

Bonjour adilprodigy

teste:

Code: 
Private Sub Workbook_Open()
' a l'ouverture du fichier
'comparaison entre V1 et W1
If Sheets("repmam").Range("V1").Value <> Sheets("repmam").Range("W1").Value Then
'si difference changement de V1 et W1
' qui entrainera les changements en D8 C8 D7 C7

for n=1 to 35
 Sheets("repmam").Range("V" & n) = Sheets("repmam").Range("W" & n)
 Sheets("repmam").Range("X" & n) = Sheets("repmam").Range("Y" & n)
 Sheets("repmcm").Range("V" &n) = Sheets("repmcm").Range("W" & n)
 Sheets("repmcm").Range("X" & n) = Sheets("repmcm").Range("Y" & n)
next n
end if
end sub
 
Vote positif 0 Vote négatif
TheProdigy

TheProdigy

XLDnaute Impliqué
Re : Faciliter language VB

Est-ce que ce code est juste?
J'ai ajouté deux lignes merci
Private Sub Workbook_Open()
' a l'ouverture du fichier
'comparaison entre V1 et W1
If Sheets("repmam").Range("V1").Value <> Sheets("repmam").Range("W1").Value Then
'si difference changement de V1 et W1
' qui entrainera les changements en D8 C8 D7 C7

For N = 1 To 35
Sheets("repmam").Range("V" & N) = Sheets("repmam").Range("W" & N)
Sheets("repmam").Range("X" & N) = Sheets("repmam").Range("Y" & N)
Sheets("repmcm").Range("V" & N) = Sheets("repmcm").Range("W" & N)
Sheets("repmcm").Range("X" & N) = Sheets("repmcm").Range("Y" & N)
Next N
Sheets("M_prtf").Range("a1") = Sheets("mcm").Range("i2")
Sheets("Suivi PLV").Range("a1") = Sheets("mcm").Range("i2")
End If
end sub
 
Vote positif 0 Vote négatif

Discussions similaires

D
  • Question
WorksheetFunction.sumproduct
Réponses
9
Affichages
1 K
Dranreb
Dranreb
B
  • Question
reduire le programe
Réponses
2
Affichages
483
BIL boud
B
B
  • Question
reduire le volume du code
Réponses
11
Affichages
911
BIL boud
B
B
  • Question
BOUCLE pour alléger le code
Réponses
10
Affichages
2 K
BIL boud
B
TheProdigy
  • Question
Simplification code VBA
Réponses
3
Affichages
2 K
TheProdigy
TheProdigy

Membres actuellement en ligne

4 membres et 96 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 215
Messages
2 086 328
Membres
103 180
dernier inscrit
Vcr