Copie à la dernière ligne d'une autre feuille
Bonjour
J'essaie de sauvegarder mes Lignes (environ 50 ) vers un fichier d'archive sans les formules , la colonne C contient les noms de mes élèves donc je me base sur elle pour la recherche de la dernières lignes
en cherchant sur le net j'ai trouve pas mal de réponse mais quand j'adapte ça Bug , je comprends pas pourquoi ça bloque , si quelqu'un a une réponse je suis preneuse Merci d'avance
Sub SAVE()
Dim derLg As Long<br>
With Worksheets("ARCHIVE")
derLg = .Range("C" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & derLg, "L" & derLg + 100) = Worksheets("GA").Range("A11:L111").Value
End With
End SubNaë Cordialement
Bonjour naelison
1) Comment faites-vous pour arriver à nous mettre votre code surlignée en vert avec des balises HTML dedans
2) Merci de mettre votre code entre balises avec le bouton en haut à droite SVP
Merci , je sais pourquoi j'ai cliqué sur ce bouton
enfin c'est plus lisible comme ça
merci
Merci,
Il faut modifier la ligne ainsi
.Range("A" & derLg & ":L" & derLg + 100) = Worksheets("GA").Range("A11:L111").ValueA+
Merci ça marche
Mais pour etre franche j'ai pas compris , Le " : L " , mais en tout cas c'est gentil merci
.Range("A" & derLg & ":L" & derLg + 100)Re,
Sur la ligne on concatène la colonne et la ligne de début avec la colonne et la ligne de fin
C'est comme pour votre Range("A11:L111"), vous avez bien un deux points entre les 2