Discussion :

[santanas2b]

Salut tout le monde , après le dernier poste , résolu , et d'ailleurs encore merci . Je vais vous demander .. Car je ne trouves pas . Comment supprimer une ligne complètement et ne pas la vidée , sinon ça laissera du vide.. Et vu les 14.000 lignes que j'ai a filtrer... Si la valeur ne dépasse pas les 6 par exemple . Je n'ai pas trouvé dans le FaQ . Merci d'avance

[blondelle]

Pour repondre a ta question precedente pour effacer le contenu d'un champ de cellules on peut faire comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
vWorksheet.OlePropertyGet("Range", "A1:H292").OleFunction("Select");
vMSExcel.OlePropertyGet("Selection").OleFunction("ClearContents");
vWorksheet.OlePropertyGet("Range", "A1").OleFunction("Select");

Excel comme Word possede une fonction qui permet d'enregistrer dans une Macro tout ce que l'on execute, c'est ce que j'ai fait, a partir de ce code on en deduit ce que l'on doit ecrire en OleExcel
Pour supprimer une ligne on peut faire comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
vWorksheet.OlePropertyGet("Range", "7:7").OleFunction("Select");
vMSExcel.OlePropertyGet("Selection").OleFunction("Delete", -4162);
vWorksheet.OlePropertyGet("Range", "A1").OleFunction("Select");

[blondelle]

Quelques liens sur le site

ici tu a une FAQ Excel
http://excel.developpez.com/faq/

ici ta des tutos
http://excel.developpez.com/cours/

ici un tuto Excel BCB
http://lfe.developpez.com/Excel/

[santanas2b]

Sans vouloir être trop chiant , est-ce que tu pourrais m'expliquer les lignes de code que tu m'a écris ? Je comprends a peu prêt mais pourquoi -4xxx etc . Et tout simplement quoi correspond a quoi . Car je doit faire un test sur 14.000 lignes

[blondelle]

// on selectionne la ligne 7
vWorksheet.OlePropertyGet("Range", "7:7").OleFunction("Select");

// on supprime la selection ( -4162 ) est une variable Excel ( xlUp ) qui indique le decalage des lignes
// code VB
Sub Macro4()
Rows("7:7").Select
Selection.Delete Shift:=xlUp
End Sub
vMSExcel.OlePropertyGet("Selection").OleFunction("Delete", -4162);

// on selectionne la Cellule A1
vWorksheet.OlePropertyGet("Range", "A1").OleFunction("Select");

en esperant avoir été clair

[santanas2b]

Oui j'ai assez compris merci . Mais juste . Comment je peux faire pour sélectionne la ligne avec des variables? Genre avec i , qui est incrémenté a chaque fois que je fait la boucle pour pouvoir tester dans un genre

if (valeur de A2) <6

{supression de la ligne}

. Enfin si tu vois ce que je veux dire .
Comme c'est avec une chaîne de carractère qu'on selectionne la ligne . Et que j'ai fait pour par exemple "A13" en rajoutant 13 avec sprintf . Mais comme il y aura 5 chiffres vers la fin et de moins en moins vers le début . Comment faire ?

A moins techniquement si je fait par etape de chiffres ..
Genre

while (i<10) while (i<100) <while(i<1000) Etc.. Pour que le ':' Soit bien placé ? Si tu vois ce que je veux dire? Ou y a t'il une façon plus simple avec des variables ? Pour le faire? ^^ Merci d'avance

[santanas2b]

Bah écoute . Un grand merci blondelle . Et je clore ce sujet . Car le problème est résolu