do 'bla bla bla loop until TextBox5.Value > index
j'aimerai y ajouter une autre boucle qui me permettra d'incrémenter de 1 la valeur "c"
Do e = e + 1 Windows("pavrlntr.va").Activate Range("A" & c).Select Range("A" & c).copy Windows("Calcul.xls").Activate Range("B" & a).Select ActiveSheet.Paste c = c + 16 a = a + 1 Loop While e <= 10
for e = 0 to 9 'bla bla bla for f = 0 to 150 'bla bla bla next f 'bla bla bla next e e = 0 do until e > 9 e = e + 1 'bla bla bla for f = 0 to 150 'bla bla bla next f 'bla bla bla loop
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim x As Integer Dim valeur_cellule_past As Integer Dim valeur_cellule_copy As Integer Dim nombre_boucle As Integer Dim boucle_principale As Integer Dim rachid As String Dim boualem As String Dim index As Integer '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''' Transfert des boundery UP ''''''''''''''''''''''''''''''''''''' 'valeur des variables x = 1 boucle_principale = 0 nombre_boucle = 0 valeur_cellule_copy = 1 valeur_cellule_past = 9 rachid = "A" index = 1 '''''''''''''''''''''''''''' Boucle principale ''''''''''''''''''''''''''''''''''''' Do Select Case index Case 1: boualem = "B" Case 2: boualem = "F" Case 3: boualem = "J" Case 4: boualem = "N" End Select Do boucle_principale = boucle_principale + 1 Do nombre_boucle = nombre_boucle + 1 Windows("pavrlntr.va").Activate Range(rachid & valeur_cellule_copy).copy Windows("Calcul.xls").Activate Range(boualem & valeur_cellule_past).Select ActiveSheet.Paste valeur_cellule_copy = valeur_cellule_copy + 16 valeur_cellule_past = valeur_cellule_past + 1 Loop While nombre_boucle <= 10 x = x + 1 valeur_cellule_copy = x valeur_cellule_past = valeur_cellule_past + 4 nombre_boucle = 0 Loop While boucle_principale <= 5 valeur_cellule_copy = 1 valeur_cellule_past = 9 nombre_boucle = 0 boucle_principale = 0 index = index + 1 Loop While TextBox5.Value <= index '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''' Fin de boucle ''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Range(rachid & valeur_cellule_copy).copy Windows("Calcul.xls").Activate Range(boualem & valeur_cellule_past).Select ActiveSheet.Paste
Range("A1:A2").Copy Destination:=Range("A3:A4")