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
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
A voir également:
- Supp et déplacer une ligne sous Excel condit°
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
- Si et excel - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
4 réponses
Le Pingou
Messages postés
12225
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 décembre 2024
1 452
8 sept. 2010 à 15:06
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
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
Le Pingou
Messages postés
12225
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 décembre 2024
1 452
13 sept. 2010 à 22:58
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
Par la même occasion, vous remplacez cette ligne :
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).Valuepar celle-ci :
nomV = Cells(Target.Row, 1).Value
Le Pingou
Messages postés
12225
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 décembre 2024
1 452
6 sept. 2010 à 22:59
6 sept. 2010 à 22:59
Bonjour,
Plus de précision serait souhaitable !
Plus de précision serait souhaitable !
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
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.
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.
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
13 sept. 2010 à 23:35
Re,
Merci beaucoup pour votre aide, les corrections fonctionnent parfaitement.
Bravo à vous.
A bientôt et bonne continuation.
Merci beaucoup pour votre aide, les corrections fonctionnent parfaitement.
Bravo à vous.
A bientôt et bonne continuation.
13 sept. 2010 à 21:08
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.