MASSJIPE
XLDnaute Impliqué
Bonjour le Forum
Besoin d'aide pour modifier le code vba suite à des ajouts de colonne supplémentaire j'ai fait des essais mais ca ne marche pas
Besoin d'aide pour modifier le code vba suite à des ajouts de colonne supplémentaire j'ai fait des essais mais ca ne marche pas
VB:
Sub Panier()
Dim plageProd As Range
Dim compteur As Integer
Sheets("Bon de commande").Select
Range("A9:E34").Select
Selection.ClearContents
Range("A1").Select
With Sheets("Catalogue")
Set plageProd = .Range("A9:" & .[A65000].End(xlUp).Address) 'repère les cellules non-vides de la colonne A
End With
'nbArt = WorksheetFunction.CountIf(plageProd.Offset(, 3), ">0") 'combien de qté renseignées?
compteur = 9 'puisque bon de Cmde démarre en ligne 9
With Sheets("Bon de commande")
For Each cell In plageProd.Offset(, 3)
If cell Then
.Range("A" & compteur).Resize(1, 8) = cell.Offset(0, -7).Resize(1, 8).Value
.Range("I" & compteur) = .Range("G" & compteur) * .Range("H" & compteur)
compteur = compteur + 1
End If
Next cell
'.Range("E" & compteur) = WorksheetFunction.Sum(Range(.Cells(9, 5), .Cells(compteur, 5)))
End With
End Sub