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

textbox + 1

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

franck17

Guest
BONJOUR A TOUS

Voila mon probleme, dans le code suivant

Private Sub ok_Click()
Dim date1 As String
Dim date2 As String
date1 = Format(TextBox1.Value, "mm/dd/yyyy")
date2 = Format(DateValue(TextBox2.Value), "mm/dd/yyyy")
ActiveCell.Select
Selection.AutoFilter Field:=2, Criteria1:=">=" & date1, Operator:=xlAnd _
, Criteria2:="<" & date2
Unload Me
End Sub

Dans Textbox1 je tape 01/11/06
et dans Textbox2 je voudrais automatiquement 01/11 + 1/06
donc 01/12/06

Si quelqu'un trouve la solution je le remercie d'avance
Et bon dimanche
 
Trier par date Trier par votes
Re : textbox + 1

Bonjour Franck

essaye peut être le code ci dessous :

Code: 
Dim date1 As Date, date2 As Date
date1 = TextBox1.Value
date2 = DateSerial(Year(date1), Month(date1) + 1, Day(date1))
TextBox2 = date2

@+
 
Vote positif 0 Vote négatif
Re : textbox + 1

Bonsoir a vous deux

Merci de m'aider.
Mais le probleme c'est que je commence juste sur excel et que je n'arrive pas a faire marcher les codes.Si vous pouvier y jeter un oeil et mettre des explications je serais tres 🙂
Voir fichier joint et encore

MERCI
 

Pièces jointes

Vote positif 0 Vote négatif
Re : textbox + 1

Re franck17,

En ajoutant cette procédure à ton code, je pense que ça devrait fonctionner :
Code: 
[SIZE=2][COLOR=GRAY][B][I]A AJOUTER DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] TextBox1_Change()
    [COLOR=NAVY]If[/COLOR] IsDate(TextBox1.Text) [COLOR=NAVY]Then[/COLOR] TextBox2.Text = DateAdd("m", 1, [COLOR=NAVY]CDate[/COLOR](TextBox1.Text))
[COLOR=NAVY]End Sub[/COLOR]
[/SIZE]
Un conseil toutefois, plutôt que d'écrire :
Code: 
[SIZE=2]ActiveCell.[COLOR=NAVY]Select[/COLOR]
Selection.AutoFilter ...[/SIZE]
Tu devrais essayer de faire :
Code: 
[SIZE=2]Sheets("Feuil1").Range("A1").AutoFilter ...[/SIZE]
En effet, généralement la sélection de cellule ou d'objet est inutile en VBA pour pouvoir agir dessus (c'est même déconseillé).

Cordialement,
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
398
Hecatonchire
H
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
530
KTM
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
911
TooFatBoy
L
  • Résolu(e)
Microsoft 365 Trie par Date & Heure
Réponses
8
Affichages
653
Le Rouky
L
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
G
  • Question Question
XL 2016 Compte à rebours dans un userform
2
Réponses
15
Affichages
983
patricktoulon
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
521
StéphaneDeLà
S
E
  • Question Question
XL 2013 Code VBA
Réponses
12
Affichages
1 K
eutrophisation
E
X
  • Question Question
XL 2021 VBA Filtre dans Tableau
Réponses
3
Affichages
443
Xxaann
X
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
771
Gégé-45550
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
922
Mody200
M
G
  • Résolu(e)
XL 2010 Obliger la validation d'un bouton d'option.
Réponses
8
Affichages
587
gillesda
G
S
  • Résolu(e)
XL 2021 vba sélection multiple
Réponses
6
Affichages
547
stef73c
S
M
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
615
Maxou69
M
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
835
guiyom
G
A
  • Résolu(e)
XL 2016 Boucle avec tri par date sur onglets
Réponses
6
Affichages
782
Aldonanou
A
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
885
M@xu3L
M
C
  • Question Question
Microsoft 365 Créer dossiers, sous-dossiers et enregistrer sous OneDrive en ligne
Réponses
0
Affichages
520
Casim
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…