Rétrécir un code

Le 07/03/2017 à 23:44

Bonjour Forum,

Y'a-t-il moyen de rétrécir ce code? avec une boucle par exemple, sachant que les saut entre les cellules sont de 3 vers le bas.

Sub Bouton4_Cliquer()
UserForm10.Show
End Sub
Sub Bouton5_Cliquer()
'------------ 1 -------------
Sheets("EtatCompte").Range("A7").Value = Sheets("ListeEtatVierge").Range("D4").Value 'Nom
Sheets("EtatCompte").Range("A8").Value = Sheets("ListeEtatVierge").Range("E4").Value 'Adresse
Sheets("EtatCompte").Range("A9").Value = Sheets("ListeEtatVierge").Range("G4").Value 'Telephone
Sheets("EtatCompte").Range("A10").Value = Sheets("ListeEtatVierge").Range("H4").Value 'Courriel
'------------ Grille -------------
Sheets("EtatCompte").Range("A14").Value = Sheets("ListeEtatVierge").Range("C4").Value 'N° Facture
Sheets("EtatCompte").Range("B15").Value = Sheets("ListeEtatVierge").Range("N4").Value 'Mode Paiement
Sheets("EtatCompte").Range("C15").Value = Sheets("ListeEtatVierge").Range("O4").Value 'No Cheque
Sheets("EtatCompte").Range("D14").Value = Sheets("ListeEtatVierge").Range("A4").Value 'Date Transaction Facture
Sheets("EtatCompte").Range("D15").Value = Sheets("ListeEtatVierge").Range("B4").Value 'Date Transaction Paiement
Sheets("EtatCompte").Range("F14").Value = Sheets("ListeEtatVierge").Range("J4").Value 'Montant Facture
Sheets("EtatCompte").Range("F15").Value = Sheets("ListeEtatVierge").Range("K4").Value 'Montant Paiement

'------------ 2 -------------
'------------ Grille -------------
Sheets("EtatCompte").Range("A17").Value = Sheets("ListeEtatVierge").Range("C5").Value 'N° Facture
Sheets("EtatCompte").Range("B18").Value = Sheets("ListeEtatVierge").Range("N5").Value 'Mode Paiement
Sheets("EtatCompte").Range("C18").Value = Sheets("ListeEtatVierge").Range("O5").Value 'No Cheque
Sheets("EtatCompte").Range("D17").Value = Sheets("ListeEtatVierge").Range("A5").Value 'Date Transaction Facture
Sheets("EtatCompte").Range("D18").Value = Sheets("ListeEtatVierge").Range("B5").Value 'Date Transaction Paiement
Sheets("EtatCompte").Range("F17").Value = Sheets("ListeEtatVierge").Range("J5").Value 'Montant Facture
Sheets("EtatCompte").Range("F18").Value = Sheets("ListeEtatVierge").Range("K5").Value 'Montant Paiement

'------------ 3 -------------
'------------ Grille -------------
Sheets("EtatCompte").Range("A20").Value = Sheets("ListeEtatVierge").Range("C6").Value 'N° Facture
Sheets("EtatCompte").Range("B21").Value = Sheets("ListeEtatVierge").Range("N6").Value 'Mode Paiement
Sheets("EtatCompte").Range("C21").Value = Sheets("ListeEtatVierge").Range("O6").Value 'No Cheque
Sheets("EtatCompte").Range("D20").Value = Sheets("ListeEtatVierge").Range("A6").Value 'Date Transaction Facture
Sheets("EtatCompte").Range("D21").Value = Sheets("ListeEtatVierge").Range("B6").Value 'Date Transaction Paiement
Sheets("EtatCompte").Range("F20").Value = Sheets("ListeEtatVierge").Range("J6").Value 'Montant Facture
Sheets("EtatCompte").Range("F21").Value = Sheets("ListeEtatVierge").Range("K6").Value 'Montant Paiement

'------------ 4 -------------
'------------ Grille -------------
Sheets("EtatCompte").Range("A23").Value = Sheets("ListeEtatVierge").Range("C7").Value 'N° Facture
Sheets("EtatCompte").Range("B24").Value = Sheets("ListeEtatVierge").Range("N7").Value 'Mode Paiement
Sheets("EtatCompte").Range("C24").Value = Sheets("ListeEtatVierge").Range("O7").Value 'No Cheque
Sheets("EtatCompte").Range("D23").Value = Sheets("ListeEtatVierge").Range("A7").Value 'Date Transaction Facture
Sheets("EtatCompte").Range("D24").Value = Sheets("ListeEtatVierge").Range("B7").Value 'Date Transaction Paiement
Sheets("EtatCompte").Range("F23").Value = Sheets("ListeEtatVierge").Range("J7").Value 'Montant Facture
Sheets("EtatCompte").Range("F24").Value = Sheets("ListeEtatVierge").Range("K7").Value 'Montant Paiement

