Bonjour.
Voilà un certain que je cherche sur les forums une approche de solution.
Quelqu'un pourrait-il me mettre sur la voie pour convertir ce début de code en boucle ? (Sachant que je doit arriver à "sfz" et affecter à chaque variable les valeurs qui vont jusqu'à B214)
Dim sfa1 As String, sfa2 As String, sfa3 As String, sfa4 As String, sfa5 As String, sfa6 As String, sfa7 As String
Dim sfb1 As String
Dim sfc1 As String, sfc3 As String
Dim sfe1 As String, sfe2 As String
Dim sff1 As String, sff2 As String, As String, sff3 As String, sff4 As String, sff5 As String
...
Dim sfz1 As String, sfz2 As String, sfz3 As String
sfa1 = TabDM.Range("B2").Value
sfa2 = TabDM.Range("B3").Value
sfa3 = TabDM.Range("B4").Value
sfa4 = TabDM.Range("B5").Value
sfa5 = TabDM.Range("B6").Value
sfa6 = TabDM.Range("B7").Value
sfa7 = TabDM.Range("B8").Value
sfb1 = TabDM.Range("B9").Value
sfc1 = TabDM.Range("B10").Value
sfc2 = TabDM.Range("B11").Value
sfc3 = TabDM.Range("B12").Value
sfe1 = TabDM.Range("B13").Value
sfe2 = TabDM.Range("B14").Value
...
sfz1 = TabDM.Range("B212").Value
sfz2 = TabDM.Range("B213").Value
sfz3 = TabDM.Range("B214").Value
Merci d'avance !
Voilà un certain que je cherche sur les forums une approche de solution.
Quelqu'un pourrait-il me mettre sur la voie pour convertir ce début de code en boucle ? (Sachant que je doit arriver à "sfz" et affecter à chaque variable les valeurs qui vont jusqu'à B214)
Dim sfa1 As String, sfa2 As String, sfa3 As String, sfa4 As String, sfa5 As String, sfa6 As String, sfa7 As String
Dim sfb1 As String
Dim sfc1 As String, sfc3 As String
Dim sfe1 As String, sfe2 As String
Dim sff1 As String, sff2 As String, As String, sff3 As String, sff4 As String, sff5 As String
...
Dim sfz1 As String, sfz2 As String, sfz3 As String
sfa1 = TabDM.Range("B2").Value
sfa2 = TabDM.Range("B3").Value
sfa3 = TabDM.Range("B4").Value
sfa4 = TabDM.Range("B5").Value
sfa5 = TabDM.Range("B6").Value
sfa6 = TabDM.Range("B7").Value
sfa7 = TabDM.Range("B8").Value
sfb1 = TabDM.Range("B9").Value
sfc1 = TabDM.Range("B10").Value
sfc2 = TabDM.Range("B11").Value
sfc3 = TabDM.Range("B12").Value
sfe1 = TabDM.Range("B13").Value
sfe2 = TabDM.Range("B14").Value
...
sfz1 = TabDM.Range("B212").Value
sfz2 = TabDM.Range("B213").Value
sfz3 = TabDM.Range("B214").Value
Merci d'avance !