Contenu dans une plage
Bonjour,
En utilisant les réponses à différents sujets, j'aboutis au code suivant qui fonctionne :
Sub CopieDesCellules()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("DOC").Select ' feuille de destination
Cells.Select
Selection.ClearContents
Col = "H" ' colonne de la donnée non vide à tester
NumLig = 0
With Sheets("Liste contetieux à coller") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value = "68" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(NumLig, 1).Select
ActiveSheet.Paste
End If
Next
End With
End Sub
Cependant je souhaite qu'au lieu d'avoir If .Cells(Lig, Col).Value = "68" Then, mettre une plage de cellule contenu dans une autre feuille. j'étais partis sur :
If .Cells(Lig, Col).Value = sheets("DOC").Range(B2:T2) Then mais cela ne fonctionne pas. Auriez vous une solution ?
Merci d'avance pour votre aide
En utilisant les réponses à différents sujets, j'aboutis au code suivant qui fonctionne :
Sub CopieDesCellules()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("DOC").Select ' feuille de destination
Cells.Select
Selection.ClearContents
Col = "H" ' colonne de la donnée non vide à tester
NumLig = 0
With Sheets("Liste contetieux à coller") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value = "68" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(NumLig, 1).Select
ActiveSheet.Paste
End If
Next
End With
End Sub
Cependant je souhaite qu'au lieu d'avoir If .Cells(Lig, Col).Value = "68" Then, mettre une plage de cellule contenu dans une autre feuille. j'étais partis sur :
If .Cells(Lig, Col).Value = sheets("DOC").Range(B2:T2) Then mais cela ne fonctionne pas. Auriez vous une solution ?
Merci d'avance pour votre aide
