Ne copier que certaine valeur

[phil92350]

Bonjour à tous,
Voici un code pour un de mes fichiers. Celui-ci a pour but d'archiver des lignes selon certaine conditions. Mais voila pour la ligne suivante :
Range("A" & i & ":U" & i).Copy ' copy la ligne des colonnes A à U
Je ne veux pas copier les colonnes de "A" à "U" mais de "A" à "J" puis de "L" à "Q" et enfin de "S" à "U" (en fait je ne veux pas copier les colonnes K et R.

Comment faire ?

Sub EN_COURS()
Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
Set Ma_Plage = Worksheets("PROJET").Range("A5:U230") 'Compteur: A5 1° ligne U230 derniere ligne
nbr = nbr + 5 + Application.WorksheetFunction.CountA(Ma_Plage) ' rajout des 5° lignes commence l'opération à la 8 émé ligne ?

For i = 5 To nbr 'De 5° à 230° ligne
If Cells(i, 22) = 100 Then ' Controle de la cellule colonne V Si= à 100 je continue
Range("A" & i & ":U" & i).Copy ' copy la ligne des colonnes A à U
Sheets("EN COURS").Select ' sélectionne la feuille "EN COURS"
Range("A230").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues ' Va à la cellule A65536 puis remonte à la dernire cellule vide - A
'pour commencer à la deuxieme colonne
Application.CutCopyMode = False ' copie que les valeurs
Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
Range("A" & i & ":J" & i).Select 'Sélectionne la ligne des colonnes A à J
Selection.ClearContents ' efface
Range("L" & i & ":Q" & i).Select 'Sélectionne la ligne des colonnes L à Q
Selection.ClearContents ' efface
Range("S" & i & ":U" & i).Select 'Sélectionne la ligne des colonnes S à U
Selection.ClearContents ' efface

Sheets("PROJET").Select ' sélectionne la feuille "PROJET" et trie par date la collonne F
Range("F5:F230").Select
Range("A5:U230").Sort Key1:=Range("F5"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("F5").Select




End If
Next
End Sub


Merci et bonne journée à tous

Phil

 

[Pierrot93]

Re : Ne copier que certaine valeur

Bonjour,

essaye ceci :

Range("A" & i & ":J" & i & ",L" & i & ":Q" & i & ",S" & i & ":U" & i).Copy

bonne journée
@+

 

[JNP]

Re : Ne copier que certaine valeur

Bonjour le fil 🙂,
Autre solution (plus longue mais plus lisible 😉) :

Union(Range("A" & i & ":J" & i), Range("L" & i & ":Q" & i), Range("S" & i & ":U" & i)).Copy

Bonne journée 😎

 

[phil92350]

Re : Ne copier que certaine valeur

Merci pierrot et JNP, cela fonctionne mais un autre problème se présente. Le code copie bien les colonnes A à J, L à Q et S à U mais sur la feuille cible (EN COUR) il y a un décalage étant donné que le code
Application.CutCopyMode = False ' copie que les valeurs

Lui ne copie que les valeurs sans prendre en considération les colonnes K et R.

Avez vous une idée

Bonne soirée

Phil

 

[Pierrot93]

Re : Ne copier que certaine valeur

Re,

Application.CutCopyMode = False ' copie que les valeurs

euh, comprend pas trop, ce code renvoie uniquement l'état du mode couper copier.... A voir dans la suite si tu ne veux que coler les valeur, dans ce pas utiliser un collage spécial... exemple ci-dessous :

Range("A1").Copy
Range("B1").PasteSpecial xlPasteValues

bonne soirée
@+

 

[JNP]

Re : Ne copier que certaine valeur

Re 🙂,
Je pense que je comprends, il ne souhaite pas copier les valeurs en K et R, mais conserver les alignements (le nombre de cellules) 😛...
Dans ce cas là, le plus simple est de copier en 3 fois, par morceau, ou de supprimer les valeurs en K et R 🙄...
A + 😎