Se connecter avec
S'enregistrer | Connectez-vous
Votre question

Supprimer des lignes selon un critère défini comme variable

Dernière réponse : dans Programmation
Partagez
7 Décembre 2012 10:16:56

Bonjour,

J'ai une matrice de x lignes et je souhaite supprimer toutes les lignes qui comportent un caractère précis (par exemple "A") dans la 2nde colonne.

J'utilise une boucle assez simple mais mon problème est de sélectionner les dites-lignes pour les supprimer.

Pour supprimer de la ligne 8 à la ligne "var" (où "var" est une variable déterminée en amont), il faut rédiger :
  1. Rows("8:" & var).Delete Shift:=xlUp


mais comment faut-il faire quand nous ne voulons supprimer que la ligne "var" ?

J'ai vu votre topic http://www.presence-pc.com/forum/id-1885478/supprimer-l..., mais il me laisse perplexe :( 
a b L Programmation
7 Décembre 2012 11:18:12

Salut,

Et si tu lisais l'aide de la commande Delete() !

Supprimer la ligne n :
  1. Rows(n).Delete


Si tu as une cellule de cette ligne :
  1. Range("A12").EntireRow.Delete


-------------------

Proposition de lecture : http://www.presence-pc.com/forum/ppc/Programmation/tuto...
m
0
l
3 Janvier 2013 17:15:00

Bonne année à tous,

J'ai bien avancé sur ma macro grâce à votre forum et à vos réponses donc je vous en remercie.
Ma dernière question sur cette macro concerne également la référence à une variable.

Je souhaite créer un tableau croisé dynamique à partir de mon fichier. La macro est :

  1. ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
  2. "Grand livre!R1C1:R29730C15", Version:=xlPivotTableVersion14). _
  3. CreatePivotTable TableDestination:="Feuil3!R3C1", TableName:= _
  4. "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion14


Mais, est-il possible de remplacer la référence à la ligne 29730 (ligne 2 de mon code ci-dessus) par une variable ?
Merci d'avance pour vos réponses.
m
0
l
a b L Programmation
4 Janvier 2013 17:49:48

Salut,

Oui c'est possible !

  1. Dim Variable As Long
  2. Variable=29730
  3.  
  4. ActiveWorkbook.PivotCaches.Create( _
  5. SourceType:=xlDatabase, _
  6. SourceData:="Grand livre!R1C1:R" & Variable & "C15", _
  7. Version:=xlPivotTableVersion14).CreatePivotTable _
  8. TableDestination:="Feuil3!R3C1",
  9. TableName:= _"Tableau croisé dynamique1",
  10. DefaultVersion:=xlPivotTableVersion14
m
0
l