jacouille35
Expert
Bonjour, J'ai un petit probleme, je veut faire un copier coller d'une ligne d'une feuille (Liste) par exemple, dans une autre feuille ( Reponse) par exemple, mais le numéro de la cellule de la feuille Reponse doit être identique à celui de la feuille liste. J'ai un début mais c'est très peut :
[cpp]
Private Sub CommandButton1_Click()
Dim iClients As Long
Dim iJournal As Long
Set Clients = Worksheets("Clients")
Set Journal = Worksheets("Journal")
'choix de la ligne où l'on va copier
iClients = iJournal
For iJournal = 1 To 20
'choix de la ligne a copier
If Journal.Cells(iJournal, 1).Text = "2" Then
Journal.Range(iJournal & ":" & iJournal).Copy Clients.Cells(iClients, 1)
'iClients = iClients + 2
End If
Next
End Sub
[/cpp]
quelqu'un pourrai m'aider à avancer s'il vous plait ...
[cpp]
Private Sub CommandButton1_Click()
Dim iClients As Long
Dim iJournal As Long
Set Clients = Worksheets("Clients")
Set Journal = Worksheets("Journal")
'choix de la ligne où l'on va copier
iClients = iJournal
For iJournal = 1 To 20
'choix de la ligne a copier
If Journal.Cells(iJournal, 1).Text = "2" Then
Journal.Range(iJournal & ":" & iJournal).Copy Clients.Cells(iClients, 1)
'iClients = iClients + 2
End If
Next
End Sub
[/cpp]
quelqu'un pourrai m'aider à avancer s'il vous plait ...
