1428 résultats trouvés

par Andre13
15 juillet 2019, 20:57
Forum : Excel - VBA
Sujet : Problème fonction date
Réponses : 5
Vues : 56

Re: Problème fonction date

re, il manque un Else if .Then... End If Private Sub TextBox3_AfterUpdate() On Error GoTo Messagerreur TextBox3 = Format(TextBox3, "Short date") Messagerreur: Msgbox (" le format introduit n'est pas valide le format de date est jj/mm/aaaa") TextBox3 = Empty End Sub @ tester Private Sub TextBox3_Afte...
par Andre13
15 juillet 2019, 20:41
Forum : Excel - VBA
Sujet : Problème fonction date
Réponses : 5
Vues : 56

Re: Problème fonction date

Bonjour toutes et tous peut-être l'erreur sans certitude :oops: Le format de date est-il avec un symbole point '.' ou slash '/' ? (exemple: 15.07.2019 ou 15/07/2019) ' Msgbox (" le format introduit n'est pas valide le format de date est jj/mm/aaaa") le code ASCII est 47 pour la barre oblique (slash ...
par Andre13
10 juillet 2019, 17:25
Forum : Excel - VBA
Sujet : Création de ticket
Réponses : 10
Vues : 99

Re: Création de ticket

Bonjour toutes et tous
@Parov
tu peux t'inspirer de ce lien de Jacques Boisgontier
en créant un nouvel onglet, nommer images et y placer tes petites images miniatures
Jacques Boisgontier clic ici
crdlt,
André
par Andre13
10 juillet 2019, 09:11
Forum : Excel - VBA
Sujet : Ajout de pièce jointe
Réponses : 2
Vues : 43

Re: Ajout de pièce jointe

Bonjour toutes et tous une idée avec un double clic gauche de la souris sur la cellule C40 de ta feuil1 mettre le code dans la feuil1 (worksheet) Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'déclaration d'une variable en tant que chaine de caractères Dim resulta...
par Andre13
26 juin 2019, 12:38
Forum : Excel - VBA
Sujet : Création Macro recherche
Réponses : 4
Vues : 144

Re: Création Macro recherche

Bonjour toutes et tous
bonjour Melch :wink:
j'ai mis une combobox
@tester,

Notes: -le message box, peut être supprimer.
- la propriété de la Combobo (ListFillRange) à : Lexique!B2:B10000

celui de Melch est 1000 fois mieux merci à lui ;;)
crdlt,

André
par Andre13
23 juin 2019, 12:11
Forum : Excel - VBA
Sujet : Erruer de code sur ma ligne.
Réponses : 4
Vues : 107

Re: Erruer de code sur ma ligne.

re,
merci Ric bon dimanche ;;)
par Andre13
23 juin 2019, 12:04
Forum : Excel - VBA
Sujet : Erruer de code sur ma ligne.
Réponses : 4
Vues : 107

Re: Erruer de code sur ma ligne.

Bonjour toutes et tous,
Et en déclarant 'Chemin' et 'Classeur'
SpoilerAfficher
Dim dt1, dt2  As Date
Dim Lng, Cln , x As Integer
Dim Wb As Workbook
Dim , Chemin, Classeur
----
et celui là me semble bizarre à la fin x = x + 1
en mettant une apostrophe devant cela donne quoi
' x = x + 1
---
crdlt,
André
par Andre13
22 juin 2019, 11:13
Forum : Excel - VBA
Sujet : Code à exécuter avec combobox
Réponses : 5
Vues : 168

Re: Code à exécuter avec combobox

Bonjour toutes et tous pour ta 1ère demande : en essayant d'ajouter lors du clic de ton combobox1 de ta feuille comme ceci:(tu peux modifier la cellule A1 de ce code 'voir pour l'exemple') Private Sub ComboBox1_Click() ActiveSheet.Range("A1").Select End Sub pour la seconde : je n'ai pas regardé crdl...
par Andre13
21 juin 2019, 19:31
Forum : Excel - VBA
Sujet : Je ne vois plus les codes couleurs et mon curseur dans les cellules !
Réponses : 13
Vues : 226

Re: Je ne vois plus les codes couleurs et mon curseur dans les cellules !

Bonjour toutes et tous
sur ton image tu as la formule qui sélectionne la colonne A entièrement A:A
sur ta colonne A verticalement on aperçoit la couleur bleu

@tester
sans doute dans Fichier ==> Options avancées puis ==> Déplacement du curseur sur Logique et non visuel

crdlt,
André
par Andre13
15 juin 2019, 17:16
Forum : Excel - VBA
Sujet : Toujours afficher userform
Réponses : 2
Vues : 76

Re: Toujours afficher userform

Bonjour toutes et tous et en essayant avec Else If Private Sub ComboBoxMenu_Change() If ComboBoxMenu.Value = "Repas" Then ActiveSheet.Visible = False Sheets("Stats repas").Visible = True Sheets("Repas Nathalie").Visible = True Sheets("Repas Nathalie").Activate Else If ComboBoxMenu.Value = "Stats" Th...