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 

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

NumLig = 1 

With Sheets("Feuil1") ' feuille source 

 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 

Vous l'aurez compris je ne suis pas une experte et mon code est loin d'être complet, je rencontre donc plusieurs difficultés.
Premièrement, mon code ne traite que la colonne "L" est-ce que l'on peut traiter les colonnes "L" et "P" dans le même code ou faut-il en créer deux ???
Deuxièmement, ce code ne me supprime pas les lignes de mon tableur mais seulement le contenu !!!
Et enfin, je ne sais pas comment inscrire que je veux couper seulement les lignes où il est inscrit "Refus" et du coup ce code me déplace tout !!!
Merci d'avanec aux plus courageux qui auront pris le temps de lire mon roman et d'y répondre dans l'idéal ]]> Je viens à vous pour obtenir de l'aide concernant le VBA.
Pour que vous puissiez me comprendre au mieux, voici une brève mise en situation.
Mon tableur me sert à suivre mes contacts avec mes prospects, donc j'ai tout ce qui concerne leur identité, leur situation etc.... et j'ai également deux colonnes traitant les relances.
Et dans mes colonnes L et P j'ai "Résultat de la relance" avec une liste déroulante proposant les trois choix suivants : Acceptation/Refus/A relancer de nouveau.
Avec le VBA je souhaite couper toutes les lignes où il est inscrit "Refus" dans les cases L et P pour les copier dans une feuille prévue à cet effet (feuille se trouvant dans le même classeur)
Pour l'instant mon code ressemble à cela :

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 

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

NumLig = 1 

With Sheets("Feuil1") ' feuille source 

 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 

Vous l'aurez compris je ne suis pas une experte et mon code est loin d'être complet, je rencontre donc plusieurs difficultés.
Premièrement, mon code ne traite que la colonne "L" est-ce que l'on peut traiter les colonnes "L" et "P" dans le même code ou faut-il en créer deux ???
Deuxièmement, ce code ne me supprime pas les lignes de mon tableur mais seulement le contenu !!!
Et enfin, je ne sais pas comment inscrire que je veux couper seulement les lignes où il est inscrit "Refus" et du coup ce code me déplace tout !!!
Merci d'avanec aux plus courageux qui auront pris le temps de lire mon roman et d'y répondre dans l'idéal ]]> http://forum.pcinfo-web.com/showthread.php?tid=5364 Wed, 04 Apr 2012 10:17:53 +0200 http://forum.pcinfo-web.com/showthread.php?tid=5364 Je constate encore aujourd'hui qu'un post a disparu N°11... ICI
(Heureusement, j'avais copier la page avant de poster le message sinon, j'étais bon pour tout refaire )
@Troll tu avais constaté, je ne sais plus sur quel post, que celui-ci était vide... C'était la semaine dernière.
Puis sur le mien du 1er Avril...
Et là encore une récidive aujourd'hui !
Je pense qu'il y a urgence sur le problème.
Bonne journée.]]> Je constate encore aujourd'hui qu'un post a disparu N°11... ICI
(Heureusement, j'avais copier la page avant de poster le message sinon, j'étais bon pour tout refaire )
@Troll tu avais constaté, je ne sais plus sur quel post, que celui-ci était vide... C'était la semaine dernière.
Puis sur le mien du 1er Avril...
Et là encore une récidive aujourd'hui !
Je pense qu'il y a urgence sur le problème.
Bonne journée.]]>