Sujet Précédent Sujet Suivant

Supp et déplacer une ligne sous Excel condit°

Résolu/Fermé
Faxstalag Messages postés 23 Date d'inscription vendredi 27 août 2010 Statut Membre Dernière intervention 25 août 2011 - 6 sept. 2010 à 11:11
Faxstalag Messages postés 23 Date d'inscription vendredi 27 août 2010 Statut Membre Dernière intervention 25 août 2011 - 13 sept. 2010 à 23:35
Bonjour à tous,

Je recherche une macro, ou un VBA, qui pourrait me permettre de supprimer et de déplacer une ligne dans un onglet spécifique, quand certain(s) critère()s sont rentrés dans les cellules.

J'espère avoir été assez clair dans mes explications. Je peux vous envoyer l'extrait du squelette du fichier. Je travaille sous EXCEL 2002.
Merci d'avance pour vos aides.





A voir également:

4 réponses

Réponse 1 / 4
Le Pingou Messages postés 12044 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 25 avril 2024 1 426
8 sept. 2010 à 15:06
Bonjour,
Voici un exemple selon se que j'ai compris.
https://www.cjoint.com/?jipddxszmi
Il suffit de mettre « Oui » dans la colonne [B] la ligne sera supprimer et placé dans la feuille correspondante (les feuilles avec noms des villes doivent exister)
Note : il n'existe aucunes cellules entre A1 et B1
1
Faxstalag Messages postés 23 Date d'inscription vendredi 27 août 2010 Statut Membre Dernière intervention 25 août 2011 4
13 sept. 2010 à 21:08
Bonsoir,
Merci énormément. C'est ce qu'il me fallait. Un grand BRAVO.
Cependant je vois qu'il est impossible de changer la cellule B1 "Livrer" pour la mettre en dernière position. Doit-on refaire une programmation ou bien peux tu m'expliquer la procédure ?.
Merci par avance, et désolé de n'avoir pas pu lire ton message plus tôt.
0
Réponse 2 / 4
Le Pingou Messages postés 12044 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 25 avril 2024 1 426
13 sept. 2010 à 22:58
Bonjour,
Par exemple vous utilisez la colonne [G] à la place de [B], il suffit d'une petite modification dans la procédure.
Dans cette ligne 
If Application.Intersect(Range(Target.Address), Range("B2:B" & nl))
Remplacer les 2 lettres B par G, soit 
If Application.Intersect(Range(Target.Address), Range("G2:G" & nl))

Par la même occasion, vous remplacez cette ligne : 
nomV = Target.Offset(0, -1).Value
par celle-ci : 
nomV = Cells(Target.Row, 1).Value
1
Réponse 3 / 4
Le Pingou Messages postés 12044 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 25 avril 2024 1 426
6 sept. 2010 à 22:59
Bonjour,
Plus de précision serait souhaitable !
0
Faxstalag Messages postés 23 Date d'inscription vendredi 27 août 2010 Statut Membre Dernière intervention 25 août 2011 4
7 sept. 2010 à 23:57
Bonjour,
Ma requète est simple, mais la programmation peut-être moins. En fait j'aimerais qu'une ligne soit effacé quand on rentre un critère spécifique, et qu'elle soit déplacé dans un onglet qui porterait le nom d'une autre cellule. Ex: on a 1 cellule A1="VILLE", une autre B1="LIVRER". Lorsque que "OUI" est rentré dans la cellule LIVRER, toute la ligne se déplace dans un onglet qui porte le même nom de la ville.

Merci par avance, sachant qu'il existe normalement plusieurs cellules entre A1 et B1.
0
Réponse 4 / 4
Faxstalag Messages postés 23 Date d'inscription vendredi 27 août 2010 Statut Membre Dernière intervention 25 août 2011 4
13 sept. 2010 à 23:35
Re,

Merci beaucoup pour votre aide, les corrections fonctionnent parfaitement.
Bravo à vous.
A bientôt et bonne continuation.
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
mamybigoud68 -

9 réponses