j'ai un tableau excel qui se présente comme ça :
A B C D E K
jour date x x x n° semaine (1-2-3-...)
En fait, je ne sais pas comment faire pour faire un test sur les lignes 8 à
38, en regardant si les cellules B8:B38 appartiennent à la semaine en colonne
K8, et si oui, faire C-D+E.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour YANN24,
voici un exemple à l'aide d'une fonction créer par notre chef à quatre plumes,
Function NOSEM(D As Date) As Long D = Int(D) NOSEM = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1) NOSEM = ((D - NOSEM - 3 + (Weekday(NOSEM) + 1) Mod 7)) 7 + 1 End Function 'Laurent Longre http://longre.free.fr/
Sub Macro1() For i = 8 To 38 If NOSEM(Range("B" & i)) = Range("K" & i) Then MsgBox "identique" Next End Sub
En fait, je ne sais pas comment faire pour faire un test sur les lignes 8 à 38, en regardant si les cellules B8:B38 appartiennent à la semaine en colonne K8, et si oui, faire C-D+E.
Merci. YANN
bonjour YANN24,
voici un exemple à l'aide d'une fonction créer par notre chef à quatre plumes,
Function NOSEM(D As Date) As Long
D = Int(D)
NOSEM = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
NOSEM = ((D - NOSEM - 3 + (Weekday(NOSEM) + 1) Mod 7)) 7 + 1
End Function 'Laurent Longre http://longre.free.fr/
Sub Macro1()
For i = 8 To 38
If NOSEM(Range("B" & i)) = Range("K" & i) Then MsgBox "identique"
Next
End Sub
En fait, je ne sais pas comment faire pour faire un test sur les lignes 8 Ã
38, en regardant si les cellules B8:B38 appartiennent à la semaine en colonne
K8, et si oui, faire C-D+E.
voici un exemple à l'aide d'une fonction créer par notre chef à quatre plumes,
Function NOSEM(D As Date) As Long D = Int(D) NOSEM = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1) NOSEM = ((D - NOSEM - 3 + (Weekday(NOSEM) + 1) Mod 7)) 7 + 1 End Function 'Laurent Longre http://longre.free.fr/
Sub Macro1() For i = 8 To 38 If NOSEM(Range("B" & i)) = Range("K" & i) Then MsgBox "identique" Next End Sub
En fait, je ne sais pas comment faire pour faire un test sur les lignes 8 à 38, en regardant si les cellules B8:B38 appartiennent à la semaine en colonne K8, et si oui, faire C-D+E.
Merci. YANN
isabelle
la réponse donnée précédemment était pour la norme ISO, utilisée dans les pays européens pour la méthode ricaine,
Sub Macro1() For i = 8 To 38 If Evaluate("NO.SEMAINE(" & Range("B" & i).Address & ",1)") = Range("K" & i) Then MsgBox "identique" Next End Sub
note :il faut installez et chargez la macro complémentaire Utilitaire d'analyse, pour utiliser la fonction NO.SEMAINE
En fait, je ne sais pas comment faire pour faire un test sur les lignes 8 à 38, en regardant si les cellules B8:B38 appartiennent à la semaine en colonne K8, et si oui, faire C-D+E.
Merci. YANN
la réponse donnée précédemment était pour la norme ISO, utilisée dans les pays européens
pour la méthode ricaine,
Sub Macro1()
For i = 8 To 38
If Evaluate("NO.SEMAINE(" & Range("B" & i).Address & ",1)") = Range("K" & i) Then MsgBox "identique"
Next
End Sub
note :il faut installez et chargez la macro complémentaire Utilitaire d'analyse, pour utiliser la fonction NO.SEMAINE
En fait, je ne sais pas comment faire pour faire un test sur les lignes 8 Ã
38, en regardant si les cellules B8:B38 appartiennent à la semaine en colonne
K8, et si oui, faire C-D+E.
En fait, je ne sais pas comment faire pour faire un test sur les lignes 8 à 38, en regardant si les cellules B8:B38 appartiennent à la semaine en colonne K8, et si oui, faire C-D+E.
