Bonjour,
Voila j'ai un code qui copie de la feuil1 vers la feuil2 de "B5 jusqu'à I 105"jusque la tous va bien.
Pas facile à expliquer mais je me lance,
Le problème est que, si il y a que les cellules de "B5 a I16" qui sont renseignées sur la feuil2 je vais avoir de "B2 à D13" renseigner jusque la normal, mais les autre cellules ou il n'y a pas d'infos je vais avoir que des "0".
Ma question est-il possible de modifier mon pour que si il n'y pas d'infos ne rien marquer
Ci joint mon code exemple
Un très grand merci à tout ceux qui pourront m'aider...
Cordialement
Max
Voila j'ai un code qui copie de la feuil1 vers la feuil2 de "B5 jusqu'à I 105"jusque la tous va bien.
Pas facile à expliquer mais je me lance,
Le problème est que, si il y a que les cellules de "B5 a I16" qui sont renseignées sur la feuil2 je vais avoir de "B2 à D13" renseigner jusque la normal, mais les autre cellules ou il n'y a pas d'infos je vais avoir que des "0".
Ma question est-il possible de modifier mon pour que si il n'y pas d'infos ne rien marquer
Ci joint mon code exemple
Code:
Sub Liste_Click()
Sheets("ListeJoueurs").Select
Dim S As Worksheet, D As Worksheet
Set S = ThisWorkbook.Sheets(1)
Set D = ThisWorkbook.Sheets(4)
'1
D.Range("B2") = S.Range("B5").Value
D.Range("C2") = S.Range("C5")
D.Range("D2") = S.Range("I5")
'2
D.Range("B3") = S.Range("B6").Value
D.Range("C3") = S.Range("C6")
D.Range("D3") = S.Range("I6")
'3
D.Range("B4") = S.Range("B7").Value
D.Range("C4") = S.Range("C7")
D.Range("D4") = S.Range("I7")
'4
D.Range("B5") = S.Range("B8").Value
D.Range("C5") = S.Range("C8")
D.Range("D5") = S.Range("I8")
'5
D.Range("B6") = S.Range("B9").Value
D.Range("C6") = S.Range("C9")
D.Range("D6") = S.Range("I9")
'6
D.Range("B7") = S.Range("B10").Value
D.Range("C7") = S.Range("C10")
D.Range("D7") = S.Range("I10")
'7
D.Range("B8") = S.Range("B11").Value
D.Range("C8") = S.Range("C11")
D.Range("D8") = S.Range("I11")
'8
D.Range("B9") = S.Range("B12").Value
D.Range("C9") = S.Range("C12")
D.Range("D9") = S.Range("I12")
'9
D.Range("B10") = S.Range("B13").Value
D.Range("C10") = S.Range("C13")
D.Range("D10") = S.Range("I13")
'10
D.Range("B11") = S.Range("B14").Value
D.Range("C11") = S.Range("C14")
D.Range("D11") = S.Range("I14")
'11
D.Range("B12") = S.Range("B15").Value
D.Range("C12") = S.Range("C15")
D.Range("D12") = S.Range("I15")
'12
D.Range("B13") = S.Range("B16").Value
D.Range("C13") = S.Range("C16")
D.Range("D13") = S.Range("I16")
'13
'D.Range("B14") = S.Range("A17").Value
'D.Range("C14") = S.Range("C17")
'D.Range("D14") = S.Range("D17")
'14
'D.Range("B15") = S.Range("A18").Value
'D.Range("C15") = S.Range("C18")
'D.Range("D15") = S.Range("D18")
'15
'D.Range("B16") = S.Range("A19").Value
'D.Range("C16") = S.Range("C19")
'D.Range("D16") = S.Range("D18")
'16
'D.Range("B17") = S.Range("A20").Value
'D.Range("C17") = S.Range("C20")
'D.Range("D17") = S.Range("D20")
End Sub
Cordialement
Max