bonjour le forum,
j’exécute une macro qui marche très bien qui me permet de déplacer des données dans une autre feuille,dans la première ligne vide d'une colonne ,comment faudrait-il modifier la macro pour que cela se fasse dans une plage de rangées? genre entre A1:A20
merci pour votre aide.
Sub rechquinc()
Dim NLig As Long
Dim ShtS As Worksheet
' Définir le nom de la feuille source
Set ShtS = Sheets("RECHERCHE")
' Avec la feuille de destination
With Sheets("Quincaille")
' Trouver la prochaine ligne vide de cette feuille
NLig = .Range("b" & Rows.Count).End(xlUp).Row + 1
' Inscrire les données dans la feuille de destination
.Range("A" & NLig) = ShtS.Range("E2")
.Range("B" & NLig) = ShtS.Range("E3")
.Range("D" & NLig) = ShtS.Range("E4")
.Range("G" & NLig) = ShtS.Range("E5")
.Range("E" & NLig) = ShtS.Range("E6")
' Etc ....
End With
' Effacer les variables objet
Set ShtS = Nothing
End Sub
j’exécute une macro qui marche très bien qui me permet de déplacer des données dans une autre feuille,dans la première ligne vide d'une colonne ,comment faudrait-il modifier la macro pour que cela se fasse dans une plage de rangées? genre entre A1:A20
merci pour votre aide.
Sub rechquinc()
Dim NLig As Long
Dim ShtS As Worksheet
' Définir le nom de la feuille source
Set ShtS = Sheets("RECHERCHE")
' Avec la feuille de destination
With Sheets("Quincaille")
' Trouver la prochaine ligne vide de cette feuille
NLig = .Range("b" & Rows.Count).End(xlUp).Row + 1
' Inscrire les données dans la feuille de destination
.Range("A" & NLig) = ShtS.Range("E2")
.Range("B" & NLig) = ShtS.Range("E3")
.Range("D" & NLig) = ShtS.Range("E4")
.Range("G" & NLig) = ShtS.Range("E5")
.Range("E" & NLig) = ShtS.Range("E6")
' Etc ....
End With
' Effacer les variables objet
Set ShtS = Nothing
End Sub