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

Lone-wolf

XLDnaute Barbatruc

• 29 Mars 2018

• #2

Bonjour Guido 🙂, le Forum 🙂

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

 

Pièces jointes

• GUIDO_LIVE_2018_VERSION_PROTO_V3.xlsm

  1.6 MB · Affichages: 46

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 29 Mars 2018

• #3

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

 

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 29 Mars 2018

• #4

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

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 29 Mars 2018

• #5

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

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 29 Mars 2018

• #6

Bonjour Gerard 🙂

 

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 29 Mars 2018

• #7

Re

Merci a Vous

Tout est OK

Guido

 

Vote positif 0 Vote négatif