copie de plage avec des valeurs exclue sur certaines conditions

[jeremy23]

Bonjour,

J'aimerais faire une recopie de plages mais en exluant une partie de cette plage sur certaines conditions

Selection.Copy
    Range("C5:C42,G5:G42,K5:K42,O5:O42,S5:S42,W5:W42,AA5:AA42,AE5:AE42,AI5:AI42,AM5:AM42,AQ5:AQ42,AU5:AU42").Select

je voudrais faire une recopie de ces plages mais en excluant les cellules si la cellule dela colonne d'a coté est egale à 5

par ex si D20=5 je recopie C5:C19 et C21:C42

ou si H10=5 je recopie G5:G9 et G11:G42

Merci de votre aide

 

[pierrejean]

Re : copie de plage avec des valeurs exclue sur certaines conditions

bonjour jeremy

Un petit fichier exemple nous permettrait de t'aider plus efficacement

 

[job75]

Re : copie de plage avec des valeurs exclue sur certaines conditions

Bonjour jeremy23, salut pierrejean,

Si j'ai bien compris, 2 solutions possibles :

Sub Copie1()
Dim cel As Range
For Each cel In Range("C5:C42,G5:G42,K5:K42,O5:O42,S5:S42,W5:W42,AA5:AA42,AE5:AE42,AI5:AI42,AM5:AM42,AQ5:AQ42,AU5:AU42")
If cel.Offset(, 1) <> 5 Then ActiveCell.Copy cel
Next
End Sub

Sub Copie2()
Dim cel As Range
For Each cel In Range("C5:C42,G5:G42,K5:K42,O5:O42,S5:S42,W5:W42,AA5:AA42,AE5:AE42,AI5:AI42,AM5:AM42,AQ5:AQ42,AU5:AU42")
If cel.Offset(, 1) <> 5 Then cel = ActiveCell 'copie seulement la valeur
Next
End Sub

A+