Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Inseré une date sous la premiere celulle vide...

Guido

XLDnaute Accro
Bonsoir le Forum

Bonjour ma demande en VBA svp

Dans la cellule B5 ,je fais affiché une date manuellement.

Ensuite avec un boutons j'aimerais faire affiché cette date sur les 3 lignes vide en

dessous de la derniere date affichée de la colonne " B "

Merci d'avance

Guido
 

Pièces jointes

  • GUIDO_LIVE_2018_VERSION_PROTO_V3.xlsm
    2 MB · Affichages: 44

natorp

XLDnaute Accro
Bjr Guido

Code:
Private Sub CommandButton1_Click()
Dim Lign As Byte

Lign = ActiveSheet.Range("b1000").End(xlUp).Row + 1

Cells(Lign, 2).Value = Cells(5, 2).Value
Cells(Lign + 1, 2).Value = Cells(5, 2).Value
Cells(Lign + 2, 2).Value = Cells(5, 2).Value

End Sub

Est-ce bien cela ?
Cordialement, Gérard
 

natorp

XLDnaute Accro
Guido, ton fichier avec le bouton, j'ai été obligé de supprimer des feuilles car il était trop volumineux

Bjr Lone-wolf

Cordialement, Gérard
 

Pièces jointes

  • guido.xls
    5.7 MB · Affichages: 80

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…