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

[Guido]

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

 

[Lone-wolf]

Bonjour Guido , le Forum

Ton fichier en retour. La macro est dans le module 1, celle qui y était en module 2.

 

[natorp]

Bjr Guido

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

 

[Guido]

Bonjour le Forum, Lone-wolf, Gérard

Merci pour vos solutions

Gérard svp peux tu me l'intégré dans le fichier de base post #1 , Merci

J'aimerais comparer

A plus

Guido

 

[natorp]

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

 

[Lone-wolf]

Bonjour Gerard

 

[Guido]

Re

Merci a Vous

Tout est OK

Guido