remplir cellule excel en vba Résolu

Question

Bonjour, 

J'aurais besoin de votre aide. J'aimerais remplir en vba les cellules excel de la colonne  A2 à A(variable) selon A2 = 13/02/10 alors remplir cellule A2 à A? (fin du mois)
et tous les mois la date en A2 change.
Exemple fevrier : A2=13 / A3=14 jusqu'à A17=28
Merci

Zino

michel_m · Accepted Answer

Ce n'est pas forcément aider zino que de lui filer quand m^me une macro...
les demandes du mercredi, ca sent le devoir d'école et zino attend peut-^tre que d'autres lui fassent

allons y quand m^me

formule en A3 à tirer jusqu'à 32
=SI(OU(A2="";MOIS(A2+1)>MOIS(A2));"";A2+1)

et si on tient à une macro
peut-^tre plus simple
Sub ecrire_mois()
Dim depart As Date

depart = Range("A2")
For cptr = 3 To 32
    Cells(cptr, 1) = Cells(cptr - 1, 1) + 1
   If Month(Cells(cptr, 1)) > Month(Cells(cptr - 1, 1)) Then
        Cells(cptr, 1) = ""
        Exit For
   End If
  Next
    
End Sub

michel_m · Answer

Bonjour, 

Pourquoi du VBA ? 
cela se traite facilement avec des formules de base...
donc, tu dis...
 Michel

ccm81 · Answer

bonjour, 
comme ds michel_m pas besoin de macros  
mais, si tu tiens a une solution VBA 

Option Explicit 
Option Base 1 

Private Sub CommandButton1_Click() 
Const lideb = 2 
Dim lifin As Long, li As Long 
Dim dd As Date 
Dim jj As Long, j As Long, jfin As Long 
Dim mm As Long 
Dim aa As Long 
Dim tj As Variant, janorm As Variant, jabiss As Variant 
  janorm = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) 
  jabiss = Array(31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) 
  Range("A3:A33").ClearContents 
  dd = Range("A2").Value 
  jj = Day(dd) 
  mm = Month(dd) 
  aa = Year(dd) 
  If aa Mod 4 = 0 Then   ' pas tout a fait complet mais ... 
    tj = jabiss 
  Else 
    tj = janorm 
  End If 
  For j = jj To tj(mm) - 1 
    dd = dd + 1 
    Range("A" & 2 + j - jj + 1).Value = dd 
  Next j 
End Sub

bonne suite

Remplir cellule excel en vba

3 réponses

Discussions similaires

Newsletters