Bonjour à tous,

Je rencontre un problème sur mon script VBA qui fonctionné jusqu'à présent sur mon ancien Excel 2010 et depuis la mise à jour en version XL 365 cela ne fonctionne plus.

Dès que je valide ma saisie il me marque :
Erreur d'exécution ......... La méthode '_Default' de l'objet 'Range' a échoué
J'ai essayé avec ma version Cac Excel 365 et la ça marche mais pas sur Windows...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
'Procédure permettant d'ajouter un nouvelle enregistrement dans la base de donnée
'********************************************************************************
Private Sub btnAjout_Click()
 
    'Activation de la feuille dans laquelle seront ecrites les informations
    Sheets("AR Distributeur").Activate
 
    'sélection de la case dans la quelle sera saisie l'information
    Range("A1").Select
 
    'recherche de la premiere case vide
    While Selection <> ""
        Selection.Offset(1, 0).Select
    Wend
 
    'Remplissage des cases avec ce qui a été saisi dans les cases
    ActiveCell = txtNArc.Value
    ActiveCell.Offset(0, 1) = cboExercice.Value
    ActiveCell.Offset(0, 2) = txtDateARC.Value
    ActiveCell.Offset(0, 3) = txtDateModif.Value
    ActiveCell.Offset(0, 4) = cboDept.Value
    ActiveCell.Offset(0, 5) = cboGroupement.Value
    ActiveCell.Offset(0, 6) = cboDistributeur.Value
    ActiveCell.Offset(0, 7) = txtVendeur.Value
    ActiveCell.Offset(0, 8) = cboRubrique.Value
    ActiveCell.Offset(0, 9) = cboFamille.Value
    ActiveCell.Offset(0, 10) = cboModele.Value
    ActiveCell.Offset(0, 11) = txtProduit.Value
    ActiveCell.Offset(0, 12) = txtCA.Value
    ActiveCell.Offset(0, 13) = txtActionCom.Value
    ActiveCell.Offset(0, 14) = cboCommande.Value
    ActiveCell.Offset(0, 15) = txtRefDistri.Value
    ActiveCell.Offset(0, 16) = cboSAndG.Value
    ActiveCell.Offset(0, 17) = txtDateLivraison.Value
 
    MsgBox "AR à bien été ajouter dans la base de donnée", vbOKOnly + vbInformation, "CONFIRMATION"
 
End Sub
Merci à vous pour votre aide.