Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Modifier une ligne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion apdf1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

apdf1

XLDnaute Impliqué
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
 

Pièces jointes

Trier par date Trier par votes
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 😕 ?...
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 :
Code: 
Set C = Sheets("Feuil1").Cells.Find
et
Code: 
C.Row
te donnera la ligne à modifier 😛...
Bon courage 😎
 
Vote positif 0 Vote négatif
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é.

Code: 
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
 
Vote positif 0 Vote négatif
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 :
Code: 
Sheets("Feuil1").Cells(C.Row, 3) = TextBox2.Value  'nom
Sheets("Feuil2").Cells(C.Row, 3) = TextBox2.Value  'nom

bonne journée
@+
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Modifier une ligne

Re,

Voila le code que j'ai mis.

Code: 
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
 
Vote positif 0 Vote négatif
Re : Modifier une ligne

Re,

il faut adapter ces lignes pour tes autres textbox, nom de ceux ci et colonnes.... :
Code: 
Sheets("Feuil1").Cells(C.Row, 3) = TextBox2.Value  'nom
Sheets("Feuil2").Cells(C.Row, 3) = TextBox2.Value  'nom
 
Vote positif 0 Vote négatif
Re : Modifier une ligne

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

Code: 
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
 
Vote positif 0 Vote négatif
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 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
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 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Graphique avec valeur sur différentes feuilles
Réponses
3
Affichages
193
sousou
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
681
Jaykerz
J
N
  • Question Question
Microsoft 365 Vérifier si une référence existe dans un tableau Excel avant de la créer
2
Réponses
19
Affichages
1 K
nikeu01
N
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
346
Marie.
M
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
283
PR.
P
W
  • Question Question
Microsoft 365 compter le nombre d'articles expédiés un jour donné
Réponses
2
Affichages
276
Wilmouth Michel
W
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
371
Cousinhub
  • Question Question
XL 2021 Mise à jour d'un tableau depuis une feuille Excel
Réponses
5
Affichages
405
thunder23
S
  • Question Question
XL 2016 Problème ajout client et modification code postale dans gestion de stock/clients/factures
Réponses
8
Affichages
625
Piment
P
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
280
alexga78
A
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
2 K
job75
  • Résolu(e)
Microsoft 365 Formule entre 2 feuilles
Réponses
7
Affichages
318
TooFatBoy
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
565
mikeduff
M
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
488
Anthony_51
A
  • Résolu(e)
XL 2021 Saisie de lignes multiples dans un formulaire
2
Réponses
15
Affichages
1 K
jeff1494
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
450
flc13090
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
375
StéphaneDeLà
S
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
456
sebastien176
S
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
4 K
patricktoulon
A
  • Question Question
XL 2016 Déterminer le N° de ligne dans un tableau structuré
2
Réponses
26
Affichages
3 K
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…