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

[Résolu] Copier textbox dans cellule (ligne variable)

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Kintin
  • 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
K

Kintin

XLDnaute Nouveau
Bonjour à tous...

N'étant pas très calé en vba, j'en viens à vous demander de l'aide...

Pour faciliter la visibilité dans une base de données clients, j'ai créé une feuille récapitulative qui reprend toutes les valeurs de ces clients (avec une fonction rechercheV : donc je dois noter soit le numero du client, soit son nom et toutes les données modifiables se retrouvent dans cette feuille)...

Cela fonctionne très bien,
Mais j'aimerai pouvoir modifier directement ces données en créant, par exemple, un userform qui modifierait ces valeurs...

j'ai créé l'useform et copié tout les titres (en utilisant les "label", par contre je n'arrive pas à copier les valeurs (dans des "textbox") car le numero de ligne dépend du numero de dossier.

Malgré pas mal d’essai de codes, je dois dire que je suis bloqué...

Merci de votre aide, si vous avez besoin d'info supplémentaire, n'hésitez pas...

pour info : ce que j'ai déjà :
au lancement de l'userform => affichage des titres :

j'ai testé ce code sur la derniere ligne à modifiée... je pense etre +/- sur la bonne voie
Private Sub modif_Click()
Lg = Sheets("Recherche").Range(c1).Value - 999
Dim Lg As String
Lg = Sheets("Achats").Cells(65536, 1)
Sheets("Achats").Cells(Lg, "R").Value = UserForm2.TextBox35.Value
End Sub
Cliquez pour agrandir...

Il faut que je crée une variable qui détecte la bonne ligne en fonction du numero de client...


Merci d'avance à tous les courageux
 
Dernière édition:
Trier par date Trier par votes
Re : Copier textbox dans cellule (ligne variable)

Je vous transmet ci joint, ma base de données (vide et apurée)...

Si vous saviez jeter un oeil sur le code pour userform2...
la feuille où se trouve le bouton d'encodage s'appelle "Recherche" et le bouton s'appelle "modif"

merci d'avance à tout les vba-addict ^^
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Copier textbox dans cellule (ligne variable)

Bonjour Kintin 🙂,
A tester 😛
Code: 
Sub UserForm_activate()
Dim I As Integer, Cellule As Range
For I = 1 To 15
Controls("Label" & I) = Sheets("SUIVI FACTURE").Range("C1").Offset(0, I - 1).Value
Next I
For I = 16 To 20
Controls("Label" & I) = Sheets("DATES").Range("C1").Offset(0, I - 16).Value
Next I
For I = 21 To 35
Controls("Label" & I) = Sheets("Achats").Range("C1").Offset(0, I - 21).Value
Next I
Set Cellule = Sheets("SUIVI FACTURE").Range("B:B").Find(Sheets("Recherche").Range("B1"), lookat:=xlWhole, LookIn:=xlValues)
If Not Cellule Is Nothing Then
For I = 1 To 15
Controls("TextBox" & I).Text = Cellule.Offset(0, I).Value
Next I
End If
Set Cellule = Sheets("DATES").Range("A:A").Find(Sheets("Recherche").Range("B1"), lookat:=xlWhole, LookIn:=xlValues)
If Not Cellule Is Nothing Then
For I = 16 To 20
Controls("TextBox" & I).Text = Cellule.Offset(0, I - 14).Value
Next I
End If
Set Cellule = Sheets("Achats").Range("A:A").Find(Sheets("Recherche").Range("B1"), lookat:=xlWhole, LookIn:=xlValues)
If Not Cellule Is Nothing Then
For I = 21 To 35
Controls("TextBox" & I).Text = Cellule.Offset(0, I - 19).Value
Next I
End If
End Sub
Bonne suite 😎
 
Vote positif 0 Vote négatif
Re : Copier textbox dans cellule (ligne variable)

OK, merci beaucoup...

je vais tester, c'est surement un code moins long que celui que j'ai fini par trouver...

Je le rajoute ici juste pour info (et que les pros rigolent de toutes les lignes inutiles qu'ils trouveront ^^)

Franchement je ne sais pas ce que je ferais sans ce site (et surtout ses membres)...

ENORME MERCI !
.


 
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

C
  • Résolu(e)
XL 2021 Additionner plusieurs cellules d'une même ligne selon critère d'autres cellules
Réponses
3
Affichages
303
JHA
J
F
  • Question Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
495
francha62
F
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
1 K
Fabrice16ct
F
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
665
un internaute
U
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
K
  • Résolu(e)
XL 2019 ListObjects -- Erreur 1004
Réponses
3
Affichages
787
patricktoulon
I
  • Question Question
XL 2016 MACRO LENTE
Réponses
2
Affichages
867
ImNotJésus
I
R
  • Question Question
XL 2010 VBA : consolidation
Réponses
2
Affichages
864
Rousseau Benoit
R
K
  • Résolu(e)
Microsoft 365 Incrémenter des valeurs présentées à l'horizontale dans une autre feuille en verticale
Réponses
4
Affichages
446
kikilabrax
K
D
  • Question Question
XL 2019 Aide à la compréhension d'un code VBA
Réponses
4
Affichages
1 K
Dudu2
W
  • Question Question
XL 2016 La fonction countif
2
Réponses
15
Affichages
2 K
walter ebelle
W
O
  • Question Question
Microsoft 365 Insertion donnée dans une ligne en fonction d'une valeur de Cellule
Réponses
2
Affichages
1 K
olivier91620
O
  • Question Question
XL 2019 Guillemets crées en trop, csv vers xls
Réponses
3
Affichages
1 K
msauvegrain
I
  • Question Question
XL 2019 Autofill - Une seule ligne
Réponses
1
Affichages
3 K
Staple1600
R
  • Question Question
XL 2019 Optimisation de longueur de barre en long multiple
Réponses
3
Affichages
4 K
Ryoken
R
W
  • Résolu(e)
Microsoft 365 Boucle Loop infinie lors écriture dans des fichier
Réponses
7
Affichages
1 K
Staple1600
  • Question Question
XL 2010 Modification Macro.
Réponses
5
Affichages
812
dg62
E
  • Question Question
XL 2019 Suivi des Modification
Réponses
0
Affichages
708
ExcelUser21
E
  • Question Question
XL 2016 Remplir Tableaux
Réponses
5
Affichages
782
KTM
C
  • Résolu(e)
XL 2013 VBA - Amélioration d'une macro consolidation
Réponses
8
Affichages
2 K
Genii
G
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…