Combobox et textbox
Bonjour le fil, bonjour le forum,
chapeau à vous deux
ThauThème merci tout fonctionna à merveille,
il me reste à l’intégrer dans sa base réelle
si problème j'ouvrirai un autre fil
merci infiniment à vous deux
jean claude
maurice ton post est arrivé je regarde cela ce soir il est intéressant aussi
Bonjour le forum archer et thau theme,
merci à archer et ThauThéme pour l'aide apporté sur ce classeur,
une requette si la chose est possible
Je désirerai concaténer le nom et prénom dans la colonne 3 depuis userform3 saisi consomation
merci à vous tous,
jean claude
bonjour le forum
je me répond
j"ai trouvé j'ai rajouté un champ caché TextBox23 ou je rassemble nom et prénom
et dans la partie validé 1ligne rajouté,
Private Sub CommandButton2_Click() ' validé l'userform3
Dim CTRL As Control 'Variable pour la collection des controls
Dim Tmp
Dim C As Long
Dim Nlig As Long
Set OCB = Sheets("Compta_bar")
Nlig = OCB.Range("A" & Rows.Count).End(xlUp).Row + 1
For C = 1 To 22
Tmp = Controls("TextBox" & C).Value
Me.TextBox3.Value = Me.TextBox23.Value '***************** ligne rajouté pour le concaténer
If IsDate(Tmp) Then Tmp = CDate(Tmp)
If IsNumeric(Tmp) Then Tmp = CDbl(Tmp)
OCB.Cells(Nlig, C) = Tmp
Next
Unload Me
Ini 'On lance la réinitialisation du UserForm (Macro en haut du Module)
Fin:
End SubJ’espère que cela est en règle comme programmation,
bonne continuation à tous
jean claude
bonjour
faire un select case pour les colonne
A voir
Set OCB = Sheets("Compta_bar")
Nlig = OCB.Range("A" & Rows.Count).End(xlUp).Row + 1
For C = 1 To 22
Tmp = Controls("TextBox" & C).Value
Select Case C
Case 2
OCB.Cells(Nlig, C) = Tmp
Case 3
OCB.Cells(Nlig, C) = Tmp & " " & Controls("TextBox" & 4).Value
Case 4
' OCB.Cells(Nlig, C) = Tmp
Case 5, 6
If IsDate(Tmp) Then Tmp = CDate(Tmp)
OCB.Cells(Nlig, C) = Tmp
Case 1, 7 To 22
If IsNumeric(Tmp) Then Tmp = CDbl(Tmp)
OCB.Cells(Nlig, C) = Tmp
End Select
Next
A+
Maurice
bonjour archer
merci à toi cela fonctionne
j'ai d'autres questions mais un peut plus tard
merci encore
bonne journée
a+
jean claude
Bonjour
tien du boulot pour toi
Mettre des KeyPress de 7 a 22 ex :
Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call CHIF_SEUL(KeyAscii)
End Sub
Private Sub TextBox8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call CHIF_SEUL(KeyAscii)
End Sub
Private Sub CHIF_SEUL(KeyAscii)
Select Case KeyAscii
Case 48 To 57 ' seulement les chiffres de 0 à 9
KeyAscii = KeyAscii
Case Else
KeyAscii = 0
Beep
End Select
End Sub
A+
Maurice
re
un grand merci Maurice
jean claude
re bonjour Maurice,
merci encore,
j'ai récupérer un userform et son code pour ventiler la consommation par pilote pour impression à la demande du pilote,
mais il y a un problème je n'ai pas la dernière colonne les chiffres qui y sont ce sont le N° de la ligne
je ne vois pas dans le code ou récupérer la dernière colonne
si tu pouvais regarder
merci d'avance jean claude
bon après midi
bonsoir Maurice,
ce n'est pas ce que j'ai demandé reste que pour une autre application ce sera bien mais pour l'instant je voudrais comprendre le problème,
j'ai récupérer un userform et son code pour ventiler la consommation par pilote pour impression à la demande du pilote,
mais il y a un problème je n'ai pas la dernière colonne les chiffres qui y sont ce sont le N° de la ligne
je ne vois pas dans le code ou récupérer la dernière colonne
voir fichier message précédent
merci et bonne soirée
jean claude
bonjour
désoler je maitrise pas les Listbox
je te laisse
voila mon dernier jus ca peux te servir
A+
Maurice
Bonjour Maurice
merci de ta réponse elle me fait voir d'autres choses
une suggestion à ton fichier pour la partie recup peut on faire une sélection multiple des lignes sélectionner pour la récupération
tout en effacent les lignes existantes dans la feuille recup
merci encore
jean claude
bonjour
voila un modèle de transfert de base a base
ses une copy d un autre fichier
a toi de voir HI
A+
Maurice