'------------ 5 -------------
'------------ Grille -------------
Sheets("EtatCompte").Range("A26").Value = Sheets("ListeEtatVierge").Range("C8").Value 'N° Facture
Sheets("EtatCompte").Range("B27").Value = Sheets("ListeEtatVierge").Range("N8").Value 'Mode Paiement
Sheets("EtatCompte").Range("C27").Value = Sheets("ListeEtatVierge").Range("O8").Value 'No Cheque
Sheets("EtatCompte").Range("D26").Value = Sheets("ListeEtatVierge").Range("A8").Value 'Date Transaction Facture
Sheets("EtatCompte").Range("D27").Value = Sheets("ListeEtatVierge").Range("B8").Value 'Date Transaction Paiement
Sheets("EtatCompte").Range("F26").Value = Sheets("ListeEtatVierge").Range("J8").Value 'Montant Facture
Sheets("EtatCompte").Range("F27").Value = Sheets("ListeEtatVierge").Range("K8").Value 'Montant Paiement

'------------ 6 -------------
'------------ Grille -------------
Sheets("EtatCompte").Range("A29").Value = Sheets("ListeEtatVierge").Range("C9").Value 'N° Facture
Sheets("EtatCompte").Range("B30").Value = Sheets("ListeEtatVierge").Range("N9").Value 'Mode Paiement
Sheets("EtatCompte").Range("C30").Value = Sheets("ListeEtatVierge").Range("O9").Value 'No Cheque
Sheets("EtatCompte").Range("D29").Value = Sheets("ListeEtatVierge").Range("A9").Value 'Date Transaction Facture
Sheets("EtatCompte").Range("D30").Value = Sheets("ListeEtatVierge").Range("B9").Value 'Date Transaction Paiement
Sheets("EtatCompte").Range("F29").Value = Sheets("ListeEtatVierge").Range("J9").Value 'Montant Facture
Sheets("EtatCompte").Range("F30").Value = Sheets("ListeEtatVierge").Range("K9").Value 'Montant Paiement

'------------ 7 -------------
'------------ Grille -------------
Sheets("EtatCompte").Range("A32").Value = Sheets("ListeEtatVierge").Range("C10").Value 'N° Facture
Sheets("EtatCompte").Range("B33").Value = Sheets("ListeEtatVierge").Range("N10").Value 'Mode Paiement
Sheets("EtatCompte").Range("C33").Value = Sheets("ListeEtatVierge").Range("O10").Value 'No Cheque
Sheets("EtatCompte").Range("D32").Value = Sheets("ListeEtatVierge").Range("A10").Value 'Date Transaction Facture
Sheets("EtatCompte").Range("D33").Value = Sheets("ListeEtatVierge").Range("B10").Value 'Date Transaction Paiement
Sheets("EtatCompte").Range("F32").Value = Sheets("ListeEtatVierge").Range("J10").Value 'Montant Facture
Sheets("EtatCompte").Range("F33").Value = Sheets("ListeEtatVierge").Range("K10").Value 'Montant Paiement

'------------ 8 -------------
'------------ Grille -------------
Sheets("EtatCompte").Range("A35").Value = Sheets("ListeEtatVierge").Range("C11").Value 'N° Facture
Sheets("EtatCompte").Range("B36").Value = Sheets("ListeEtatVierge").Range("N11").Value 'Mode Paiement
Sheets("EtatCompte").Range("C36").Value = Sheets("ListeEtatVierge").Range("O11").Value 'No Cheque
Sheets("EtatCompte").Range("D35").Value = Sheets("ListeEtatVierge").Range("A11").Value 'Date Transaction Facture
Sheets("EtatCompte").Range("D36").Value = Sheets("ListeEtatVierge").Range("B11").Value 'Date Transaction Paiement
Sheets("EtatCompte").Range("F35").Value = Sheets("ListeEtatVierge").Range("J11").Value 'Montant Facture
Sheets("EtatCompte").Range("F36").Value = Sheets("ListeEtatVierge").Range("K11").Value 'Montant Paiement

'------------ 9 -------------
'------------ Grille -------------
Sheets("EtatCompte").Range("A38").Value = Sheets("ListeEtatVierge").Range("C12").Value 'N° Facture
Sheets("EtatCompte").Range("B39").Value = Sheets("ListeEtatVierge").Range("N12").Value 'Mode Paiement
Sheets("EtatCompte").Range("C39").Value = Sheets("ListeEtatVierge").Range("O12").Value 'No Cheque
Sheets("EtatCompte").Range("D38").Value = Sheets("ListeEtatVierge").Range("A12").Value 'Date Transaction Facture
Sheets("EtatCompte").Range("D39").Value = Sheets("ListeEtatVierge").Range("B12").Value 'Date Transaction Paiement
Sheets("EtatCompte").Range("F38").Value = Sheets("ListeEtatVierge").Range("J12").Value 'Montant Facture
Sheets("EtatCompte").Range("F39").Value = Sheets("ListeEtatVierge").Range("K12").Value 'Montant Paiement

