Aide code erreur d'exécution VB

Résolu
mediascan_2108 Messages postés 3 Statut Membre -  
mediascan_2108 Messages postés 3 Statut Membre -
Bonjour,

Bonjour,
j'ai un petit problème dans mon code VB.
je suis sur projet de réalisation du formulaire permettant l'enregistrement automatique des personnels. pendant l'exécution de mon formaulaire une erreure d'exécution '9' s'affiche l'indice n'appartient pas à la selection.
Aider moi SVP

derligne = Sheets("Base").Range("A65000").End(xlUp).Row + 1

Configuration: Windows / Chrome 79.0.3945.88

2 réponses

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour, si tu as bien une feuille nommée "Base", tu peux peut-être essayer ceci:
    derligne = Sheets("Base").Cells(Rows.Count, 1).End(xlUp).Row + 1
    0
  2. mediascan_2108 Messages postés 3 Statut Membre
     
    Merci !
    J'ai Notamment modifié et valider et votre code , mais une erreu s'est parvenu pendant l'exécution,
    Erreur d'Exécution '438' propiété ou méthode non gerer par cet obejt

    Sheets("Base").Cell(derligne, Colonne) = ctrl
    alors je ne comprend plus
    0
    1. jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   4 832
       
      Bonjour,

      Cells avec un S ... sinon ça ne fonctionnera pas. :-)


      NB: J'ai déplacé la question dans le forum vb/vba ...
      0
    2. mediascan_2108 Messages postés 3 Statut Membre
       
      tiaaaaaaaaaa!!! Yes ça marcher

      grand merci
      0