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

aide textbox pour completer une cellule contenant déja une donnée

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

sandra95

XLDnaute Nouveau
Bonjour,

J'ai créé une macro qui vient mettre à jour une base de donnée après intervention du technicien.
J'aimerais savoir de quelle façon je peux, par une textbox à alimenter, modifier (et non remplacer) la cellule de destination.
Ceci afin de mettre à jour un historique en alimentant la suite, mais sans effacer le texte déjà existant.
Je vous joins un fichier exemple.

Merci de votre aide.
 

Pièces jointes

Trier par date Trier par votes
Re : aide textbox pour completer une cellule contenant déja une donnée

Bonsoir sandra95,

Pas certain que je puisse t'aider, mais ... c'est volontairement que tu as déposé un fichier sans le moindre petit bout de code?
Même pas moyen de déterminer si ton TextBox est un contrôle ActiveX dans la feuille de calcul ou un TextBox dans un UserForm?
Comment quelqu'un pourrait-il/elle t'aider, avec le peu d'infos que tu livres?
Si tu nous en disais un peu (beaucoup?) plus?

Salut JP 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : aide textbox pour completer une cellule contenant déja une donnée

Bonsoir a tous
tu as du te tromper de fichier un xlsx ne contient pas de macros

bonjour Modeste je n'avais pas rafraichi et comme je tape pas vite
 
Vote positif 0 Vote négatif
Re : aide textbox pour completer une cellule contenant déja une donnée

Bonsoir sandra95, salut les amis,

A priori il vous faut un UserForm avec deux TextBoxes et un CommandButton.

Le code du CommandButton peut être :

Code: 
Private Sub CommandButton1_Click()
If Not IsDate(TextBox1) Then
  If TextBox1 <> "" Then MsgBox "Date non valide..."
  TextBox1.SetFocus
  Exit Sub
End If
If TextBox2 = "" Then TextBox2.SetFocus: Exit Sub
Dim lig&, dat As Date, t$
lig = ActiveCell.Row
dat = CDate(TextBox1): t = UCase(TextBox2)
Cells(lig, "C") = IIf(Cells(lig, "C") = "", dat, Cells(lig, "C") & " - " & dat)
Cells(lig, "E") = IIf(Cells(lig, "E") = "", t, Cells(lig, "E") & " - " & t)
Columns.AutoFit 'ajustement largeur
Unload Me
End Sub
Edit : couplé avec le double-clic dans le fichier joint.

Bonne fin de soirée.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : aide textbox pour completer une cellule contenant déja une donnée

Bonjour le fil, le forum,

Si la date est toujours la date du jour c'est bien sûr plus simple :

Code: 
Private Sub Label2_Click() 'OK
If TextBox1 = "" Then Exit Sub
Dim lig&, t$
lig = ActiveCell.Row: t = UCase(TextBox1)
Cells(lig, "C") = IIf(Cells(lig, "C") = "", Date, Cells(lig, "C") & " - " & Date)
Cells(lig, "E") = IIf(Cells(lig, "E") = "", t, Cells(lig, "E") & " - " & t)
Columns.AutoFit 'ajustement largeur
Unload Me
End Sub
Fichier(2).

Bonne journée.
 

Pièces jointes

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

G
  • Question Question
XL 2016 Comment concaténer plusieurs dates (provenant d'une formule) de différentes cellules en une seule cellule?
Réponses
4
Affichages
372
JHA
J
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
5
Affichages
593
Pi4
P
  • Question Question
XL 2021 Besoin de conseils pour une sélection de multiples éléments
2
Réponses
18
Affichages
2 K
jeff1494
J
  • Question Question
Microsoft 365 affiché une valeur texte dans un cellule
Réponses
1
Affichages
851
Gen Rose
B
  • Résolu(e)
Microsoft 365 Macro pour substituer une cellule par plusieurs cellules
Réponses
7
Affichages
683
bertchristophe
B
K
  • Question Question
Microsoft 365 Remplir une cellule avec la date du jour uniquement si celle-ci est vide et si la première cellule de la ligne contient quelque chose
Réponses
5
Affichages
1 K
ThierryP
T
L
  • Question Question
Microsoft 365 Macro pour aide facturation
Réponses
3
Affichages
551
AtTheOne
P
  • Résolu(e)
XL 2016 Besoin d'ajouter une fonctionnalité d'envoi d'e-mails pour deux personnes dans un outil 5S
2
Réponses
15
Affichages
2 K
Pauuul35
P
C
  • Question Question
Microsoft 365 Organiser un tableau pour ne faire qu'apparaître les lignes contenant une couleur de remplissage particulière
Réponses
1
Affichages
528
fanch55
J
  • Question Question
Power Query Aide - Fonctions pour afficher le détail des inscrits (nom, prénom date de naissance) parmi une liste de différents stages.
Réponses
6
Affichages
827
Hasco
V
  • Résolu(e)
Microsoft 365 Macro pour sélectionner une plage de cellules selon une couleur de remplissage donnée
Réponses
2
Affichages
1 K
vash966
V
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
R
  • Question Question
Microsoft 365 Affichage sur List Box et retranscrire donnée sur cellule
Réponses
9
Affichages
1 K
Roger26
R
L
  • Question Question
XL 2010 rechercher une valeur pour remplir un label de userform à partir d'une valeur de textbox
2 3 4
Réponses
52
Affichages
5 K
SDHABARKA
S
C
  • Résolu(e)
Microsoft 365 [VBA] macro pour cibler une cellule aléatoire et y coller une valeur
Réponses
5
Affichages
1 K
AtTheOne
E
  • Question Question
Microsoft 365 Ecrire une date en fonction d'une recherche (vba)
Réponses
2
Affichages
1 K
Eisu
E
  • Question Question
Microsoft 365 Inclure 2 nombres dans une boucle
Réponses
4
Affichages
890
Regueiro
C
  • Résolu(e)
Microsoft 365 Avoir l'adresse d'une cellule qui est pointée par une rechercheV
Réponses
13
Affichages
1 K
Casim
C
  • Question Question
XL 2016 Information de cellule contiguë a déplacer dans une compilation
Réponses
3
Affichages
723
job75
D
  • Question Question
XL 2019 Aide à la compréhension d'un code VBA
Réponses
4
Affichages
1 K
Dudu2
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…