Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour Soan,
C'est parfait également très bien merci !
je vais pouvoir m'en inspirer pour la mise en page de mon fichier et le nettoyage de mon VBA, j'avoue que je ne connais pas plusieurs ligne de ton langage, ça va me permettre de me perfectionner.
Très bonne journée à vous encore merci.
Sub recopie()
Dim L As Integer
Dim DernLigneBase
Range("A1").Select
DernLigneBase = Range("A65536").End(xlUp).Row
i = 0
For L = 1 To (DernLigneBase - 1)
If Cells(L + 1, 24) <> "" Then
Rows(L + 1).Copy
Range("A566666").End(xlUp).Offset(1, 0).Select
ActiveCell.PasteSpecial ' Colle bien la ligne...
Bonjour,
Je cherche à intégrer un remplacement de donnée dans ma boucle :
Sub recopie
Dim L as integer
For L = 1 to 11
If cells(L+1,24) <> "" then
Rows(L+1).copy
Range("A566666").end(xlup).offset(1,0).select
Activecell.Pastespecial
(voila ce que je voulais rajouter ...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.