Remplir cellule excel en vba

Résolu

zino -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention - 12 janv. 2011 à 18:48

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

Afficher la suite

A voir également:

Remplir une cellule vba
Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
[Excel 2010] Remplir cellule d'après contenu d'une autre ✓ - Forum Excel
Excel : Remplir une cellule en fonction d'une autre ✓ - Forum Excel
Excel compter cellule couleur sans vba - Guide
Excel cellule couleur si condition texte - Guide

3 réponses

Réponse 1 / 3

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

re,

décidement, j'ai beaucoup de mal avec la gestion des dates !!!!

cordialement

Réponse 3 / 3

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

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

Discussions similaires

Remplacer point par virgule VBA

probleme de controle activeX

Macro formule moyenne

Copier des valeurs sans formules [VB]

[VBA] Qualificateur incorrecte

nombre de cellules selon leur couleurs

Votre réponse

Discussions similaires