'------------ 10 -------------
'------------ Grille -------------
Sheets("EtatCompte").Range("A41").Value = Sheets("ListeEtatVierge").Range("C13").Value 'N° Facture
Sheets("EtatCompte").Range("B42").Value = Sheets("ListeEtatVierge").Range("N13").Value 'Mode Paiement
Sheets("EtatCompte").Range("C42").Value = Sheets("ListeEtatVierge").Range("O13").Value 'No Cheque
Sheets("EtatCompte").Range("D41").Value = Sheets("ListeEtatVierge").Range("A13").Value 'Date Transaction Facture
Sheets("EtatCompte").Range("D42").Value = Sheets("ListeEtatVierge").Range("B13").Value 'Date Transaction Paiement
Sheets("EtatCompte").Range("F41").Value = Sheets("ListeEtatVierge").Range("J13").Value 'Montant Facture
Sheets("EtatCompte").Range("F42").Value = Sheets("ListeEtatVierge").Range("K13").Value 'Montant Paiement

'------------ 11 -------------
'------------ Grille -------------
Sheets("EtatCompte").Range("A44").Value = Sheets("ListeEtatVierge").Range("C14").Value 'N° Facture
Sheets("EtatCompte").Range("B45").Value = Sheets("ListeEtatVierge").Range("N14").Value 'Mode Paiement
Sheets("EtatCompte").Range("C45").Value = Sheets("ListeEtatVierge").Range("O14").Value 'No Cheque
Sheets("EtatCompte").Range("D44").Value = Sheets("ListeEtatVierge").Range("A14").Value 'Date Transaction Facture
Sheets("EtatCompte").Range("D45").Value = Sheets("ListeEtatVierge").Range("B14").Value 'Date Transaction Paiement
Sheets("EtatCompte").Range("F44").Value = Sheets("ListeEtatVierge").Range("J14").Value 'Montant Facture
Sheets("EtatCompte").Range("F45").Value = Sheets("ListeEtatVierge").Range("K14").Value 'Montant Paiement

'------------ 12 -------------
'------------ Grille -------------
Sheets("EtatCompte").Range("A47").Value = Sheets("ListeEtatVierge").Range("C15").Value 'N° Facture
Sheets("EtatCompte").Range("B48").Value = Sheets("ListeEtatVierge").Range("N15").Value 'Mode Paiement
Sheets("EtatCompte").Range("C48").Value = Sheets("ListeEtatVierge").Range("O15").Value 'No Cheque
Sheets("EtatCompte").Range("D47").Value = Sheets("ListeEtatVierge").Range("A15").Value 'Date Transaction Facture
Sheets("EtatCompte").Range("D48").Value = Sheets("ListeEtatVierge").Range("B15").Value 'Date Transaction Paiement
Sheets("EtatCompte").Range("F47").Value = Sheets("ListeEtatVierge").Range("J15").Value 'Montant Facture
Sheets("EtatCompte").Range("F48").Value = Sheets("ListeEtatVierge").Range("K15").Value 'Montant Paiement
End Sub

Je vous joint le fichier.

Merci d'Avance!!

18gestionfacturebd.xlsm (298.24 Ko)
Le 08/03/2017 à 00:04

bonjour

essayer ça

Sub Bouton4_Cliquer()
UserForm10.Show
End Sub
Sub Bouton5_Cliquer()
Dim i
'------------ 1 -------------
Sheets("EtatCompte").Range("A7").Value = Sheets("ListeEtatVierge").Range("D4").Value 'Nom
Sheets("EtatCompte").Range("A8").Value = Sheets("ListeEtatVierge").Range("E4").Value 'Adresse
Sheets("EtatCompte").Range("A9").Value = Sheets("ListeEtatVierge").Range("G4").Value 'Telephone
Sheets("EtatCompte").Range("A10").Value = Sheets("ListeEtatVierge").Range("H4").Value 'Courriel
For i = 0 To 11 '[barrer]20[/barrer]
Sheets("EtatCompte").Range("A" & 14 + (i * 3)).Value = Sheets("ListeEtatVierge").Range("C" & i + 4).Value 'N° Facture
Sheets("EtatCompte").Range("B" & 15 + (i * 3)).Value = Sheets("ListeEtatVierge").Range("N" & i + 4).Value 'Mode Paiement
Sheets("EtatCompte").Range("C" & 15 + (i * 3)).Value = Sheets("ListeEtatVierge").Range("O" & i + 4).Value 'No Cheque
Sheets("EtatCompte").Range("D" & 14 + (i * 3)).Value = Sheets("ListeEtatVierge").Range("A" & i + 4).Value 'Date Transaction Facture
Sheets("EtatCompte").Range("D" & 15 + (i * 3)).Value = Sheets("ListeEtatVierge").Range("B" & i + 4).Value 'Date Transaction Paiement
Sheets("EtatCompte").Range("F" & 14 + (i * 3)).Value = Sheets("ListeEtatVierge").Range("J" & i + 4).Value 'Montant Facture
Sheets("EtatCompte").Range("F" & 15 + (i * 3)).Value = Sheets("ListeEtatVierge").Range("K" & i + 4).Value 'Montant Paiement
Next
End Sub

j ai corrigé le code

Le 08/03/2017 à 00:10

Merci ca fonctionne très bien!

Rechercher des sujets similaires à "retrecir code"