Bonjour,
J'ai un petit soucis avec le prog ci apr=E8s.
Il s'agit d'un simple coup=E9 / coll=E9, et pour une raison=20
qui m'est encore inexpliqu=E9e, la ligne contenant C7 est=20
saut=E9e.
Toutes les lignes sont bien et belle coup=E9es et coll=E9es=20
sauf celle ci.
Des suggestions?
Merci d'avance =20
For Each Cell In Range("C6:C100")
If Cell =3D VarCherche Then
=20
Cell.Select
ActiveCell.EntireRow.Select
Selection.Cut
=20
Worksheets(NomPage).Select
Cells(Ligne, 1).Select
ActiveSheet.Paste
=20
Worksheets("Sheet1").Select
Ligne =3D Ligne + 1
=20
End If
Next
On doit pouvoir encore faire mieux mais j'ai du mal pour atteindre en une opération la feuille et la cellule.
Camille
-----Message d'origine----- Bonjour, J'ai un petit soucis avec le prog ci après. Il s'agit d'un simple coupé / collé, et pour une raison qui m'est encore inexpliquée, la ligne contenant C7 est sautée. Toutes les lignes sont bien et belle coupées et collées sauf celle ci.
Des suggestions?
Merci d'avance
For Each Cell In Range("C6:C100") If Cell = VarCherche Then
On doit pouvoir encore faire mieux mais j'ai du mal pour
atteindre en une opération la feuille et la cellule.
Camille
-----Message d'origine-----
Bonjour,
J'ai un petit soucis avec le prog ci après.
Il s'agit d'un simple coupé / collé, et pour une raison
qui m'est encore inexpliquée, la ligne contenant C7 est
sautée.
Toutes les lignes sont bien et belle coupées et collées
sauf celle ci.
Des suggestions?
Merci d'avance
For Each Cell In Range("C6:C100")
If Cell = VarCherche Then
On doit pouvoir encore faire mieux mais j'ai du mal pour atteindre en une opération la feuille et la cellule.
Camille
-----Message d'origine----- Bonjour, J'ai un petit soucis avec le prog ci après. Il s'agit d'un simple coupé / collé, et pour une raison qui m'est encore inexpliquée, la ligne contenant C7 est sautée. Toutes les lignes sont bien et belle coupées et collées sauf celle ci.
Des suggestions?
Merci d'avance
For Each Cell In Range("C6:C100") If Cell = VarCherche Then
Je constate le même phénomène ? Je te propose ceci qui semble fonctionner correctement.
For Each Cell In Range("C6:C100") If Cell = VarCherche Then With ActiveSheet.Range(Cell.Row & ":" & Cell.Row) Worksheets(NomPage).Range(Ligne & ":" & Ligne).Value = .Value .ClearContents End With Ligne = Ligne + 1 End If Next
Alain CROS.
"victor" a écrit dans le message de news: 0a8101c35102$1749e8d0$ Bonjour, J'ai un petit soucis avec le prog ci après. Il s'agit d'un simple coupé / collé, et pour une raison qui m'est encore inexpliquée, la ligne contenant C7 est sautée. Toutes les lignes sont bien et belle coupées et collées sauf celle ci.
Des suggestions?
Merci d'avance
For Each Cell In Range("C6:C100") If Cell = VarCherche Then
Je constate le même phénomène ?
Je te propose ceci qui semble fonctionner correctement.
For Each Cell In Range("C6:C100")
If Cell = VarCherche Then
With ActiveSheet.Range(Cell.Row & ":" & Cell.Row)
Worksheets(NomPage).Range(Ligne & ":" & Ligne).Value = .Value
.ClearContents
End With
Ligne = Ligne + 1
End If
Next
Alain CROS.
"victor" <victor.vargas@caramail.com> a écrit dans le message de news: 0a8101c35102$1749e8d0$a401280a@phx.gbl...
Bonjour,
J'ai un petit soucis avec le prog ci après.
Il s'agit d'un simple coupé / collé, et pour une raison
qui m'est encore inexpliquée, la ligne contenant C7 est
sautée.
Toutes les lignes sont bien et belle coupées et collées
sauf celle ci.
Des suggestions?
Merci d'avance
For Each Cell In Range("C6:C100")
If Cell = VarCherche Then
Je constate le même phénomène ? Je te propose ceci qui semble fonctionner correctement.
For Each Cell In Range("C6:C100") If Cell = VarCherche Then With ActiveSheet.Range(Cell.Row & ":" & Cell.Row) Worksheets(NomPage).Range(Ligne & ":" & Ligne).Value = .Value .ClearContents End With Ligne = Ligne + 1 End If Next
Alain CROS.
"victor" a écrit dans le message de news: 0a8101c35102$1749e8d0$ Bonjour, J'ai un petit soucis avec le prog ci après. Il s'agit d'un simple coupé / collé, et pour une raison qui m'est encore inexpliquée, la ligne contenant C7 est sautée. Toutes les lignes sont bien et belle coupées et collées sauf celle ci.
Des suggestions?
Merci d'avance
For Each Cell In Range("C6:C100") If Cell = VarCherche Then
