Rechercher
Se connecter avec
S'enregistrer | Connectez-vous

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

Tags :
Dernière réponse : dans Programmation
Partagez

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 :( 

Autres pages sur : supprimer lignes critere defini variable

  • juso a édité ce message
  • juso a édité ce message
Lassé par la pub ? Créez un compte

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.
  • juso a édité ce message
  • juso a édité ce message

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
Lassé par la pub ? Créez un compte
Créer un nouveau sujet