> Tous les forums > Forum Bureautique
 Suppress ligne avec cellule nommée en macro
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
vl93
  Posté le 06/11/2005 @ 10:00 
Aller en bas de la page 
Nouvel astucien
Rebonjour à tous, Le vba n'est pas mon [boom]fort mais le DOS [fete], bref J'ai sur une ligne, une cellule ayant un nom "toto" pas un txt. je voudrais par une macro : Allez sur la cellule "toto" si=vide en txt, action= del ligne ayant la cellule "toto" Merçi
Publicité
sam²
 Posté le 06/11/2005 à 10:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien
Slt Voila une macro qui va à la cellule nommée "toto" et qui supprime ce qui ce trouve sur la ligne si la cellule "toto" est vide.
Sub supp_ligne() Range("toto").Select If ActiveCell = "" Then ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select Selection.ClearContents End If End Sub
galopin01
 Posté le 06/11/2005 à 10:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Salut sam², vl93, moi j'y comprend comme ça :[code]Sub Test() Range("toto").Select If ActiveCell = "vide" Then Rows(ActiveCell.Row).Delete End Sub[/code] Note bien qu'il n'est pas nécessaire d'aller sur toto pour faire le boulot il suffit d'évaluer si toto = "vide". Dans ce cas :[code]Sub Galopin() If Range("toto") = "vide" Then Rows(Range("toto").Row).Delete End Sub[/code]A+
sam²
 Posté le 06/11/2005 à 13:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien
Slt Galopin, Moi, les macro, je connais pas très bien, je parts d'un macro que j'enregistre avec Exel, et je la modifie selon mes convenance, c'est pour ça qu'elle ne sont pas aussi bien faite que les tienne. Merci à toi pour tes solutions. Pour le mode de suppression, je ne suis pas sûre de ce qui est demandé, moi je suis partie du principe, qu'il falais juste effacé le contenu de la ligne, maintenant il faut peut-être supprimer la ligne....
vl93
 Posté le 06/11/2005 à 13:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien
Salut, Help me !!! ex.: Sub DelNotaTxtTva() 'suppression de la ligne ayant une cellule nommée "NotaTxtTva" ' If Range("NotaTxtTva") = "vide" Then Rows(Range("NotaTxtTva").Row).Delete End Sub [bombe]je n'y arrive pas. A +
galopin01
 Posté le 06/11/2005 à 15:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
bonjour, pas de problème sam², l'inconvénient est que notre ami vl93 n'a pas trop l'habitude du forum et parle le petit nèg' comme une vache landaise, ça n'aide pas à la compréhension. Par-dessus le marché il a changé de topic alors on ne sait pas s'il a changé d'idée ou si c'est le même problème. De plus comme sam², l'idée de la cellule nommée m'à vraiment fait partir dans une autre direction. Cette dernière macro ne marche pas comme celles qu'on t'a donné sur l'autre topic. La macro que tu as adaptée marche "sur ordre" c'est à dire si tu fais Outils/Macro/Exécuter Si tu voulais que ta macro fonctionne quand la cellule change de valeur il faut mettre à la place :[code]Private Sub Worksheet_Change(ByVal Target As Range) DelNotaTxtTva End Sub Sub DelNotaTxtTva() On Error Resume Next If Range("NotaTxtTva") = "vide" Then Rows(Range("NotaTxtTva").Row).Delete End Sub[/code]Nota : Ces macros, c'est vraiment horrible, j'ai presque honte ! mais si ça peux te dépanner... Conceptuellement ça parait presque absurde de supprimer une "cellule nommée" avec une macro évènementielle (parce que ça t'oblige à en recréer une autre du même nom...) Enfin tout ça, c'est si j'ai bien compris... A+
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
45,99 €Boîtier PC ATX Fractal Focus G à 45,99 €
Valable jusqu'au 06 Mars

Amazon propose actuellement le très bon boîter moyen tour Fractal Design Focus G à 45,99 € livré gratuitement alors qu'on le trouve ailleurs à plus de 69 €. Le boitier Fractal Design Focus G est une plateforme ultra-polyvalente douée de fonctions ultra pratiques (format ATX, filtres, USB 3.0, 2 ventilateurs LED inclus, emplacements 5,25 pouces pour lecteur DVD/Blu-Ray, montage facile).


> Voir l'offre
139,99 €NAS QNAP TS-251+ 2 baies (quad core, 2 Go RAM) à 139,99 €
Valable jusqu'au 05 Mars

Amazon propose actuellement le NAS QNAP TS-230 2 baies à 139,99 € livré gratuitement. On le trouve ailleurs à partir de 185 €. Ce NAS est parfait pour sauvegarder vos données. Vous pouvez accéder à distance à vos fichiers, et disposez même d'un cloud privé pour partager facilement vos documents avec vos proches. Grâce à ses 2 baies, vous pourrez étendre votre capacité de stockage ou bien sécuriser vos données en mettant en place un RAID.  Reposant sur un processeur quad-core Realtek 1.4 GHz et 2 Go de RAM, le TS-230 délivre de bonnes performances multitâches exceptionnelles (jusqu'à 113 Mo/s) et prend en charge le décodage matériel 4K (H.264) et le transcodage en temps réelCe NAS intègre en outre 2 ports USB 3.0 et deux ports Ethernet Gigabit et offre la possibilité d'un chiffrement matériel.


> Voir l'offre
45,49 €Super Mario 3D World + Bowser Fury à 45,49 €
Valable jusqu'au 04 Mars

Amazon propose actuellement en précommande le jeu Super Mario 3D World sur Switch à 45,49 €. Super Mario 3D World est de retour sur Nintendo Switch ! Pour fêter son arrivée, le classique de la Wii U se dote de nouveaux modes de jeu, dont du multi local et en ligne pour profiter de l’aventure avec vos amis, où que vous soyez : coopérer ou… mettez-vous des bâtons dans les roues ! Le jeu sort le 12 février 2021. Vous bénéficiez de la garantie au plus bas prix. Si le prix baisse entre deux, la baisse sera répercutée. Si le prix monte, vous conservez le prix le plus bas.


> Voir l'offre

Sujets relatifs
se positionner avec une macro dans une cellule précise
Macro supprimer ligne avec condition
Macro Rechercher une ligne à partir d'une cellule
copier ligne si cellule vide
Recopie cellule par macro
Tirage au sort avec macro
Erreur date avec macro/ incapable d'ouvrir ailleurs que chez moi
fonction SI avec trois critères - cellule en format [h]mm
Excel 2007 macro rajouter tri + cellule en surbrillance à chaque changement
Supprimer la ligne de la cellule active sauf une cellule
Plus de sujets relatifs à Suppress ligne avec cellule nommée en macro
 > Tous les forums > Forum Bureautique