Commande inputbox

Re : Commande inputbox

Re

fmoore
Tu peux déjà t'initier ici sur le forum ... en étant curieux et en n'hésitant pas à mettre les mains dans le cambouis.
(Et toujours avoir un doigt prêt à bondir sur la touche F1 dans Excel ou VBE 😉)

Quand aux formations, ce n'est pas le choix qui manque (là encore une petite recherche sur g..gle ou tout autre moteur de recherche te renseignera.

Et avec un brin de curiosité en plus, tu aurais même pu cliquer ci... 😉🙄

Re : Commande inputbox

Dans ce code comment je fais pour dire dans la feuille "Suivi de mandat" car aussitôt il a plusieurs feuille la commande ne fonctionne plus :

Private Sub CommandButton1_Click()
Dim tL, i%
tL = Array(6, 10, 12, 14, 16)
If Len([E6]) = 0 Then
For i = 0 To UBound(tL)
Cells(tL(i), "E") = _
IIf(Cells(tL(i), "E") = Empty, Me("TextBox" & i + 1), vbNullString)
Next i
End If
Unload Userform2
End Sub

Re : Commande inputbox

Bonjour

Pour un tuto je l'espère assez clair et assez complet sur la logique de conception d'un userform :
5 pages qui te seront utiles pour mieux organiser les choses :
Ce lien n'existe plus (et les 4 pages suivantes, avec l'exemple à télécharger)

Re : Commande inputbox

Bonsoir à tous

fmoore

fmoore à dit:

Dans ce code comment je fais pour dire dans la feuille "Suivi de mandat" car aussitôt il a plusieurs feuille la commande ne fonctionne plus :

Private Sub CommandButton1_Click()
Dim tL, i%
tL = Array(6, 10, 12, 14, 16)
If Len([E6]) = 0 Then
For i = 0 To UBound(tL)
Cells(tL(i), "E") = _
IIf(Cells(tL(i), "E") = Empty, Me("TextBox" & i + 1), vbNullString)
Next i
End If
Unload Userform2
End Sub

Cliquez pour agrandir...

Si j'ai bien compris, essaie ceci:

Re : Commande inputbox

J'aimerais que quand je click sur le commandbouton en plus sa ouvre le enregistrer sous et va directement sur mon P: j'ai essayer comme tu ma dit avec faire une macro mais j'ai essayer d'une 20 aine de façon avec le code suivant :

Sub Macro2()
'
' Macro2 Macro
'

'
ChDir "C:\Users\mooref\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\mooref\Desktop\Mission examen Quévillon_NCECF.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Le problème je ne veux pas qu'il enregistre je veux juste qu'il me pop la fenêtre directement sur un répertoire au début je croyais que c'étais seulement le ChDir "C:\Users\mooref\Desktop" je suis dans un impasse.

Re : Commande inputbox

Avec l'aide de tutoriel j'ai fais ceci qui semble fonctionner

Sub enregistrement()
Dim fichier As String
On Error Resume Next
ChDir "P:\2013"
fichier = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")
If fichier <> False Then ThisWorkbook.SaveAs fichier
End Sub