Aide pour VBA sous Excel 2010

[Troll]

Salut vous deux,

Alors j'y connais rien du tout aux Macros en VBA sur Excel, mais je peux déjà te proposer une solution qui marchera sûrement pour que les actions soient effectués sur la colonne P également et pas uniquement la colonne L. Pour le reste, je dois avouer que j'en sais pas grand chose, faut chercher sur le net :/

Pour que ça marche sur les deux colonnes :

Sélectionner - Agrandir / Réduire

Sub couper_coller() 



Dim Lig As Long 



Dim Col As String 



Dim NbrLig As Long 



Dim NumLig As Long 



Sheets("Refus").Activate ' feuille de destination 





With Sheets("Feuil1") ' feuille source 

 Col = "L" ' colonne de la donnée non vide à tester 



 NumLig = 1 



 NbrLig = .Cells(65536, Col).End(xlUp).Row 



 For Lig = 2 To NbrLig 



  If .Cells(Lig, Col).Value <> "" Then 



   .Cells(Lig, Col).EntireRow.Cut 



   NumLig = NumLig + 1 



   Cells(NumLig, 1).Select 



   ActiveSheet.Paste 



   End If 

 Next 



 Col = "P" ' colonne de la donnée non vide à tester 



 NumLig = 1 



 NbrLig = .Cells(65536, Col).End(xlUp).Row 



 For Lig = 2 To NbrLig 



  If .Cells(Lig, Col).Value <> "" Then 



   .Cells(Lig, Col).EntireRow.Cut 



   NumLig = NumLig + 1 



   Cells(NumLig, 1).Select 



   ActiveSheet.Paste 



   End If 

 Next 



End With 



End Sub 

Voilà, en passant j'ai un peu "indenté" ton code et je l'ai mis entre les balises [ code][/code] parce que sinon c'est vraiment illisible, essaies d'y penser quand tu postes du code

Sinon, comme on est pas vraiment compétent là-dessus, tu devrais peut-être essayer sur les forums spécialisés excel, comme notamment XLD en général ils sont assez sympa et plutôt très compétent en terme d'Excel

Voilà, tiens nous au courant, si tu trouves la solution, on serait intéressé pour que tu nous la poste !