Imputbox qui ne fonctionne qu'a moitié

bonjour

dans cette sub l'imputbox s'ouvre et fonctionne tres bien

mais quand on veux quitter avant la fin ou cliquer sur la croix cela renvoie une erreur

Sub TotalisationCouleur1()
    Set Aselectionner = Application.InputBox _
    (prompt:="selectionner la plage de cellule ", _
     Title:=" Plage de cellules à sélectioner", Type:=8)
     Aselectionner.Select 'Selection de la plage souhaitée
     For Each Cel In Aselectionner
          If Cel.Interior.Color = RGB(255, 255, 255) Then Som = Som + Cel
     Next Cel
         MsgBox Som
End Sub

quelqu'un pourrait voir cela

amicalement

solution trouvé

merci

Bonsoir,

merci à vous d'avoir partagé la solution...

@ bientôt

LouReeD

milles excuses

Sub TotalisationCouleur()    'pour afficher les poids en vert
    Dim Aselectionner As Range, Cel As Range, som
    Application.DisplayAlerts = False
    On Error Resume Next
    Set Aselectionner = Application.InputBox(prompt:="selectionner la plage de cellule ", Title:=" Plage de cellules à sélectioner", Type:=8)
    If Err Then Exit Sub
    On Error GoTo 0
    For Each Cel In Aselectionner
        If IsNumeric(Cel) Then If Cel.Interior.Color = RGB(192, 255, 96) Then som = som + Cel
    Next Cel
    MsgBox som & " " & "Kg", vbInformation, "Resultat"
End Sub

Bonjour toutes et tous

Merci

Sub TotalisationCouleur()    'pour afficher les poids en vert
    Dim Aselectionner As Range, Cel As Range, som
    Application.DisplayAlerts = False
    On Error Resume Next
    Set Aselectionner = Application.InputBox(prompt:="Sélectionner la plage de cellules ", Title:=" Plage de cellules à sélectionner", Type:=8)
    If Err Then Exit Sub
    On Error GoTo 0
    For Each Cel In Aselectionner
        If IsNumeric(Cel) Then If Cel.Interior.Color = RGB(192, 255, 96) Then som = som + Cel
    Next Cel
    MsgBox som & " " & "Kg", vbInformation, "Résultat"
End Sub