excel 2010-2016 replication de Valeur, par boucle sur plage spécifique

amateur_will à dit:

VB:

 ' code qui tire des numéros aléatoires
Dim cell As Range
Dim CopieCell As Range
      Set Plagcell = Feuil2.Range("B2:U2")
           Randomize
        For Each cell In Plagcell
    cell.Value = Int(0 + 9 * Rnd())
Next cell
'----------------------'
Set PosCell = Feuil2.Range("B2") 'position sur 1er valeur
PosCell.Select
    For Each CopieCell In Feuil1.Range("B2", Feuil2.Cells(Feuil2.Columns.Count, "U2").End(xlUp))
             For Each AlimPlag In Array(PlagcellB, PlagcellC, PlagcellD, PlagcellE, PlagcellF, PlagcellG,  PlagcellH,PlagcellI) 'placement des plages spécifiques du tableau
            CopieCell.Value = AlimPlag.Offset(, CInt(AlimPlag)).Value 'affecte la valeur aux plages spécifiques
                Set PosCell = PosCell.Offset(1) 'passe à la cellule suivante pour être affecté
            Next
        Next
End Sub

Regarde la pièce jointe 1015564 Bonjour a tous,
[excel2010-2016]

et merci de vos conseils, dans le code assez simple, que j'essai de faire; mais qui plante

ci-joint la capture d'écran ci-dessus.


mon code est le suivant.

mes affectations:

VB:

affectation des plages.
Sub Num_Aleatoir()
Dim Plagcell As Range, PlagcellB As Range, PlagcellC As Range, PlagcellD As Range, PlagcellE As Range, PlagcellF As Range, PlagcellG As Range
Dim PlagcellH As Range, PlagcellI As Range, PosCell As Range
'-------'
Dim deb_colo As Integer, fin_Colo As Integer, Col As Integer, i As Integer
Dim Feuil2 As Worksheet
Dim AlimPlag As Variant
'--------'
Set Feuil2 = Worksheets("Feuil2")
Set PlagcellB = Feuil2.Range("B3:B7")
Set PlagcellC = Feuil2.Range("C3:C7")
Set PlagcellD = Feuil2.Range("D3:D4", "D8:D10")
Set PlagcellE = Feuil2.Range("E3:E4", "E8:E10")
Set PlagcellF = Feuil2.Range("F3:F4,F8,F11:F12,F14:F15")
Set PlagcellG = Feuil2.Range("G4,G8,G11:G13")
Set PlagcellH = Feuil2.Range("H1,H5,H8,H11:H13")
Set PlagcellI = Feuil2.Range("I3,I5,I8,I11:I12,I14:I15")

Merci, a pour pistes et ébauches
, puisque je devrais le faire dans plusieurs autres feuilles

cordialement a vous.

Cliquez pour agrandir...

bonsoir,
j'ai un peu chercher, par rapport a ma boucle de copie pour un test, et visiblement sur les 3 plage d'affectations, elle ne respecte pas les copies.
comme vous pouvez le voir dans la capture d'écran,

Cliquez pour agrandir...

Sub Copie3Plag()
Dim i%, Plag(), c As Range, PlagcellB As Range, PlagcellC As Range, PlagcellD As Range
Dim cell1 As Range, cell2 As Range, PosCell As Range, PlagCell As Range, CntPlag As Integer

Set PlagcellB = Range("B3:B7")
Set PlagcellC = Range("C3:C7")
Set PlagcellD = Range("D3:D4", "D8:D10")
Set PosCell = Range("B2") 'position sur 1er valeur
Set PlagCell = Range("B2:U2")

Plag = Array(PlagcellB, PlagcellC, PlagcellD)
For CntPlag = LBound(Plag) To UBound(Plag)
   PosCell.Select
      For Each cell1 In PlagCell
           Randomize
                cell1.Value = Int(0 + 9 * Rnd())
                    If IsNumeric(cell1.Value) = True Then
                       Plag(CntPlag).Value = cell1.Value
                            ActiveCell.Offset(0, 1).Select
                              CntPlag = CntPlag + 1
                              End If
                    Next cell1
              Next CntPlag
End Sub

amateur_will à dit:

biensur mes affectations, sont avant mes boucles de copies.

merci

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir le fil, le forum

@amateur_will
Regardes un peu les autres discussions, et note combien de fois on dit au demandeur qu'aux images on préfère les fichiers Excel


Depuis le jeudi 17 août 20017, tu ne t'en étais pas aperçu ?

Cliquez pour agrandir...

salut staple1600,

vraiment, je suis navré de cette gourde dans le post, en question.

j'ai vraiment pas fait attention , qui fallait le fichier Excel.

ok c'est retenu pour une prochaine fois , et merci

Cliquez pour agrandir...

job75 à dit:

Prenez le temps de nous dire ce que vous voulez faire plutôt que d'écrire des codes qui n'ont aucun sens.

Cliquez pour agrandir...