Bonjour à tous !
avant de commencer tout d'abord je vous souhaite tous mes meilleurs vœux pour cette nouvelle année!!
ensuite voici mon soucis de ce matin erreur de capacité j'ai cherché un peu et j'ai compris que c'est une histoire de 37700 mais je ne vois pas ce qui cloche là dedans ?
avez vous vous une idée?
Sub Go()
Range("E20").Value = Range("E20").Value + 1
'Feuilles
Set Ws = Sheets("BDD")
Set Ws1 = Sheets("Fact PCE Auto")
'Plage de référence, avec les dates en troisième colonne de la plage et les références clients en deuxième de la plage
Set maPlage = Ws.Range("A4:F" & Ws.Range("AN65536").End(xlUp).Row)
'Les cellules E3, F3 et G3 correspondent aux infos que l'on rentre, il faut les changer dans la suite du code si on modifie leur position
If Ws1.Range("N12").Value = "" Or Ws1.Range("B24").Value = "" = "" Or Ws1.Range("E20").Value = "" = "" Then
MsgBox "Tous les champs doivent être remplis!", vbCritical, "Attention!"
Else
With Ws
For i = maPlage.Row + 1 To maPlage.Rows.Count + maPlage.Row - 1
If .Cells(i, maPlage.Column + 49).Value = Ws1.Range("B24").Value And .Cells(i, maPlage.Column + 6).Value = Ws1.Range("N12").Value Then
.Cells(i, maPlage.Column + (maPlage.Columns.Count + maPlage.Column + 54)).Value = Ws1.Range("E20").Value
End If
Next i
End With
End If
End Sub
merci de vos retours
bonne journée
avant de commencer tout d'abord je vous souhaite tous mes meilleurs vœux pour cette nouvelle année!!
ensuite voici mon soucis de ce matin erreur de capacité j'ai cherché un peu et j'ai compris que c'est une histoire de 37700 mais je ne vois pas ce qui cloche là dedans ?
avez vous vous une idée?
Sub Go()
Range("E20").Value = Range("E20").Value + 1
'Feuilles
Set Ws = Sheets("BDD")
Set Ws1 = Sheets("Fact PCE Auto")
'Plage de référence, avec les dates en troisième colonne de la plage et les références clients en deuxième de la plage
Set maPlage = Ws.Range("A4:F" & Ws.Range("AN65536").End(xlUp).Row)
'Les cellules E3, F3 et G3 correspondent aux infos que l'on rentre, il faut les changer dans la suite du code si on modifie leur position
If Ws1.Range("N12").Value = "" Or Ws1.Range("B24").Value = "" = "" Or Ws1.Range("E20").Value = "" = "" Then
MsgBox "Tous les champs doivent être remplis!", vbCritical, "Attention!"
Else
With Ws
For i = maPlage.Row + 1 To maPlage.Rows.Count + maPlage.Row - 1
If .Cells(i, maPlage.Column + 49).Value = Ws1.Range("B24").Value And .Cells(i, maPlage.Column + 6).Value = Ws1.Range("N12").Value Then
.Cells(i, maPlage.Column + (maPlage.Columns.Count + maPlage.Column + 54)).Value = Ws1.Range("E20").Value
End If
Next i
End With
End If
End Sub
merci de vos retours
bonne journée