Aide code erreur d'exécution VB

Résolu
mediascan_2108 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
mediascan_2108 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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
mediascan_2108 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
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
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

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


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

grand merci
0