Fipat
XLDnaute Occasionnel
Bonjour,
Je galère depuis quelques heures sur une situation.
J'ai construit un userform avec 7 bases que je vais remplir dans une feuille nommée "Paramétrages".
J’affiche sur 7 cellule en colonne C (soit de C6 à C12) ces extractions depuis mon userform.
En C8 j'ai par exemple (extraction qui peut être bien plus longue), cela donne : BM, MT, NT
En C11 J'ai idem une extraction qui peu-être plus longue, cela donne : 14*..15*..21*..30*
En C12, j'affiche une seule lettre qui peut-être M ou C... en tout 7 lettre, cela donne (en exemple) : M
Je voudrais et cherche à concaténer ce petit monde et donc écraser la cellule C12 pour que cela me donne en C12 :
BMM14*,BMM15*,BMM21*,BMM30*, MTM14*,MTM15*,MTM21*,MTM30*, NTM14*,NTM15*,NTM21*,NTM30*
Par avance merci.
Pardon je complète ma demande.
Pour afficher en C8
Je fait :
Pour C11 :
Et en C12
Ah oui pour nettoyer et avoir l'affichage désiré en C11 je fais via un autre bouton :
Je galère depuis quelques heures sur une situation.
J'ai construit un userform avec 7 bases que je vais remplir dans une feuille nommée "Paramétrages".
J’affiche sur 7 cellule en colonne C (soit de C6 à C12) ces extractions depuis mon userform.
En C8 j'ai par exemple (extraction qui peut être bien plus longue), cela donne : BM, MT, NT
En C11 J'ai idem une extraction qui peu-être plus longue, cela donne : 14*..15*..21*..30*
En C12, j'affiche une seule lettre qui peut-être M ou C... en tout 7 lettre, cela donne (en exemple) : M
Je voudrais et cherche à concaténer ce petit monde et donc écraser la cellule C12 pour que cela me donne en C12 :
BMM14*,BMM15*,BMM21*,BMM30*, MTM14*,MTM15*,MTM21*,MTM30*, NTM14*,NTM15*,NTM21*,NTM30*
Par avance merci.
Pardon je complète ma demande.
Pour afficher en C8
Je fait :
VB:
Private Sub Btn_Ajout_Agence_Click()
Application.ScreenUpdating = False
Dim Agence As String
Dim Nc, Cel As Range
Agence = Lbx_Agence.Value
Tbx_Agence = Agence & "," & Tbx_Agence
With Sheets("Paramétrages")
.[C8].Value = Tbx_Agence.Value
End With
Application.ScreenUpdating = True
End SubPour C11 :
Code:
Private Sub Btn_Ajout_Famille_Click()
Application.ScreenUpdating = False
Dim Famille As String
Dim Nc, Cel As Range
Famille = Lbx_Famille.Value
Tbx_Famille = Famille & ".." & Tbx_Famille
With Sheets("Paramétrages")
.[C11].Value = Tbx_Famille.Value
End With
Application.ScreenUpdating = True
End SubEt en C12
Code:
Private Sub Btn_Ajout_Sections_Click()
Application.ScreenUpdating = False
Dim Sections As String, LectureAG As String
Dim Nc, Cel As Range
Sections = Lbx_Sections.Value
Tbx_Sections = Sections & "," & Tbx_Sections
With Sheets("Paramétrages")
LectureAG = .[C12].Value ' Et c'est ici que tout ce complique
.[C12].Value = Tbx_Sections.Value ' écraser la valeur pour concaténer C..
End With
Application.ScreenUpdating = True
End SubAh oui pour nettoyer et avoir l'affichage désiré en C11 je fais via un autre bouton :
VB:
Private Sub Btn_Valide_Famille_Click() ' suppression dernier caractère & espace famille
Application.ScreenUpdating = False
With Sheets("Paramétrages")
Dim Nc, Cel As Range
For Each Cel In Range("C11")
Cel.Value = Trim(Cel.Value) 'supprime espaces
Nc = Len(Cel) 'compte les caractères
Cel.Value = Left(Cel, Nc - 2)
Next Cel
End With
Application.ScreenUpdating = True
End Sub
Dernière édition:
