4693 résultats trouvés

par i20100
Aujourd’hui, 13:14
Forum : Excel - VBA
Sujet : Date, délais dépassé coloration de la cellule
Réponses : 16
Vues : 140

Re: Date, délais dépassé coloration de la cellule

re,

tu n'as qu'à enlever le 0 sur la ligne 3 des colonnes L, V, W, et X
par i20100
Hier, 14:25
Forum : Excel - VBA
Sujet : Supprimer la date de l'heure VBA
Réponses : 2
Vues : 34

Re: Supprimer la date de l'heure VBA

Bonjour,

à tester,
Sub test()
For i = 2 To 3
    h = Hour(Cells(i, 1))
    m = Minute(Cells(i, 1))
    v = TimeSerial(h, m, 0)
    Cells(i, 1) = v
Next i
End Sub
par i20100
Hier, 14:14
Forum : Excel - VBA
Sujet : Macro "valeur non autorisée"
Réponses : 4
Vues : 38

Re: Macro "valeur non autorisée"

Bonjour, copier cette macro sur la page code de la feuille concernée, Private Sub Worksheet_Change(ByVal Target As Range) Dim trouve As Range, isect As Range Set isect = Application.Intersect(Target, Range("A:F")) If Not isect Is Nothing Then Set trouve = Range("G1:H8").Find(What:=Target, After:=Ran...
par i20100
22 juin 2019, 13:50
Forum : Excel - VBA
Sujet : Supprimer le dernier chiffre d'une zone de texte
Réponses : 9
Vues : 69

Re: Supprimer le dernier chiffre d'une zone de texte

re,

en utilisant le scan tu pourrais enlever le bouton "Chercher" (et son code)
et utiliser la macro suivante
Private Sub TextBox1_Change()
Dim v As String
v = Left(Me.TextBox1, 12)
If v <> "" Then
    Call Rechercher(v)
End If
End Sub
par i20100
22 juin 2019, 13:37
Forum : Excel - VBA
Sujet : Supprimer le dernier chiffre d'une zone de texte
Réponses : 9
Vues : 69

Re: Supprimer le dernier chiffre d'une zone de texte

dreamsodfa a écrit :
22 juin 2019, 13:18
Oui c'est un TextBox sur un Userform
à tester,
dreamsodfa-recherche.xlsm
(25.81 Kio) Téléchargé 2 fois
par i20100
22 juin 2019, 13:13
Forum : Excel - VBA
Sujet : Si A1(tableau1) = A2 tableau2 alors C1 T1 - C2 T2
Réponses : 1
Vues : 21

Re: Si A1(tableau1) = A2 tableau2 alors C1 T1 - C2 T2

Bonjour,

un essai,
Ellimac-Inventaire test.xlsx
(535.73 Kio) Téléchargé 1 fois
notr/
le calcul peut se faire sur une colonne
=SIERREUR(H2-INDEX('Liste Saisie - Inventaire 2019'!H:H;EQUIV(B2;'Liste Saisie - Inventaire 2019'!C:C;0));H2)
par i20100
22 juin 2019, 12:50
Forum : Excel - VBA
Sujet : Supprimer le dernier chiffre d'une zone de texte
Réponses : 9
Vues : 69

Re: Supprimer le dernier chiffre d'une zone de texte

Sur une zone de texte je vais scanner un code barre de 13 chiffre, mais je veux afficher que 12. je veux ajouter un code vba même si j'ai 13 chiffre sur la zone de texte le code annule le de dernier chiffre puis exécuter la recherche. ou est la zone de texte ? est ce que c'est un TextBox sur un Use...
par i20100
21 juin 2019, 19:00
Forum : Excel - VBA
Sujet : Date ne s affiche avec monthview
Réponses : 4
Vues : 24

Re: Date ne s affiche avec monthview

re,

il faut décharger le Calendrier,
voici la modification,
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
ActiveSheet.Range("A2") = MonthView1
Unload Calendrier
End Sub
par i20100
21 juin 2019, 18:46
Forum : Excel - VBA
Sujet : Date ne s affiche avec monthview
Réponses : 4
Vues : 24

Re: Date ne s affiche avec monthview

Bonjour,

mets cette macro sur la page code du calendrier,
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
ActiveSheet.Range("A2") = MonthView1
End Sub
par i20100
21 juin 2019, 13:47
Forum : Excel - VBA
Sujet : Calculer la somme d'une liste unique de valeur texte par une autre
Réponses : 2
Vues : 24

Re: Calculer la somme d'une liste unique de valeur texte par une autre

Bonjour,

à tester,
=SOMMEPROD(--(A5:A40<>"")*(B5:B40="pomme"))
ou bien pour les valeur unique
=PLAFOND(SOMMEPROD(1/NB.SI(A5:A40;A5:A40)*($B$5:$B$40="pomme"));1)