XL 2016 correction d'un code VBA

[LAPIN-53]

Bonjour,
Quelqu'un pourrait-il m'aider à corriger mon code VBA ?
Je souhaite faire un copier coller valeur des cellules B2 à H2 dans un tableau commençant en ligne A11 sur la colonne B
mais en allant toujours sur la dernière ligne complétée.
Mon code actuel supprime systématiquement mon enregistrement précédent et ne colle qu'en ligne 11.
Merci d'avance pour votre aide.

'copier coller valeur de la nouvelle fiche
Dim derniereLigne As Long

' Trouver la dernière ligne utilisée dans la colonne A
derniereLigne = Cells(Rows.Count, 1).End(xlUp).Row

' Copier les valeurs de B2 à H2
Range("B2:H2").Copy

' Coller les valeurs à la dernière ligne du tableau (ligne 11 ou dernièreLigne + 1 si le tableau peut être plus court que 11)
If derniereLigne >= 11 Then
Range("b11" & derniereLigne + 1).PasteSpecial xlPasteValues
Else
Range("b11").PasteSpecial xlPasteValues
End If

' Effacer le contenu du presse-papiers
Application.CutCopyMode = False

 

[vgendron]

bonjour

en modifant ceci
derniereLigne = Cells(Rows.Count, 1).End(xlUp).Row+1

et tu supprimes le test if >=11.. parce que à priori.. ce sera toujours le cas..
après. sans fichier...

 

[Gégé-45550]

Bonjour,
Corriger ceci :

Range("b11" & derniereLigne + 1).PasteSpecial xlPasteValues

comme ça :

Range("b" & derniereLigne + 1).PasteSpecial xlPasteValues

Cordialement,

 

[vgendron]

Bonjour,
Corriger ceci :

Range("b11" & derniereLigne + 1).PasteSpecial xlPasteValues

comme ça :

Range("b" & derniereLigne + 1).PasteSpecial xlPasteValues

Cordialement,

Bien vu. le B11 &dernièreligne...

 

[LAPIN-53]

bonjour

en modifant ceci
derniereLigne = Cells(Rows.Count, 1).End(xlUp).Row+1

et tu supprimes le test if >=11.. parce que à priori.. ce sera toujours le cas..
après. sans fichier...

Bonjour,
Ci-joint mon fichier
Merci pour le temps que vous y consacrerez.

 

[vgendron]

Tu n'utilises pas la bonne colonne pour connaitre la dernière ligne

' Trouver la dernière ligne utilisée dans la colonne A==> Prende la colonne B
derniereLigne = Range("B" & Rows.Count).End(xlUp).Row

' Copier les valeurs de B2 à H2
Range("B2:H2").Copy

' Coller les valeurs à la dernière ligne du tableau (ligne 11 ou dernièreLigne + 1 si le tableau peut être plus court que 11)
'If derniereLigne >= 11 Then
Range("b" & derniereLigne + 1).PasteSpecial xlPasteValues
' Else
' Range("b11").PasteSpecial xlPasteValues
'End If

 

[LAPIN-53]

Tu n'utilises pas la bonne colonne pour connaitre la dernière ligne

Merci beaucoup, c'est effectivement ce qui posait problème.

 

[LAPIN-53]

Bonjour,
Corriger ceci :

Range("b11" & derniereLigne + 1).PasteSpecial xlPasteValues

comme ça :

Range("b" & derniereLigne + 1).PasteSpecial xlPasteValues

Cordialement,

Merci pour le temps consacré pour m'aider