Je tente de créer une feuilles résumé avec un VBA qui copie mes données sous conditions.
Je veux utiliser le même type de VBA pour tout mes boutons mais pour chaque bouton je change le range de cellule et les autres valeurs associé aux bonnes colonnes source et destination.
Ce n'est pas le bouton qui ne fonctionne pas mais le VBA qui m'indique un erreur.
Je dois créer une nouvelle feuille résumé pour chaque étape du projet. Soit pour chaque load(chargement de ce qu'on envoie).
Celà fonctionne pour mes 2 premiers boutons ("load 1 et Load 2") mais pas pour les autres. Ce serait la ligne en gras italique qui ne fonctionne pas
Sub LOAD3()
Dim Source As Worksheet, Cible As Worksheet, RgSource As Range, Rgcible As Range, i% Dim Données(), Résultats()
Set Source = ActiveWorkbook.Worksheets("Shipping List") Set Cible = ActiveWorkbook.Worksheets("LACEY")
Set RgSource = Source.Range("E12:AB2019") 'Plage contenant toutes les données Set Rgcible = Cible.Range("N23") '1ère cellule de la plage cible
'On nettoie la cible (valeurs et formats) Rgcible.Resize(2008, 5).Clear
Application.ScreenUpdating = False
'on stocke dans un tableau de variables toutes les valeurs de la plage de données Données = RgSource.Value2
'i : Index pour de décalage en ligne de la plage cible i = 0
For j = 1 To UBound(Données, 1) 'J varie de 1 aux nombre de lignes de la plage des données (ici 2008 lignes)
If IsNumeric(Données(j, 20)) And Not IsEmpty(Données(j, 20)) Then If Données(j, 20) > 0 Then 'Ici Données(j,20) est une valeur numérique supérieure à 0
Select Case Données(j, 1) Case "CAP", "USA", "SPF", "LAM", "LVL", "PLY" 'On incrémente i pour le prochain résultat i = i + 1 'on redimensionne le tableau Résultats et on le remplit (au début i vaut 1) 'remarque le tableau est en colonnes, lignes et non pas en lignes, colonnes ReDim Preserve Résultats(1 To 5, 1 To i) Résultats(1, i) = 3 Résultats(2, i) = Données(j, 1) Résultats(3, i) = Données(j, 4) Résultats(4, i) = Données(j, 24) Résultats(5, i) = Données(j, 20)
Case Else 'Rien End Select End If End If Next
'On attribue à la plage cible redimensionnée les résultats '(on utilise la fonction TRANSPOSE pour er le tableau en lignes, colonnes) Rgcible.Resize(i, 5).Value2 = Application.Transpose(Résultats)
