Guido XLDnaute Accro 28 Mars 2018 #1 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
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 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: 45 Vote positif 0 Vote négatif
Bonjour Guido , le Forum Ton fichier en retour. La macro est dans le module 1, celle qui y était en module 2.
natorp XLDnaute Accro 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
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
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
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 XLDnaute Accro 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
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