Re : Trouver la première ligne vierge + y insérer valeur
Bonjour !
Salut tototiti,
En fait, dans chaque élément de mon tableau, il y a une deuxieme partie que je dois coller depuis ma feuille source. Or cette deuxieme partie ne respecte pas la condtion de se coller après la dernière ligne du tableau (puisque forcément, dans le code, elle est séparée de la premiere partie collée).
Donc, au final, je voudrais que cette deuxième partie respecte la condition d'aller à ligne après la dernière ligne du tableau (dans son ensemble !).
Voyez plutôt :
Sub planing()
Dim Ligne7 As Long, Ligne8 As Long
Sheets("introduction").Select
Cells.Select
Range("AY157").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="=1", Operator:=xlOr, _
Criteria2:="=2"
Selection.AutoFilter Field:=13, Criteria1:="x"
Range("D71:L1404").Select
Selection.Copy
Sheets("planing").Select
Ligne1 = Range("B65536").End(xlUp).Offset(1, 0).Row
Range("B" & Ligne1).Select
ActiveSheet.Paste
Ligne2 = Range("B65536").End(xlUp).Row
Range("A" & Ligne1 & ":A" & Ligne2).Value = "Ajilon"
Sheets("introduction").Select
Cells.Select
Range("D5").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="=1", Operator:=xlOr, _
Criteria2:="=2"
Selection.AutoFilter Field:=13, Criteria1:="x"
Range("AY71:AY1404").Select
Range("AY1404").Activate
Selection.Copy
Sheets("planing").Select
Range("K65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub