Aide code erreur d'exécution VB [Résolu]

Signaler
Messages postés
3
Date d'inscription
lundi 30 décembre 2019
Statut
Membre
Dernière intervention
30 décembre 2019
-
Messages postés
3
Date d'inscription
lundi 30 décembre 2019
Statut
Membre
Dernière intervention
30 décembre 2019
-
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

Messages postés
13254
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
23 novembre 2020
743
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
Messages postés
3
Date d'inscription
lundi 30 décembre 2019
Statut
Membre
Dernière intervention
30 décembre 2019

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
Messages postés
30284
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
23 novembre 2020
3 012
Bonjour,

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


NB: J'ai déplacé la question dans le forum vb/vba ...
Messages postés
3
Date d'inscription
lundi 30 décembre 2019
Statut
Membre
Dernière intervention
30 décembre 2019

tiaaaaaaaaaa!!! Yes ça marcher

grand merci