Modifier une ligne

[apdf1]

Bonjour,

Comment modifier une ligne de 10 colonne sur 2 feuilles similaire. A l'aide d'un USF qui possède 10 textbox.
J'aimerais quand je modifie une ligne je puisse modifier sur les deux feuilles concerner soit feuil1 et feuil2 ou feuil1 et feuil3 ect...

Si quelqu'un peut m'aider je le remercie d'avance.

Cordialement
Max

 

[apdf1]

Re : Modifier une ligne

Bonjour,

Personne peut m'aider

Max

 

[JNP]

Re : Modifier une ligne

Bonjour Apdf1 🙂,
Où est ton problème, sachant que tu as déjà tout ce qu'il faut dans ton code 😕 ?...

Set C = Cells.Find(what:=Me.TextBox2.Text, LookIn:=xlValues, lookat:=xlWhole)

te permet de chercher la ligne à modifier, il te suffiit de faire la recherche dans les 2 feuilles :

Set C = Sheets("Feuil1").Cells.Find

et

C.Row

te donnera la ligne à modifier 😛...
Bon courage 😎

 

[apdf1]

Re : Modifier une ligne

Bonjour JNP

Et merci d'avoir répondu.

Je te remercie mais je ne voit toujours pas comment arriver a modifier une ligne sur deux feuille en même temps.

Voila le code que j'ai modifié.

Private Sub CommandButton6_Click()

'Modifier
Dim C As Range
Set C = Cells.Find(what:=Me.TextBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
Set C = Sheets("Feuil1").Cells.Find
Cells(C.Row, 3) = TextBox2.Value  'nom
Cells(C.Row, 4) = TextBox3.Value  'date
Cells(C.Row, 5) = TextBox4.Value  'N° Facture
Cells(C.Row, 6) = TextBox5.Value  'adresse
Cells(C.Row, 7) = TextBox6.Value  'cp
Cells(C.Row, 8) = TextBox7.Value  'ville
Cells(C.Row, 9) = TextBox8.Value 'Tel
Cells(C.Row, 10) = TextBox9.Value  'Fax
Cells(C.Row, 11) = TextBox10.Value  'Mobile
UserForm_Initialize
End Sub

Mais sa ne change rien j'ai du faire une erreur.
Si tu peut regarder sa m'arrangerai beaucoup

Max

 

[Pierrot93]

Re : Modifier une ligne

Bonjour Max, JNP🙂

pas tout suivi mais pour agir sur 2 feuilles il y a sans doute lieu d'indiquer leurs noms :

Sheets("Feuil1").Cells(C.Row, 3) = TextBox2.Value  'nom
Sheets("Feuil2").Cells(C.Row, 3) = TextBox2.Value  'nom

bonne journée
@+

 

[apdf1]

Re : Modifier une ligne

Bonjour Pierrot,

je te remercie je suis sur ce problème depuis deux jours et je ne m'encore pas, peut tu me dire comment faire parce que la je suis vraiment perdu et j'aimerais en finir.

@+

Max

 

[Pierrot93]

Re : Modifier une ligne

Re,

le nom de la feuille devant l'instruction devrait le faire... As tu essayé...

Sheets("Feuil1")

 

[apdf1]

Re : Modifier une ligne

Re,

Voila le code que j'ai mis.

Private Sub CommandButton6_Click()

'Modifier
Dim C As Range
Set C = Cells.Find(what:=Me.TextBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
Sheets("Feuil1").Cells(C.Row, 3) = TextBox2.Value  'nom
Sheets("Feuil2").Cells(C.Row, 3) = TextBox2.Value  'nom

Cells(C.Row, 3) = TextBox2.Value  'nom
Cells(C.Row, 4) = TextBox3.Value  'date
Cells(C.Row, 5) = TextBox4.Value  'N° Facture
Cells(C.Row, 6) = TextBox5.Value  'adresse
Cells(C.Row, 7) = TextBox6.Value  'cp
Cells(C.Row, 8) = TextBox7.Value  'ville
Cells(C.Row, 9) = TextBox8.Value 'Tel
Cells(C.Row, 10) = TextBox9.Value  'Fax
Cells(C.Row, 11) = TextBox10.Value  'Mobile
UserForm_Initialize
End Sub

Max

 

[Pierrot93]

Re : Modifier une ligne

Re,

il faut adapter ces lignes pour tes autres textbox, nom de ceux ci et colonnes.... :

Sheets("Feuil1").Cells(C.Row, 3) = TextBox2.Value  'nom
Sheets("Feuil2").Cells(C.Row, 3) = TextBox2.Value  'nom

 

[apdf1]

Re : Modifier une ligne

Re
Voila j'ai sa mais sa ne donne rien !

Private Sub CommandButton6_Click()

'Modifier
Dim C As Range
Set C = Cells.Find(what:=Me.TextBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
Sheets("Feuil1").Cells(C.Row, 3) = TextBox2.Value  'nom
Sheets("Feuil2").Cells(C.Row, 3) = TextBox2.Value  'nom
Sheets("Feuil1").Cells(C.Row, 3) = TextBox3.Value  'date
Sheets("Feuil2").Cells(C.Row, 3) = TextBox3.Value  'date
Sheets("Feuil1").Cells(C.Row, 3) = TextBox4.Value  'N° Facture
Sheets("Feuil2").Cells(C.Row, 3) = TextBox4.Value  'N° Facture
Sheets("Feuil1").Cells(C.Row, 3) = TextBox5.Value  'adresse
Sheets("Feuil2").Cells(C.Row, 3) = TextBox5.Value  'adresse
Sheets("Feuil1").Cells(C.Row, 3) = TextBox6.Value  'cp
Sheets("Feuil2").Cells(C.Row, 3) = TextBox6.Value  'cp
Sheets("Feuil1").Cells(C.Row, 3) = TextBox7.Value  'ville
Sheets("Feuil2").Cells(C.Row, 3) = TextBox7.Value  'ville
Sheets("Feuil1").Cells(C.Row, 3) = TextBox8.Value  'Tel
Sheets("Feuil2").Cells(C.Row, 3) = TextBox8.Value  'Tel
Sheets("Feuil1").Cells(C.Row, 3) = TextBox9.Value  'Fax
Sheets("Feuil2").Cells(C.Row, 3) = TextBox9.Value  'Fax
Sheets("Feuil1").Cells(C.Row, 3) = TextBox10.Value  'Mobile
Sheets("Feuil2").Cells(C.Row, 3) = TextBox10.Value  'Mobile

UserForm_Initialize
End Sub

Max

 

[Paritec]

Re : Modifier une ligne

Bonjour Pierrot🙂 max
si tu ne mettais pas tout dans la même colonne cela irait certainement mieux!!
là pour le moment tu récupères le numéro de mobile en colonne C ......... C'est tout !!
a+
Papou 🙂

 

[Paritec]

Re : Modifier une ligne

re Pierrot🙂, max,
en relisant le début du post, cela ne marchera pas car tu n'as pas les infos à modifier sur la même ligne en feuil2 et en feuil1 , et la fonction d'Hasco te donne bien la ligne à modifier mais pas pour deux feuilles !!!!!
il faudra donc deux procédures distinctes, mais comme apparemment tu ne lis pas les recommandations !!!
bon dimanche
a+
Papou 🙂