A voir également:
- Comment creer un tableau excel qui m'aficherai les vendredi dans 1 colonne
- Afficher un tableau en php - Conseils pratiques -PHP
- Comment créer des mots mélés - Forum Java
- Tableau excel suivi maintenance - Forum VB.NET
- Selectionner la derniere cellule non vide d'une colonne excel vba ✓ - Forum Visual Basic 6
- Comment créer une application android - Forum VB.NET
3 réponses
Salut,
Avec 2 inputbox pour demander la periode et Weekday (dans laquelle Vendredi 5, Mardi 2, etc) ça devrait faire ce que tu veux :
Dim debu As Date
Dim fin As Date
Sub vendredi()
debu = InputBox("Debut")
fin = InputBox("Fin")
lig = 1
For i = debu To fin
If Weekday(i) = 5 Then
lig = lig + 1
Range("a" & lig).FormulaR1C1 = "Vendredi " & i
End If
Next i
End Sub
Et voilà... :-p
Avec 2 inputbox pour demander la periode et Weekday (dans laquelle Vendredi 5, Mardi 2, etc) ça devrait faire ce que tu veux :
Dim debu As Date
Dim fin As Date
Sub vendredi()
debu = InputBox("Debut")
fin = InputBox("Fin")
lig = 1
For i = debu To fin
If Weekday(i) = 5 Then
lig = lig + 1
Range("a" & lig).FormulaR1C1 = "Vendredi " & i
End If
Next i
End Sub
Et voilà... :-p
tu selectionne ta periode puis tu lance cette macro
bien sur si ta feuille ne s'appelle pas "feuil1" tu modifie
le resultat est dans la colonne B.
Sub ladate()
temp = 0
Sheets("feuil1").Activate
For Each tt In Selection
If Weekday(tt) = 6 Then
Range("b1").Offset(temp) = Format(tt, "dddd d mmmm yyyy")
temp = temp + 1
End If
Next
End Sub
bien sur si ta feuille ne s'appelle pas "feuil1" tu modifie
le resultat est dans la colonne B.
Sub ladate()
temp = 0
Sheets("feuil1").Activate
For Each tt In Selection
If Weekday(tt) = 6 Then
Range("b1").Offset(temp) = Format(tt, "dddd d mmmm yyyy")
temp = temp + 1
End If
Next
End Sub
