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
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