Microsoft 365 Modification code vba

[MASSJIPE]

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

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

 

[jmfmarques]

Bonjour
Lorsque l'on écrit ou dit quelque-chose (en code ou non), ce que l'on écrit ou dit doit avoir une signification précise au moins pour celui qui écrit ou dit la chose concernée.
Question, donc : quelle est pour toi (au moins pour toi) la signification de ce que tu as écrit là :

If cell Then

 

[MASSJIPE]

Bonjour
c'est vrai c'est le calcul qui ne vas pas pour les colonnes G H I je pense que c'est dans cette partie du code

.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

 

[jmfmarques]

Je ne crois pas (et toi, le crois-tu ?) que tu aies répondu à la question précise que je t'ai posée ...

 

[patricktoulon]

re
bonjour
Set plageProd = .Range("A9:" & .[A65000].End(xlUp).Address)
donc la colonne 1

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

n'y a t il pas un soucis déjà ici avec l'offset

 

[MASSJIPE]

Bonour
erreur 1004 avec cette ligne
.Range("A" & compteur).Resize(1, 8) = cell.Offset(0, -7).Resize(1, 8).Value

 

[patricktoulon]

re
en même temps ça n'est pas étonnant tu veux récupérer l'offset(0,-7) de la colonne 4

 

[jmfmarques]

salut Patrick

l'offset(0,-7) de la colonne 4

Et alors ? On n'a plus le droit de rechercher les trous noirs en informatique ?

EDIT :; ce n'est très surement pas le fait du hasard si mon message #2 reste sans réponse

 

[patricktoulon]

bonjour jmfmarques

Et alors ? On n'a plus le droit de rechercher les trous noirs en informatique ?

ben alors il a tout bon car en général d'un trou noir on en reviens pas

 

[MASSJIPE]

Bonjour
Lorsque l'on écrit ou dit quelque-chose (en code ou non), ce que l'on écrit ou dit doit avoir une signification précise au moins pour celui qui écrit ou dit la chose concernée.
Question, donc : quelle est pour toi (au moins pour toi) la signification de ce que tu as écrit là :

If cell Then

re aucune idée je ne connais pas le VBA