Range.end(xldown).offset(1,0).select

Bonjour...j'ai crée un formulaire sur excel ça marche a l'exception que a chaque fois que je veut ajouter une nouvelle entrée elle écrase l'ancienne.

S'il vous plait es que quel qu'un peu m'aider je suis nouveau dans ce domaine.

Merci d'avance

Sub ajouter_entre()

'

'ajouter_entree macro

'

'

Sheets("Formulaire").Range("B3:H3").Select

Selection.Copy

Sheets("ENTR_STK").Select

Range("B2").End(xlDown).Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Formulaire").Select

Range("c6").Select

Application.CutCopyMode = False

Selection.ClearContents

Range("e6").Select

Selection.ClearContents

Range("g6").Select

Selection.ClearContents

Range("c11").Select

Selection.ClearContents

Range("e11").Select

Selection.ClearContents

Range("c15").Select

Selection.ClearContents

Range("e15").Select

Selection.ClearContents

Range("d20").Select

End Sub

Bonjour,

Sans reprendre le code pour supprimer tous les select, et sans pouvoir tester sur le classeur, essayer en remplaçant la ligne:

Range("B2").End(xlDown).Offset(1, 0).Select

par

Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Select

A+

Bonjour lyes5317, le forum,

A tester....

Sub ajouter_entre()
 Dim dl As Long
  dl = Sheets("ENTR_STK").Range("B" & Rows.Count).End(xlUp).Row + 1 'première ligne vide en fonction de la colonne B

Sheets("Formulaire").Range("B3:H3").Copy
 Sheets("ENTR_STK").Range("B" & dl).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Range("c6,e6,g6,C11,e11,c15,e15,d20").ClearContents

Application.CutCopyMode = False
End Sub

Cordialement,

bonjour,

edit : bonjour algoplus et xorsankukai

proposition d'adaptation de ton code.

je suppose que les cellules B3 à H3 font référence aux cellules c6,e6,g6,c11,e11,c15,e15,d20 sur ta feuille formulaire.

Sub ajouter_entre()
    '
    'ajouter_entree macro
    '

    '
    Sheets("Formulaire").Range("B3:H3").Copy
    With Sheets("entr_stk")
        dl = .Cells(Rows.Count, 2).End(xlUp).Row + 1
        .Cells(dl, 2).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With
    Sheets("Formulaire").Range("c6,e6,g6,c11,e11,c15,e15,d20").ClearContents

End Sub

AlgoPlus a écrit :

Bonjour,

Sans reprendre le code pour supprimer tous les select, et sans pouvoir tester sur le classeur, essayer en remplaçant la ligne:

Range("B2").End(xlDown).Offset(1, 0).Select

par

Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Select

A+

Merci pour votre réponse ça marche en partant du bas...mais es qu'il ya une solution pour l'inverse

xorsankukai a écrit :

Bonjour lyes5317, le forum,

A tester....

Sub ajouter_entre()
 Dim dl As Long
  dl = Sheets("ENTR_STK").Range("B" & Rows.Count).End(xlUp).Row + 1 'première ligne vide en fonction de la colonne B

Sheets("Formulaire").Range("B3:H3").Copy
 Sheets("ENTR_STK").Range("B" & dl).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Range("c6,e6,g6,C11,e11,c15,e15,d20").ClearContents

Application.CutCopyMode = False
End Sub

Cordialement,

Merci Sankukai hhh....ça m'affiche msg d'érreur 1004

h2so4 a écrit :

bonjour,

edit : bonjour algoplus et xorsankukai

proposition d'adaptation de ton code.

je suppose que les cellules B3 à H3 font référence aux cellules c6,e6,g6,c11,e11,c15,e15,d20 sur ta feuille formulaire.

Sub ajouter_entre()
    '
    'ajouter_entree macro
    '

    '
    Sheets("Formulaire").Range("B3:H3").Copy
    With Sheets("entr_stk")
        dl = .Cells(Rows.Count, 2).End(xlUp).Row + 1
        .Cells(dl, 2).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With
    Sheets("Formulaire").Range("c6,e6,g6,c11,e11,c15,e15,d20").ClearContents

End Sub

même msg comme pour sankukai erreur 1004

Bonjour le fil,

Merci Sankukai hhh....ça m'affiche msg d'érreur 1004

Essaies ce fichier .....as-tu toujours l'erreur ? Moi, je n'en ai pas...

Cordialement,