modifier une cellule depuis un textbox Fermé

Question

Bonjour,
je cherche comment je peut modifié le contenu d'une cellule depuis une textbox.
j'a fais un userform de recherche qui fonctionne bien mais je voudrai pouvoir modifier la cellule trouver par un bouton "validier la modification"

m@rina · Answer

Bonjour,

Ben c'est tout bête :

Range("A10").Value = TextBox1.Value


m@rina

jaushuaglp · Answer

oui ca je suis d'accord mais la cellule a modifier n'est pas connu elle est rechercher par la recherche depuis la colonne B qui m'affiche toute la ligne 
je met ce que j'ai deja mis comme code cela aideras peut être.

Private Sub CommandButton2_Click()
Set objDVD = Application.ThisWorkbook.Worksheets.Item("feuil2")

Let blnvalidRecherche = True

'si pas de titre entrer
If Me.TextBox3.Value = "" Then
    Call MsgBox("Veuiller entrer un titre !", vbCritical + vbOKOnly, "Erreur")
    Let blnvalidRecherche = False
MsgBox "ce titre n'éxiste pas"

End If
Let lngNBligne = 2

'recherche du DVD
If blnvalidRecherche = True Then
    Do While objDVD.Cells(lngNBligne, 1) <> ""
        If Me.TextBox3.Value = objDVD.Cells(lngNBligne, 2) Then
                    TextBox7 = objDVD.Cells(lngNBligne, 1).Value
        TextBox8 = objDVD.Cells(lngNBligne, 2).Value
        TextBox9 = objDVD.Cells(lngNBligne, 3).Value
        TextBox13 = objDVD.Cells(lngNBligne, 4).Value
        TextBox14 = objDVD.Cells(lngNBligne, 5).Value
        TextBox15 = objDVD.Cells(lngNBligne, 6).Value
        TextBox20 = objDVD.Cells(lngNBligne, 7).Value
        TextBox21 = objDVD.Cells(lngNBligne, 8).Value
        TextBox22 = objDVD.Cells(lngNBligne, 9).Value
        TextBox23 = objDVD.Cells(lngNBligne, 10).Value
        TextBox27 = objDVD.Cells(lngNBligne, 11).Value
        TextBox28 = objDVD.Cells(lngNBligne, 12).Value
        
         TextBox29 = objDVD.Cells(lngNBligne, 13).Value
         
         TextBox31 = objDVD.Cells(lngNBligne, 14).Value
        
        
        
        
        
        
        
    
    
        
        
        End If
        Let lngNBligne = lngNBligne + 1
    Loop
End If


End Sub

Private Sub TextBox33_Change()

End Sub

Private Sub CommandButton3_Click()
End Sub


donc ce que je voudrai c'est que je rentre une modif dans le TextBox33_Change() et clique sur CommandButton3_Click() le contenu de la cellule de la colonne 1 change

m@rina · Answer

Bonjour,

Ce serait plus simple si tu mettais un exemple de ton classeur à notre disposition :
https://www.cjoint.com/

m@rina

jaushuaglp · Answer

je ne sais pas mettre mon fichier dans https://www.cjoint.com/  car il est trop volumineux desolé

m@rina · Answer

Alors essaie http://cijoint.fr/
Tu peux y mettre jusqu'à 8Mo

Cela dit, on n'a peut être pas besoin du classeur complet... Juste l'onglet, la Userform, et le code...

m@rina

jaushuaglp · Answer

http://www.cijoint.fr/cjlink.php?file=cj200903/cijS1Y6ZXd.zip
j'ai reussis a le joindre :) mdr je suis pas trop doués

m@rina · Answer

J'ai récupéré le fichier, c'est déjà une bonne chose... 
Je pense que, si tu es débutante en VBA, tu t'es attelée à un projet bien compliqué pour démarrer.

La UserForm principale a plusieurs boutons de commande qui ouvrent chacun une nouvelle Userform. Jusque là pas de problème. Mais tes Userforms sont vides pour le moment. Les boutons de commande ne mènent à rien.
Aussi, je ne retrouve pas le code que tu as donné ici et de ce fait, je ne comprends pas bien ce que tu veux faire.

Mais bon, peut être que d'autres que moi auront des lumière ! ;))

m@rina

jaushuaglp · Answer

bon je vais tenter de t'expliquer,
dans l'userform qui s'appele MODIF,j'ai un textbox ou j'ecrit le titre a rechercher pour modifier une cellule de cette ligne(en haut a gauche de ma page modif)exemple "popo"puis je clique sur le bouton rechercher fiche (juste en dessous)
il me donne toute les données de la ligne que je recherche et les affiche dans chaque textbox ,jusque la aucun probleme ca fonctionne trés bien 
mais en bas de ma page j'ai un textbox(textbox33)ou je doit ecrire la modification a apporté puis cliqué sur un des bouton situé sur la gauche de ma page pour determiner dans quel colonne la modif doit etre faite.
 dans mon exemple "popo" le textbox "n°"donne "j0024"j'ecris j0035 dans le textbox en bas de ma page et puis je clic sur le bouton intitulé n°(sur la droite de ma page)pour qu'il effectue le changement dans la cellule mais justement c'est la que ca coince je sais pas comment faire pour qu'il change dans la cellule

jaushuaglp · Answer

je viens de m'apercevoir que le fichier que j'ai joint tantot n'etais que la premiere ebauche celui-ci devrait peut etre vous eclairer plus sur ce que je veux faire 



http://www.cijoint.fr/cjlink.php?file=cj200903/cijo67knbX.zip

Modifier une cellule depuis un textbox

9 réponses