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

Microsoft 365 Convertir dates multiples en n° semaine + gestion condition cellule fusionée

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

spike29

XLDnaute Occasionnel
Bonjour,

Débutant en VBA, j'utilise un fichier de suivi d'actions suivi par date et période (JOUR NUIT) pour lequel je souhaite faire quelques statistiques.


1er besoin :
Dans la colonne J, en fonction de ce qui est contenu dans la dernière cellule fusionnée rencontrée, saisir la valeur "NUIT" si dernière cellule fusionnée contient NUIT ou "JOUR" si dernière cellule fusionnée rencontrée contient Journée.

2ème besoin :
Suivant la même logique que le besoin 2, saisir le numéro de semaine en colonne I correspondant à la valeur contenue dans la dernière cellule fusionnée rencontrée.

Merci d'avance pour votre aide.

En PJ je joint le fichier illustrant ces besoins.
 

Pièces jointes

Solution
Re,
Un essai en PJ avec :
VB: 
Sub Test()
Application.ScreenUpdating = False
For e = 8 To Range("A65500").End(xlUp).Row
    If Not IsEmpty(Range("A" & e)) And Range("A" & e) Like "*du*" Then
        Cells(e, 1).Resize(, 10).Merge
    Else
        Cells(e, "I") = SemJourNuit(e, 0)
        Cells(e, "J") = SemJourNuit(e, 1)
    End If
Next e
End Sub

utiliser une fonction perso c'est exactement comme utiliser une fonction XL.
Au lieu de X=SUM(A,B) vous mettez X=SemJourNuit(A,B)
Trier par date Trier par votes
Bonjour Spike,
Un essai en PJ avec une fonction perso :
VB: 
Function SemJourNuit(Ligne%, R%) ' R=1 remonte Jour/Nuit R=0 remonte N° de semaine
    Application.Volatile
    For L = Ligne To 1 Step -1
        If Cells(L, "A").MergeCells Then
            If R = 1 Then
                If Cells(L, "A") Like "*Nuit*" Then SemJourNuit = "Nuit" Else SemJourNuit = "Jour"
            Else
                SemJourNuit = Val(Format(CDate(Split(Cells(L, "A"), " ")(2)), "WW"))
            End If
            Exit For
        End If
    Next L
End Function
La syntaxe est =SemJourNuit(LIGNE();X) avec X=1 pour Jour/Nuit et 0 pour N° de semaine.
A noter que le 08/04/2021 est la semaine 15 et non 14 pour XL.
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir à tous les deux et un grand merci pour vos réponses. Elles correspondent parfaitement à mes besoins.


@sylvanu, j'éssai de déclencher ta fonction directement depuis ma procédure "TEST" mais sans succès. Je ne suis pas très à l'aise avec l'utilisation des fonctions.

VB: 
Sub Test()

For e = 8 To 65000
If Not IsEmpty(Range("A" & e)) And Range("A" & e) Like "*du*" Then
Cells(e, 1).Resize(, 10).Merge
End If

Next e

Call SemJourNuit(Ligne%, R%)

End Sub

L'utilisation de Call semble ne pas fonctionner, une idée ?


Bonne fin de journée
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir spike, le fil,

sylvanu à dit:
La syntaxe est =SemJourNuit(LIGNE();X) avec X=1 pour Jour/Nuit et 0 pour N° de semaine.
A noter que le 08/04/2021 est la semaine 15 et non 14 pour XL.
Cliquez pour agrandir...

la formule est à appeler depuis la cellule d'une feuille de calcul, pas depuis VBA ; ou alors, si tu l'appelle depuis VBA, faut affecter la valeur de retour de la fonction à une variable, par exemple :

varX = SemJourNuit(LIGNE();1) ou varX = SemJourNuit(LIGNE();0)​

soan
 
Vote positif 0 Vote négatif
Bonsoir Spike,
SemJourNuit est une fonction donc on ne l'appelle pas avec un call mais on passe par une variable, comme :
VB: 
Résultat = SemJourNuit(Ligne, R)
On ne met pas les %, dans la déclaration cela signifie "as integer"
Ensuite il faut passer à la fonction les deux paramètres Ligne et R, par ex dans votre fichier :
Code: 
Sub TestFonction()
    Dim N%
    Application.ScreenUpdating = False
    For N = 9 To 23
        Cells(N, "I") = SemJourNuit(N, 0)
        Cells(N, "J") = SemJourNuit(N, 1)
    Next N
End Sub
 
Vote positif 0 Vote négatif
Bonjour le fil,

J'ai essayé avec vos différentes proposition mais je suis assez perdu de par ma mauvaise maitrise des fonctions.

@soan merci pour ta réponse. Je n'ai pas du tout réussi à savoir comment et où intégrer ton code :

