Résolu [VBA] fonction VBA find avec date et userform - RESOLU

babas

XLDnaute Junior
Bonjour à tous,

Je ne parvient pas à trouver la solution à mon problème malgré des recherches sur le forum pour des demandes similaires…

Voici le soucis, J'ai un userform avec à l'intérieur un textbox qui contient une date. Je voudrais retrouver cette date dans une feuille et insérer la valeur d'un autre textbox dans la dernière cellule vide de la colonne correspondant à cette date.
Voici le code que j'ai réalisé et qui ne fonctionne pas :(
VB:
e = CDate(newinter.TextBox2)
p = Sheets("cal").Range("A1:ND1").Find(e).Column
r = cells(p & Rows.Count).End(xlUp).Row + 1
Sheets("cal").Cells(r, p) = TextBox8
Si quelqu'un a une solution.

Merci d'avance
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

Test OK sur mon PC
VB:
Private Sub CommandButton1_Click()
Dim rng As Range, t
e = CSng(CDate(TextBox1))
Set rng = Sheets("cal").Range("$A$1:$ND$1")
p = Application.Match(e, rng, 0)
r = Cells(Rows.Count, p).End(xlUp).Row + 1
MsgBox Sheets("cal").Cells(r, p).Address
'////////////////////////////////////////////////
'plus court ;-)
MsgBox Cells(Rows.Count, p).End(3)(2).Address
End Sub
 

babas

XLDnaute Junior
Merci,
J'ai une incompatibilité de type avec

VB:
r = Cells(Rows.Count, p).End(xlUp).Row + 1
étrange. Je vais essayer de bidouiller
 

babas

XLDnaute Junior
Ayez, j'ai trouvé le problème
En fait mon textbox2 où se trouve la date n'est pas véritablement une date. Il est alimenté par trois autres textbox (un pour le jour, mois et année) qui eux sont modifié via le choix fait sur des optionbutton. Il doit y avoir un problème de traduction en date.
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil,

babas
D'où l’utilité de bien détailler sa problématique
et/ou de joindre un fichier exemple qui l'illustrera clairement.
;)
 

babas

XLDnaute Junior
Bonsoir,
En fait le fichier n'était pas anonymisé c'est pour ça. c'est réglé en tout cas, merci
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas