Aide code erreur d'exécution VB

Résolu/Fermé
mediascan_2108 Messages postés 3 Date d'inscription lundi 30 décembre 2019 Statut Membre Dernière intervention 30 décembre 2019 - 30 déc. 2019 à 10:26
mediascan_2108 Messages postés 3 Date d'inscription lundi 30 décembre 2019 Statut Membre Dernière intervention 30 décembre 2019 - 30 déc. 2019 à 12:17
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

yg_be Messages postés 21304 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 1 326
30 déc. 2019 à 10:58
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 lundi 30 décembre 2019 Statut Membre Dernière intervention 30 décembre 2019
30 déc. 2019 à 12:09
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 37253 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 mars 2023 4 551
30 déc. 2019 à 12:12
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 lundi 30 décembre 2019 Statut Membre Dernière intervention 30 décembre 2019
30 déc. 2019 à 12:17
tiaaaaaaaaaa!!! Yes ça marcher

grand merci
0