Code: 
varX = SemJourNuit(LIGNE();1) ou varX = SemJourNuit(LIGNE();0)

J'ai tenté d'ajouté du coup => " Résultat = SemJourNuit(Ligne, R) mais sans succès, cela m'indique " Type d'argument ByRef incompatible".

VB: 
Sub TestFonction()
    Dim N%
    Application.ScreenUpdating = False
    For N = 9 To 23
        Cells(N, "I") = SemJourNuit(N, 0)
        Cells(N, "J") = SemJourNuit(N, 1)
    Next N
    
    Résultat = SemJourNuit(Ligne, R)
End Sub

Je sèche un peu, n'étant pas du tout à l'aise avec l'utilisation des fonctions.
Pourriez vous si cela ne vous embête pas m'indiquer votre solution directement dans mon fichier en PJ.

L'idéale pour moi serait que la fonction se déclenche automatiquement au déclenchement de la procédure "Test".

Merci d'avance pour votre aide et votre patience.

Le fichier en PJ.

Bonne après-midi.
 

Pièces jointes

Vote positif 0 Vote négatif
Re,
Un essai en PJ avec :
VB: 
Sub Test()
Application.ScreenUpdating = False
For e = 8 To Range("A65500").End(xlUp).Row
    If Not IsEmpty(Range("A" & e)) And Range("A" & e) Like "*du*" Then
        Cells(e, 1).Resize(, 10).Merge
    Else
        Cells(e, "I") = SemJourNuit(e, 0)
        Cells(e, "J") = SemJourNuit(e, 1)
    End If
Next e
End Sub

utiliser une fonction perso c'est exactement comme utiliser une fonction XL.
Au lieu de X=SUM(A,B) vous mettez X=SemJourNuit(A,B)
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Bonsoir Sylvanu, bonsoir le fil,

Merci pour cette dernière PJ, tout fonctionne parfaitement !

Effectivement après avoir observé ton code tout me paraît plus simple quant à l'interaction fonction / procédure sub 😉

Un grand merci !

Bonne fin de journée et merci également à tout ceux qui ont pu répondre à ma problématique sur ce fil.
 
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

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
618
Dégé59
D
G
  • Question Question
XL 2016 Bug dans Données/Convertir si cellule de la ligne 1 vide ?
Réponses
7
Affichages
627
Guy_M
G
  • Question Question
XL 2016 Récupérer données sur plusieurs feuilles
2
Réponses
20
Affichages
1 K
hypo78
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
221
Lu76Fer
S
  • Résolu(e)
Microsoft 365 Fusionner cellules sous conditions
Réponses
3
Affichages
1 K
spike29
S
  • Résolu(e)
XL 2013 (RESOLU)Afficher les Jours de la Semaine en Infobulle
2
Réponses
20
Affichages
2 K
TooFatBoy
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
603
loreak
L
P
  • Résolu(e)
XL 2021 Formule de Calcul Multiplication avec Si
Réponses
14
Affichages
995
Phoesius
P
  • Question Question
Microsoft 365 Compter nombre ligne en fonction du N° de la semaine et de l'équipe
Réponses
12
Affichages
834
looky62
I
  • Question Question
Power BI [résolu] Multiples opérations via Power Query
Réponses
3
Affichages
759
ilyes4205
I
N
  • Question Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
974
Gégé-45550
F
  • Question Question
Microsoft 365 Listes "popup" de choix multiples associées à des cellules ...
Réponses
4
Affichages
995
riton00
M
  • Question Question
Microsoft 365 Filtrer une colonne selon valeur cellule
Réponses
6
Affichages
889
MACx
M
F
  • Question Question
Microsoft 365 Mise en forme d'une cellule par rechercheV en VBA
Réponses
3
Affichages
960
Florent6744
F
S
  • Question Question
XL 2019 Besoin d'aide pour macro VBA avec condition pour dupliquer ligne selon si présence d'une cellule
Réponses
4
Affichages
795
samsoun
S
M
  • Résolu(e)
Microsoft 365 Convertir texte lundi 4 janvier en date au format JJ/MM/AAAA avec cellule fusionnée
Réponses
7
Affichages
1 K
Mwadepaname
M
R
  • Question Question
Microsoft 365 RESOLU Conditions multiples avec dates et textes dans cellule
Réponses
2
Affichages
704
richard31
R
S
  • Question Question
XL 2010 Intégrer une conversion date xx en 20 xx dans macro vba excel
Réponses
9
Affichages
1 K
Deadpool_CC
  • Question Question
XL 2016 Passer en paramètre la zone de plage de cellules
Réponses
5
Affichages
1 K
Xavlh76
W
  • Question Question
XL 2019 Si une cellule de la colonne contient *...*, alors copie toute dans la ligne dans la ‘feuil ...' »
Réponses
4
Affichages
1 K
st007
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…