Pbm pour lier les cellules à une textbox VBA

Résolu/Fermé

Sandrine - 14 sept. 2011 à 17:27
Sandrine - 14 sept. 2011 à 20:18

Bonjour,

débutante en VBA je cherche à remplir dans un tableau les colonnes PrixVente et DateVente d'un bien; dans l'userform l'utilisateur saisit le code du bien et les données prix et date, je voudrais que la procédure cherche le code du bien (dans la colonne I), et saisisse ensuite le prix et la date.
Voici ce que j'ai écrit pour l'instant:

Sub RemplirVente()
With Worksheets("DonneesStockees").Range("I:I")
Set C = .Find(Code.Text, LookIn:=xlValues)
I = 0
While C Is Nothing
I = I + 1
Wend
With Range("A" & 2 + I & ":I" & 2 + I)
.Cells(7).Value = DateV
.Cells(8).Value = MontantV
End With
End With
End Sub

Je reçois un message d'erreur sur la fonction find (l'objet n'est pas trouvé). Ma variable Code est pourtant bien définie.

Toute aide sera la bienvenue!
Merci d'avance,
Sandrine

A voir également:

Pbm pour lier les cellules à une textbox VBA
Formule excel pour additionner plusieurs cellules - Guide
Aller à la ligne dans une cellule excel - Guide
Excel compter cellule couleur sans vba - Guide
Verrouiller cellules excel - Guide
Concatener deux cellules excel - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
14 sept. 2011 à 17:47

Bonjour

With Worksheets("DonneesStockees")
     lig = Columns("I").Find(Code.Text, Range("I65536"), xlValues).Row
     .Cells(lig, 7).Value = DateV
     .Cells(lig, 8).Value = MontantV
End With

si la 1° ligne contient les étiquette (code,date, montant par ex)
écris plutôt
lig = Columns("I").Find(Code.Text, Range("I1"), xlValues).Row

j'ai considéré que code text existait toujours dans la colonne I....

Sandrine
14 sept. 2011 à 18:21

Merci pour cette réponse,
quand je lance la procédure, j'ai une erreur sur la ligne lig=... (objet requis).
Sais tu d'où ça vient?

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
14 sept. 2011 à 18:53

comme d'hab j'ai oublié un point devant range
lig = Columns("I").Find(Code.Text, .Range("I65536"), xlValues).Row

si ca persiste: code.text ques aco ?

Sandrine
14 sept. 2011 à 20:18

Ca marche très bien maintenant, merci énormément pour ton aide!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA Excel : sélection d'une plage variable

additionner nombres dans cellules avec texte

Erreur d'exécution 13 Incompatibilité de type

[VBA] format de date dans textbox