Pbm pour lier les cellules à une textbox VBA
Résolu
Sandrine
-
Sandrine -
Sandrine -
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
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
- Verrouiller cellules excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Aller à la ligne dans une cellule excel - Guide
- Concatener deux cellules excel - Guide
1 réponse
Bonjour
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....
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....
quand je lance la procédure, j'ai une erreur sur la ligne lig=... (objet requis).
Sais tu d'où ça vient?
lig = Columns("I").Find(Code.Text, .Range("I65536"), xlValues).Row
si ca persiste: code.text ques aco ?