Astuces Excel
  1. Astuces Excel
  3. Le code VBA ne passe qu'une seule section au milieu des Wks et ce n'est pas censé
Intereting Posts
Comment puis-je écrire cette déclaration IF dans Excel? Obtenir des ventes pour le timeout imparti (Excel) Excel, Colonne de commentaires avec requête auto-rafraîchissante Excel 'Text to Columns' lorsqu'il n'y a pas d'espaces Besoin d'écrire des valeurs avec VBA depuis Autocad dans une feuille Excel Jquery Datatable La valeur d'export Excel a été modifiée dans le file téléchargé Coller spécial avec powershell et excel Sélectionnez Gamme de cellules, Enregistrez dans le dossier défini avec un nom pré-défini en format PDF Formule de copy à de nombreuses cellules dans Excel Python – Bouclez des cellules Excel non vierges Exception lors de l'utilisation de POI d'Apache sur un JSP en utilisant la même gamme de cellules à travers de multiples feuilles de calcul Comment build la database à partir d'un file Excel (xls, xlsx) dans Scala Spark? Mise à jour d'une requête SQL à partir d'une cellule dans Excel Copier une plage de tous les files dans un dossier et le coller dans un classur principal

Le code VBA ne passe qu'une seule section au milieu des Wks et ce n'est pas censé

Pour une raison quelconque, ce code saute les lignes 333: 349 sur chaque feuille de calcul qui va jusqu'à présent. il ne saute pas les lignes qui viennent après cependant. Je ne peux pas comprendre pourquoi. Je pense qu'il a quelque chose à voir avec la partie Rng.Cell.Count du code. 

Sub Update_Last_Projection() Dim AccountRng As Range Dim Data As Variant Dim R As Long Dim Rng As Range Dim Wks As Worksheet For Each Wks In Worksheets If Wks.Name = "Accounts" Then R = 0 Do Set Rng = Wks.Range("A9").Offset(R, 0).CurrentRegion.Offset(0, 9) If Rng.Cells.Count = 1 Then Exit Do Set AccountRng = Rng.Resize(ColumnSize:=Rng.Columns.Count - 10) AccountRng.Rows(9).Value = AccountRng.Rows(6).Value R = R + AccountRng.Rows.Count + 2 Loop End If Next Wks End Sub