Bonjour tous le monde,
Sur une feuille de plusieurs colonnes et de 70 lignes, je veux récupérer les
données de certaines lignes si des valeurs sont inscrites dans les colonnes AF et AG et les copier sur une autre feuille.
( Ces deux colonnes peuvent avoir des cases vides )
La procédure suivante fonctionne sur la 1ère ligne puis bloque à partir de la
2èmè.
Sub MultiSelec()
Sheets("Tableau general").Select
Dim Cell As Range
Dim plg1 As Range
Set plg1 = Range("AG6 : AG70")
Range("AG6").Select
For Each Cell In plg1
If Cell.Value <> "" And ActiveCell.Offset(0, -1).Value <> "" Then
Union(Range(Cell, ActiveCell.Offset(0, -1)), Range(ActiveCell.Offset(0, -15), ActiveCell.Offset(0, -32))).Select
ElseIf Cell.Value = "" And ActiveCell.Offset(0, -1).Value <> "" Then
Union(Range(Cell, ActiveCell.Offset(0, -1)), Range(ActiveCell.Offset(0, -15), ActiveCell.Offset(0, -32))).Select
Else
If Cell.Value <> "" And ActiveCell.Offset(0, -1).Value = "" Then
Union(Range(Cell, ActiveCell.Offset(0, -1)), Range(ActiveCell.Offset(0, -15), ActiveCell.Offset(0, -32))).Select
End If
End If
Selection.Copy
With Selection
Sheets("EFNS").Select
Range("A6").Select
ActiveSheet.Paste
End With
Next
End Sub
Quelqu'un aurait-il une solution ?
Merci d'avance
Pom