Vba +
naya85
Messages postés
27
Statut
Membre
-
naya85 Messages postés 27 Statut Membre -
naya85 Messages postés 27 Statut Membre -
Bonjour,
j'ai une erreur dans la ligne .Range("A" & Lig).Paste du code suivant !
Sub nouv()
Dim NbrLig2 As Long
Dim Lig As Long
Sheets("Copie temp2").Activate
With Sheets("Copie temp2") ' feuille source
NbrLig2 = .Cells(65536, 1).End(xlUp).Row
Lig = NbrLig2 + 1
.Cells(NbrLig2, 1).EntireRow.Copy
.Range("A" & Lig).Paste ' chercher ce qui me colle la ligne total
.Cells(NbrLig2 + 1, 1).Value = "Total -En cours-"
End With
End Sub
Merci bcp !!
bonne soirée :-)
j'ai une erreur dans la ligne .Range("A" & Lig).Paste du code suivant !
Sub nouv()
Dim NbrLig2 As Long
Dim Lig As Long
Sheets("Copie temp2").Activate
With Sheets("Copie temp2") ' feuille source
NbrLig2 = .Cells(65536, 1).End(xlUp).Row
Lig = NbrLig2 + 1
.Cells(NbrLig2, 1).EntireRow.Copy
.Range("A" & Lig).Paste ' chercher ce qui me colle la ligne total
.Cells(NbrLig2 + 1, 1).Value = "Total -En cours-"
End With
End Sub
Merci bcp !!
bonne soirée :-)
Configuration: Windows XP Internet Explorer 6.0
