> Tous les forums > Forum Bureautique
 Ce code est-il correct
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Gorfous
  Posté le 07/04/2017 @ 06:20 
Aller en bas de la page 
Petit astucien

Bonjour,

Étant sous Excel 2003, pouvez-vous me dire si ce code est correct, envoi des Textbox vers ma feuille Base

Sub Transfert()
Dim li%, i%
With Worksheets("Feuil3")
li = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 21
If Controls("Textbox " & i).Value <> "" Then .Cells(li, i) = Controls("Textbox " & i).Value
Next i
End With
End Sub

Je vous remercie



Modifié par Gorfous le 08/04/2017 08:30
Publicité
Debrief
 Posté le 08/04/2017 à 04:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Soit tu es dans le code du Userform et tu références les Controls par Me.Controls soit tu es en dehors et tu les références par <nom Userform>.Controls.

D'autre part les noms par défaut des Textbox sont Textbox1, Textbox2, etc... Donc ("Textbox " & i) n'est pas correct pour ces défauts.

Cordialement,
D.

P.S. Ah pas vu que c'était résolu avant que je réponde !



Modifié par Debrief le 08/04/2017 04:53
Gorfous
 Posté le 08/04/2017 à 08:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Debrief,

Merci de me répondre,

Tu veux dire que dans cette ligne :

If Controls("Textbox " & i).Value <> "" Then .Cells(li, i) = Controls("Textbox " & i).Value

je dois écrire :

Me.Controls("Textbox " & i).Value <> "" Then .Cells(li, i) = Controls("Textbox " & i).Value

Par contre que mettre ici :

(Textbox " & i)

Étant plus que débutant je patauge



Modifié par Gorfous le 08/04/2017 08:37
gilbert_rgi
 Posté le 08/04/2017 à 15:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Gorfous a écrit :

Bonjour Debrief,

Merci de me répondre,

Tu veux dire que dans cette ligne :

If Controls("Textbox " & i).Value <> "" Then .Cells(li, i) = Controls("Textbox " & i).Value

je dois écrire :

Me.Controls("Textbox " & i).Value <> "" Then .Cells(li, i) = Controls("Textbox " & i).Value

Par contre que mettre ici :

(Textbox " & i)

Étant plus que débutant je patauge

Bonjour;

je t'ai fait un petit exemple pour t'aider

http://www.cjoint.com/c/GDinmPAw5eB

Gorfous
 Posté le 09/04/2017 à 14:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Gilbert,

Je te remercie pour ton aide et le fichier que tu as joint ça m'aide énormément.

Peux-tu me dire comment faire un masque de saisie dans le textbox date lorsqu'il est sélectionné en obtenant :

_ _/_ _/_ _ _ _ et que l'on ai pas besoin de saisir les /

Je te souhaite un bon dimanche.

gilbert_rgi
 Posté le 09/04/2017 à 18:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Gorfous a écrit :

Bonjour Gilbert,

Je te remercie pour ton aide et le fichier que tu as joint ça m'aide énormément.

Peux-tu me dire comment faire un masque de saisie dans le textbox date lorsqu'il est sélectionné en obtenant :

_ _/_ _/_ _ _ _ et que l'on ai pas besoin de saisir les /

Je te souhaite un bon dimanche.

le mieux est de mettre un dtpicker de ce style

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Réalisation pdf via code VBA
Modification de code
erreur dans code
Problème code vba
VBA code agit pas dans le bonne feuille
erreur dans mon code Vba
code pour les bordures de cellule et le numero d'ordre
Impossible désactivation code ASCII
modification code
Excel / Voir le code d'une Private Sub
Plus de sujets relatifs à Ce code est-il correct
 > Tous les forums > Forum Bureautique