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

XL 2021 Intégrations de multi données dans une cellule

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

100kibou

XLDnaute Nouveau
Bonjour à toutes et tous.
Voici mon nouveau problème dans excel:
dans une base de données je dois intégrer divers éléments
Je me sers d'un formulaire, dans le formulaire il y a un bouton qui ouvre un sous-formulaire avec 4 champs.
Le premier champ est obligatoire, les 3 suivants sont optionnels, on peut saisir soit les 4 champs ou bien 1 seul ou 2 ou 3.

Je que je n'arrive pas à faire, lorsqu'il n'y a que le premier la donnée s'integre bien dans ma BD.
Mais je n'arrive pas à faire cohabiter les autres champs dans la même cellule de la BD.
Je souhaite intégrer dans la même cellule avec une mise en forme (exemple dans le fichier) tous les champs remplis depuis le sous formulaire.
Je ne sais pas si cela est possible depuis vba.
Je vous joins un petit fichier avec mes bouts de code récupérer de ci et là.
Je vous souhaite une excellente soirée.
Cdlt
 

Pièces jointes

Trier par date Trier par votes
Bonjour

essaie ceci
VB: 
Private Sub btnvalider_Click()
'on verifie que le champ numero1 est rempli.
    If Len(Me.txtnum1) = 0 Then
        Me.lblmessagenumero = "Veuillez remplir ce champ obligatoir. Merci"
        Me.txtnum1.SetFocus
        Exit Sub
    End If
    If (Not IsNumeric(Me.txtnum1) And Me.txtnum1 <> "") Or (Not IsNumeric(Me.txtnum2) And Me.txtnum2 <> "") Or (Not IsNumeric(Me.txtnum3) And Me.txtnum3 <> "") Or (Not IsNumeric(Me.txtnum4) And Me.txtnum4 <> "") Then
        Me.lblmessagenumero = "Veuillez ne saisir que des nombres. Merci"
        Exit Sub
    End If
'on sauvegarde dans la source
    'on ajoute une ligne
    With Feuil1.ListObjects("TSource")
        .ListRows.Add
        Lastline = .ListRows.Count
        Resultat = Format(Me.txtnum1, "0000000") & IIf(Me.txtnum2 <> "", Chr(10), "") & Format(Me.txtnum2, "0000000") & IIf(Me.txtnum3 <> "", Chr(10), "") & Format(Me.txtnum3, "0000000") & IIf(Me.txtnum4 <> "", Chr(10), "") & Format(Me.txtnum4, "0000000")
        .DataBodyRange(Lastline) = Resultat
    End With
    
'procedure pour fermer le formulaire
Call btnfermer_Click

End Sub
 
Vote positif 0 Vote négatif
Hello VGENDRON
Tout d'abord un grand merci pour ce code.
Je viens de tester et cela fonctionne presque parfaitement.
Je rencontre le problème suivant lorsque plusieurs champs sont remplis tout fonctionne parfaitement avec la mise en forme adéquat.
Le problème que je rencontre c'est lorsque je ne rempli que le premier champ qui est obligatoire, il me renvoie "vrai" dans la cellule.
Le format est bon alors je ne vois pas d'ou cela vient.
Je te remts le fichier
Cdlt
 

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

P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
511
PHIL37
P
D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
313
sylvanu
B
  • Résolu(e)
Microsoft 365 Recherche de plusieurs critères dans une cellule
2
Réponses
19
Affichages
352
Bambi35
B
A
  • Résolu(e)
XL 2021 Ajustement automatique d'une référence cellule dans une macro ?
Réponses
2
Affichages
289
Alamyr
A
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
1 K
arnomorize
A
Y
  • Résolu(e)
XL 2016 4 Messages dans des formules différentes à imbriquer dans une seule formule SI.est vide.ET.ET
Réponses
6
Affichages
137
YGU1
Y
D
  • Résolu(e)
Microsoft 365 Validation de données sous condition
Réponses
8
Affichages
335
drop91
D
S
  • Question Question
Microsoft 365 Transfert de données sur une autre tableau
Réponses
2
Affichages
239
stefane26
S
R
  • Résolu(e)
XL 2010 vba excel : recherche concordance chaine texte dans cellule et données stockées dans un tablo (array)
Réponses
4
Affichages
237
Raynaud.JF
R
A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
162
agnesd
A
C
  • Résolu(e)
XL 2021 Ajouter un menu déroulant dans une vba
2
Réponses
27
Affichages
1 K
C'est Génial
C
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
346
fenec
K
  • Résolu(e)
XL 2013 Lignes de résultats surnuméraires dans une ListBox
3 4 5
Réponses
73
Affichages
1 K
kiko_23
K
  • Résolu(e)
XL 2019 Fonction "Find" qui ne fonctionne pas selon le format de cellule
Réponses
12
Affichages
298
Titof06
C
  • Question Question
XL 2021 Cellules qui ne s'effacent pas sur formulaire et renvoi de valeurs du formulaire
Réponses
1
Affichages
557
gbinforme
G
B
  • Question Question
XL 2016 Somme automatique des prix associés aux produits sélectionnés sur Excel
Réponses
6
Affichages
272
bkarima1
B
E
  • Question Question
Microsoft 365 Changement valeur de cellule en cliquant sur une autre cellule
Réponses
3
Affichages
158
Dudu2
D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
311
danielco
D
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
231
patricktoulon
G
  • Question Question
Microsoft 365 Résultat dans une cellule en fonction d'une autre cellule
Réponses
1
Affichages
141
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…