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
A voir également:

2 réponses

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
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 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
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