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

[juso]

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 :

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-ligne-faisant-reference-variable.html, mais il me laisse perplexe

 

[zeb]

Salut,

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

Supprimer la ligne n :

Rows(n).Delete

Si tu as une cellule de cette ligne :

Range("A12").EntireRow.Delete

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

Proposition de lecture :

Vous devez être connecté pour voir les liens.

 

[juso]

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 :

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Grand livre!R1C1:R29730C15", Version:=xlPivotTableVersion14). _
        CreatePivotTable TableDestination:="Feuil3!R3C1", TableName:= _
        "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.

 

[zeb]

Salut,

Oui c'est possible !

Dim Variable As Long
Variable=29730

ActiveWorkbook.PivotCaches.Create( _
	SourceType:=xlDatabase, _
	SourceData:="Grand livre!R1C1:R" & Variable & "C15", _
	Version:=xlPivotTableVersion14).CreatePivotTable _
		TableDestination:="Feuil3!R3C1", 
		TableName:= _"Tableau croisé dynamique1", 
		DefaultVersion:=xlPivotTableVersion14