guenfood
XLDnaute Occasionnel
Bonjour,
J'ai le message d'erreur d'exécution '1004' avec le code suivant :
La ligne surlignée est 'Contenu = Sheets('opcopie').Range('AO' & numligne)'
????? Au secours, j'ai besoin d'aide )
J'ai le message d'erreur d'exécution '1004' avec le code suivant :
Code:
Function FinDispatch(numligne)
'procédure qui vérifie que tout a été saisie
Dim CellVide As Boolean
Dim Contenu As Variant
Contenu = Sheets('opcopie').Range('AO' & numligne)
If Sheets('trésoprod').Range('A' & numligne).Value <> '' Then
If Contenu = '' Then
CellVide = False
Sheets('Accueil').Select
End If
Else
CellVide = True
MsgBox 'La saisie ne s'est pas déroulée correctement. Merci de recommencer ou de vérifier.'
End If
End Function
La ligne surlignée est 'Contenu = Sheets('opcopie').Range('AO' & numligne)'
????? Au secours, j'ai besoin d'aide )