Bonjour
J'ai besoin de votre aide: Je voudrais remplir la colonne B du fichier joint de manière automatique à partir d'une Macro. Je voudrais que le chiffre "1" s'affiche en face de chaque mois à chaque fois que j'exécute la Macro....
=>ajox01
Alors, puisque tu aimes le VBA, te voilà servi
(prévois du paracétamol, parce que là, ce de l'initiation "hardcore" )
VB:
Sub mT1()
mTrimestre 1
End Sub
Sub mT2()
mTrimestre 2
End Sub
Sub mS1()
mSemestre 1
End Sub
Sub mS2()
mSemestre 2
End Sub
Sub mAn2020()
mAnnée
End Sub
Sub mAn2019()
mAnnée 2019
End Sub
Private Sub mTrimestre(Optional NumTrim As Long = 1)
With [B2].Resize(Cells(Rows.Count, 1).End(3).Row - 1)
.ClearContents
.FormulaR1C1 = "=REPT(1,CEILING(MONTH(RC1)/3,1)=" & NumTrim & ")"
.Value = .Value
End With
End Sub
Private Sub mSemestre(Optional NumS As Long = 1)
With [B2].Resize(Cells(Rows.Count, 1).End(3).Row - 1)
.ClearContents
.FormulaR1C1 = "=IF(YEAR(RC1)=YEAR(TODAY()),REPT(1,ROUNDUP(MONTH(RC1)/6,0)=" & NumS & "),"""")"
.Value = .Value
End With
End Sub
Private Sub mAnnée(Optional mYear = 2020)
With [B2].Resize(Cells(Rows.Count, 1).End(3).Row - 1)
.ClearContents
.FormulaR1C1 = "=REPT(1,YEAR(RC1)=" & mYear & ")"
.Value = .Value
End With
End Sub
Si tu as des questions, n'hésites pas
(ma lessive tourne toujours, j'ai du temps )
=>ajox01
Alors, puisque tu aimes le VBA, te voilà servi
(prévois du paracétamol, parce que là, ce de l'initiation "hardcore" )
VB:
Sub mT1()
mTrimestre 1
End Sub
Sub mT2()
mTrimestre 2
End Sub
Sub mS1()
mSemestre 1
End Sub
Sub mS2()
mSemestre 2
End Sub
Sub mAn2020()
mAnnée
End Sub
Sub mAn2019()
mAnnée 2019
End Sub
Private Sub mTrimestre(Optional NumTrim As Long = 1)
With [B2].Resize(Cells(Rows.Count, 1).End(3).Row - 1)
.ClearContents
.FormulaR1C1 = "=REPT(1,CEILING(MONTH(RC1)/3,1)=" & NumTrim & ")"
.Value = .Value
End With
End Sub
Private Sub mSemestre(Optional NumS As Long = 1)
With [B2].Resize(Cells(Rows.Count, 1).End(3).Row - 1)
.ClearContents
.FormulaR1C1 = "=IF(YEAR(RC1)=YEAR(TODAY()),REPT(1,ROUNDUP(MONTH(RC1)/6,0)=" & NumS & "),"""")"
.Value = .Value
End With
End Sub
Private Sub mAnnée(Optional mYear = 2020)
With [B2].Resize(Cells(Rows.Count, 1).End(3).Row - 1)
.ClearContents
.FormulaR1C1 = "=REPT(1,YEAR(RC1)=" & mYear & ")"
.Value = .Value
End With
End Sub
Si tu as des questions, n'hésites pas
(ma lessive tourne toujours, j'ai du temps )
Normalement, mon dernier code fait ce que tu souhaites.
Si tu as des questions, prends le temps de les préparer
Car maintenant ma lessive est over
Et m'en vais l'étendre
Et après petit frichti
Donc je serai loin de mon clavier pendant un certain temps
Normalement, mon dernier code fait ce que tu souhaites.
Si tu as des questions, prends le temps de les préparer
Car maintenant ma lessive est over
Et m'en vais l'étendre
Et après petit frichti
Donc je serai loin de mon clavier pendant un certain temps