Discussion :

[Berty59]

Bonjour, je dois gérer les abonnements a une revue et j'ai a ma disposition une liste de noms et des infos sur ces noms. Il y a bien entendu des contraintes et celles-ci me posent d'ailleurs problème.

Tout d'abord, je n'arrive a trouver le code me permettant de rechercher dans toute ma feuille excel , je recherche la valeur "300" dans mon tableur excel afin de supprimer la ligne où se trouve cette valeur. Seulement voilà, je rencontre 2 problèmes, le premier est que je n'arrive pas a extraire l'adresse de la cellule afin de supprimer la ligne, il m'affiche l'adresse comme cela : $A$26 alors que pour supprimer la ligne il faut utiliser cette commande :

Code :

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

1
2
Rows("16:16").select
Selection.delete Shift:=xlUp

Le deuxième problème est que je recherche uniquement les cellules ou la valeur 300 est stockée, pas les cellules ou il y a 30000 ou 130056, or il y a "300" inclus dans ces nombres, donc ces lignes seront également supprimées, je recherche donc le code (en VB bien sûr) me permettant de rechercher dans ma feuille Excel les lignes où "300" apparait et les supprimer. Merci d'avance pour la réponse.

[wilfried_42]

Bonjour

pour supprimer des lignes, il y a beaucoup de syntaxes différentes

Code :

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

Range("$A$26").entirerow.delete

Code :

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

Rows(Range("$A$26").row).delete

et encore bien d'autres
pour faire une recherche : ceci n'est qu'un exemple

Code :

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

1
2
3
4
5
dim c as range
set c = Range("A1:Y100").find(300)
if not c is nothing then 
        if c = 300 then c.entirerow.delete
end if