P
pgillou
Guest
Bonjour à tous,
Besoin d'aide sur le code suivant:
If .Cells(Lig, Col).Value = "ENCLENCHEMENT A DISTANCE" Or .Cells(Lig, Col).Value = "RESERVE" Then 'Valeur de la cellule des lignes à sélectionner
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(NumLig, 1).Select
ActiveSheet.Paste Link:=True
End If
Il permet de copier une ligne entière si il trouve valeur dans une colonne définit plus haut dans le code.Je cherche à copier une partie de la ligne donc une plage.
Merci pour vos réponses et bonne journée.
Besoin d'aide sur le code suivant:
If .Cells(Lig, Col).Value = "ENCLENCHEMENT A DISTANCE" Or .Cells(Lig, Col).Value = "RESERVE" Then 'Valeur de la cellule des lignes à sélectionner
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(NumLig, 1).Select
ActiveSheet.Paste Link:=True
End If
Il permet de copier une ligne entière si il trouve valeur dans une colonne définit plus haut dans le code.Je cherche à copier une partie de la ligne donc une plage.
Merci pour vos réponses et bonne journée.