récupérer cellule après un filtre en vba

[zesuila]

Bonjour, bon le titre encore une fois n'est pas clair !
Voilà mon soucis:
comment faire après avoir fait un filtre automatique(par vba et avec un userform), pour accéder à une cellule précise de ce filtre.
Par exemple, après avoir filtré, c'est la ligne 4 qui apparait en premier dans mon onglet "archives". Comment faire en vba pour mettre une valeur précise dans la cellule C4 (par exemple).

merci d'avance

 

[wilfried_42]

Re : récupérer cellule après un filtre en vba

re:

textbox5 = format(range("D" & activecell.row),"dd/mm/yyyy")

une date est en format numeric, un textbox est en format text, il faut donc convertir, en appliquant un format de type date
VBA est en anglais donc d pour day, m pour month et y pour year

 

[zesuila]

Re : récupérer cellule après un filtre en vba

Oui mais là c'est comme pour les autres ! cela va lire la cellule !
Là je voulais après le filtre Ecrire dans une cellule

 

[wilfried_42]

Re : récupérer cellule après un filtre en vba

re:

range("D" & activecellrow) = cdate(textbox5)

 

[zesuila]

Re : récupérer cellule après un filtre en vba

re:

range("D" & activecellrow) = cdate(textbox5)

d'abord j'ai cru que c'était parce que tu avais écris activecellrow au lieu de activecell.row.
Mais non j'ai une erreur 13 imcompatilité de type

 

[wilfried_42]

Re : récupérer cellule après un filtre en vba

re:

d'abord j'ai cru que c'était parce que tu avais écris activecellrow au lieu de activecell.row.
Mais non j'ai une erreur 13 imcompatilité de type

excuse, j'ai des problemes clavier, je suis touours forcer de me relire, de boucher les touches maquantes, et il y en a qui passent au travers

c'est bien activecell.row comme dans les lignes precedentes

Bonne journée

 

[zesuila]

Re : récupérer cellule après un filtre en vba

Oui mais l'erreur corrigé entraine une ....erreur (imcompatibilité de type)

 

[wilfried_42]

Re : récupérer cellule après un filtre en vba

re:

il te faut une date dans ta textbox sous la forme jj/mm/aa
s'il y a des possibilité d'erreur de saisie, il faut tester la validite de la cellule avant.
Donc voici une macro qui va controler la validite de la date

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
     on error goto erreur ' je controle les erreurs
     if textbox5 = "" then error 13 ' pas de date, je provoque l'erreur
     Range("D" & activecell.row) = cdate(textbox5) ' Si ce n'est pasune date provoque une erreur
     goto fin
erreur:
     MsgBox "La date saisie n'est pas valide ou est absente"
     cancel = true ' Je retourne à la saisie de la date
fin:
     on error goto 0 ' je rends le controle d'erreur au VBA
End Sub

 

[zesuila]

Re : récupérer cellule après un filtre en vba

Merci cela fonctionne ! Désolé pour la réponse tardive ! j'avais oublié