Boucle VBA

Résolu

happy4u Messages postés 39 Date d'inscription Statut Membre Dernière intervention -
happy4u Messages postés 39 Date d'inscription Statut Membre Dernière intervention - 20 janv. 2017 à 15:39

Bonjour,

comment peut on mettre ce bout de code en boucle?

Workbooks("s1.xlsm").Sheets("feuil1").Cells(Rows.Count, 5).End(xlUp)(2) = x.Offset(2).Value * 10 ^ 6
             Workbooks("s1.xlsm").Sheets("feuil1").Cells(Rows.Count, 6).End(xlUp)(2) = x.Offset(3).Value * 10 ^ 6
                  Workbooks("s1.xlsm").Sheets("feuil1").Cells(Rows.Count, 8).End(xlUp)(2) = x.Offset(4).Value * 10 ^ 6
                     Workbooks("s1.xlsm").Sheets("feuil1").Cells(Rows.Count, 9).End(xlUp)(2) = x.Offset(5).Value * 10 ^ 6
                     Workbooks("s1.xlsm").Sheets("feuil1").Cells(Rows.Count, 10).End(xlUp)(2) = x.Offset(6).Value * 10 ^ 6
                  Workbooks("s1.xlsm").Sheets("feuil1").Cells(Rows.Count, 11).End(xlUp)(2) = x.Offset(7).Value * 10 ^ 6
             Workbooks("s1.xlsm").Sheets("feuil1").Cells(Rows.Count, 12).End(xlUp)(2) = x.Offset(8).Value * 10 ^ 6
           Workbooks("s1.xlsm").Sheets("feuil1").Cells(Rows.Count, 7).End(xlUp)(2) = x.Offset(9).Value * 10 ^ 6

merci !!

Afficher la suite

A voir également:

Boucle VBA
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

Bonjour

On peut toujours mais c'est pas forcément utile :

With Workbooks("s1.xlsm").Sheets("feuil1")
 j = 2
 For i = 5 To 12
  If i = 7 Then
   .Cells(Rows.Count, i).End(xlUp)(2) = x.Offset(j + 2).Value * 10 ^ 6
  Else
   .Cells(Rows.Count, i).End(xlUp)(2) = x.Offset(j).Value * 10 ^ 6
   j = j + 1
  End If
 Next i
End With

happy4u Messages postés 39 Date d'inscription Statut Membre Dernière intervention

Thank you :))

Discussions similaires

Mon pc s'allume et s'éteint en boucle

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Mon ordinateur s'allume et s'eteint en boucle

tele s'eteind et s'allume en boucle

Votre réponse

Discussions similaires