Microsoft 365 Incompréhension dans une formule

PORCHER · 18 Février 2023

Bonjour mes amis,
J'ai besoin de vous pour m'aider, je m'explique;
Les colonnes de A à T sont rempli, la colonne T j'ai des Dates, je souhaiterais incrémenter ou décrémenter le mois
J'ai cette formule

VB:

  TextBoxMois.Value = SpinButton1.Value
    Sheets("Prélèvements").Visible = True
    Sheets("Prélèvements").Activate
    Range([T2], [T65536].End(xlUp)).Select
    For Each Cell In Selection
        Cell.Value = Format(Mid(Cell.Value, 1, 20) & SpinButton1.Value & Mid(Cell.Value, 6, 5), "MM/DD/YYYY")
    Next Cell

Le Cell.Value, 1, 20 correspond a la ligne 1 et 20 la colonne T
Mid(Cell.Value, 6, 5 (Je ne s'ai pas) çà ne fonctionne pas
le 6 correspond à quoi ?
le 5 correspond à quoi ?
Merci de votre aide

JHA · 18 Février 2023

Bonjour à tous,

je suis nul en VBA mais voir support Microsoft
Mid( chaîne, début [ ,longueur ] )

Mid, fonction - Support Microsoft

support.microsoft.com

JHA

PORCHER · 18 Février 2023

Merci JHA, çà ma éclairé, en effet le début, Obligatoire. Long. Position des caractères dans la chaîne à laquelle la partie à prendre commence. Si début est supérieur au nombre de caractères dans la chaîne,Mid renvoie une chaîne nulle (« »).
Donc j'ai remplacé Format(Mid(Cell.Value, 1, 20) le 20 par 3 et ma formule fonctionne !
Merci

gbinforme · 7 Avril 2023

PORCHER à dit:
j'ai des Dates, je souhaiterais incrémenter ou décrémenter le mois

Dans le cas de dates il ne faut pas procéder ainsi mais cela :

VB:

    For Each cell In Range([T2], [T65536].End(xlUp))
       If IsDate(cell) Then cell = DateAdd("m", SpinButton1.Value, cell)
    Next cell

Ainsi si tu veux rajouter un mois au 31/1/2023 tu obtiendras 28/2/2023

Microsoft 365 Incompréhension dans une formule

PORCHER

XLDnaute Occasionnel

JHA

XLDnaute Barbatruc

Mid, fonction - Support Microsoft

PORCHER

XLDnaute Occasionnel

gbinforme

XLDnaute Impliqué

Discussions similaires