971 résultats trouvés

par archer
19 octobre 2018, 13:59
Forum : Excel - VBA
Sujet : Enregistrer sous avec variable de date
Réponses : 4
Vues : 30

Re: Enregistrer sous avec variable de date

Bonjour
si ton format de range est bon alors

Code : Tout sélectionner

datedu_jouR = Range("ig16").Text
A+
Maurice
par archer
18 octobre 2018, 17:19
Forum : Excel - VBA
Sujet : Majuscule suite conversion chiffres en lettres
Réponses : 13
Vues : 67

Re: Majuscule suite conversion chiffres en lettres

Bonjour
modification de la Function A voir
A+
Maurice
FACTURE (2).xls
(101 Kio) Téléchargé 3 fois
par archer
18 octobre 2018, 14:42
Forum : Excel - VBA
Sujet : convertir une donnée textbox
Réponses : 16
Vues : 71

Re: convertir une donnée textbox

Bonjour
et moi je préfère comme ca
A+
Maurice

Code : Tout sélectionner

	Range("A1").Value = Val(Replace(TextBox1.Value, ",", "."))
par archer
18 octobre 2018, 11:55
Forum : Excel - VBA
Sujet : Zone liste déroulante avec consigne bien précise.
Réponses : 10
Vues : 76

Re: Zone liste déroulante avec consigne bien précise.

Bonjour A voir avec application.goto Sub Trouve() Dim A As Range Dim x As Integer, y As Integer Dim Mois As String Application.ScreenUpdating = False Range("FR1").Select Mois = Cells(2, 3).Text Set A = Cells.Find(What:=Mois, After:=Cells(4, 4)) x = A.Row y = A.Column Application.Goto Cells(x, y), Tr...
par archer
18 octobre 2018, 10:34
Forum : Excel - VBA
Sujet : Moteur de recherche
Réponses : 7
Vues : 86

Re: Moteur de recherche

Bonjour
Voila un essai avec une ListBox a Voir
A+
Maurice
1.testrech.xlsm
(25.34 Kio) Téléchargé 3 fois
par archer
17 octobre 2018, 21:11
Forum : Excel - VBA
Sujet : Moteur de recherche
Réponses : 7
Vues : 86

Re: Moteur de recherche

bonjour
le mieux ses de faire un userform avec une listbox
A+
Maurice
par archer
16 octobre 2018, 12:50
Forum : Excel - VBA
Sujet : Problème boucle
Réponses : 6
Vues : 46

Re: Problème boucle

Bonjour peux etre comme ca NUMCOLONNE = 6 For Masque = 1 To 9 ' ' If NonVide & Masque = 0 Then If Application.WorksheetFunction.CountA(Range(Cells(6, NUMCOLONNE), Cells(DerLigneOPEX, NUMCOLONNE))) = 0 Then Cells(6, NUMCOLONNE).EntireColumn.Hidden = True Cells(6, NUMCOLONNE + 1).EntireColumn.Hidden =...
par archer
15 octobre 2018, 17:20
Forum : Excel - VBA
Sujet : USF Bloquée
Réponses : 3
Vues : 30

Re: USF Bloquée

Bonjour

mettre Enabled a true dans ton userform

A+
Maurice
par archer
14 octobre 2018, 14:57
Forum : Excel - VBA
Sujet : vérification de plusieurs textbox avant de continuer la macro
Réponses : 6
Vues : 74

Re: vérification de plusieurs textbox avant de continuer la macro

Bonjour
donne au moins un modèle pour voir car je pense que tu a un problème de structure
A+
Maurice
par archer
13 octobre 2018, 15:40
Forum : Excel - VBA
Sujet : Numéro automatique
Réponses : 4
Vues : 47

Re: Numéro automatique

Bonjour
A la place de : ActiveCell = txt_n?.Value

Code : Tout sélectionner

        ActiveCell = Application.Max(Columns(1)) + 1 ' txt_n?.Value
A+
Maurice