Coder la fonction find

Question

Je souhaite coder la fonction find de cette façon la : Private Sub CommandButton1_Click() If cell(13, 6).Find = (TextBox1) Then TextBox6 = CDec(Cells(13, 6).Value) + TextBox6 Else Cells(13, 1).Select Selection.EntireRow.Insert Worksheets(2).Cells(13, 3).Value = TextBox1 Worksheets(2).Cells(13, 5).Value = TextBox6 end if end sub Pour faire en tel sorte que dans le cas ou la valeur de cellule soit égale à celle de la textbox je change seulement une valeur et que dans le cas echeant, je rajoute une ligne pour la remplir avec des textebox. Malheuresement cette methode ne fonctionne pas. Cordialement max Pouvez vous me donner une solution...

galopin01 · Accepted Answer

Moi je verrais plutôt quelque chose comme ça : Private Sub CommandButton1_Click() If cell(13, 6) = TextBox1 Then TextBox6 = Cells(13, 6).Value + CDec(TextBox6) Else Cells(13, 1).Select Selection.EntireRow.Insert Worksheets(2).Cells(13, 3).Value = TextBox1 Worksheets(2).Cells(13, 5).Value = TextBox6 End if End sub Bon a mon avis Find à rien à voir dans ce potage... Ne pas perdre de vue que les TextBox renvoient des string donc tu peux surement avoir un problème avec ta condition. cell(13, 6) = TextBox1 Comparer un nombre avec un String c'est un peu comme comparer un sous-tif avec un string... Bon en l'absence de fichier joint je pense que personne pourra t'en dire plus... A+...