× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Supprimer la ligne de la cellule active sauf une celluleSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
MARGAR
  Posté le 02/05/2014 @ 11:51 
Aller en bas de la page 
Petit astucien

Bonjour le forum,

Voici la formule pour effacer entièrement la ligne de la cellule active :

ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete

Seulement j'aimerais ne pas supprimer une cellule (d'une même colonne) qui contient une formule.

Cordialement

margar

Publicité
ZenJP
 Posté le 02/05/2014 à 12:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

piste (car eje vais déjeuner ) :déclare une variable CEL, fais une itération, et sers toi du test if Cel.HasFormula then

MARGAR
 Posté le 02/05/2014 à 12:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour ZenJP,

D'abord bon AP.

N'étant pas superdoué dans le vba, je ne sais pas appliquer ta solution.

Cordialement

margar

ZenJP
 Posté le 02/05/2014 à 13:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Sous-Programme à appeler : (pour un tableau de 1000 lignes)

sub effacer_chiffre_uniquement
dim sh as worksheet
dim i as integer
set sh = activesheet
    for i= 1  to 1000
         if not cells(i,3).hasformula then
                 cells(i,3).clearcontents
         end if
      next
end sub
MARGAR
 Posté le 02/05/2014 à 13:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Comment appliquer ta solution au tableau ci-dessous ?

B C D E F G

Cde Cl. Date Noms TOT. Solde Paiement

1 107 15/04/2014 Dubois 100€ 100 € 0.00 €

2 1251 15/04/2014 Moi 50€ 50€ 0.00 €

En cliquant en B2 (cellule active) ligne que je veux supprimer tout en gardant G2 intact !

Merci

Brownie0169
 Posté le 02/05/2014 à 15:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour MARGAR

Code à adapter (efface les cellules A1 à N130, sauf les formules)

Sub Efface_donnees()
Range("A1:N130").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("A2").Select
End Sub

MARGAR
 Posté le 02/05/2014 à 15:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Brownie0169,

Ce que je recherche ce n'est pas d'effacer une plage mais bien une ligne sélectionnée (dans l'ex: la ligne B2).

Cordialement

margar

ZenJP
 Posté le 02/05/2014 à 19:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

B2 n'est pas une ligne, mais une cellule !?

Quant à çà :

En cliquant en B2 (cellule active) ligne que je veux supprimer tout en gardant G2 intact !

comment supprimer une ligne si tu gardes une cellule ?

Désolé mais je jette l'éponge, j'espère que Brownie169 comprendra mieux que moi

MARGAR
 Posté le 02/05/2014 à 19:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

@zenJP,

Tu as raison, je me suis mal expliqué, c'est la ligne 2 que je veux effacer et non supprimer...

Cordialement

margar

Publicité
ferrand
 Posté le 02/05/2014 à 21:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

D'abord, il convient de ne pas confondre effacer et supprimer, ce sont deux choses différentes !

Ensuite, ne pas supprimer ou effacer une cellule sous prétexte qu'elle contient une formule n'est pas vraiment une raison suffisante.

Enfin il faut être un peu plus précis sur ce qui doit déclencher l'effacement ou suppression, exécution manuelle ou action automatique et à partir de quoi.

Tu mets un modèle sur le forum en détaillant ce que tu souhaites, et tu auras des réponses adaptées !

Brownie0169
 Posté le 02/05/2014 à 21:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

MARGAR

Sub Efface_donnees()
Rows("2").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("A2").Select
End Sub

MARGAR
 Posté le 03/05/2014 à 00:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Brownie0169

C'est parfait

Cordialement

margar

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
59,99 €Perceuse à percussion 800W TACKLIFE + 145 outils + malette à 59,99 € avec le code RL2OC4TI
Valable jusqu'au 04 Octobre

Amazon fait une promotion sur un kit d'outils TACKLIFE avec une perceuse à percussion 800W, 145 outils et accessoires (tournevis, marteau, pinces, embouts, vis, clés Allen, forêts, ...) qui passe à 59,99 € grâce au code promo RL2OC4TI alors qu'on le trouve habituellement autour de 120 €. La livraison est gratuite et le tout est livré dans une malette.

Pour profiter de l'offre, passez la souris sur le bandeau Message promotionnel sur la fiche produit et cliquez sur Appliquer à côté de la promotion. Vous pouvez aussi saisir le code RL2OC4TI sur la page de paiement. Le prix passera à 59,99 € sur la page de confirmation de commande.


> Voir l'offre
GratuitJeu PC Rocket League gratuit + bon d'achat de 10 €
Valable jusqu'au 23 Octobre

Epic Game Store offre actuellement le jeu PC Rocket League. Rocket League est un jeu hybride mêlant jeu de football d'arcade et carnage à quatre roues dans d'intenses rencontres à la jouabilité intuitive basée sur la physique. De plus, si vous téléchargez le jeu avant le 23 Octobre, Epic vous offre un bon de 10 € valable sur son catalogue pour un achat de plus de 14,99 € avant le 1er Novembre.


> Voir l'offre
25,99 €Carte mémoire SDXC UHS-I U3 SanDisk Extreme Plus 128 Go (jusqu'à 170 Mo/s) à 25,99 €
Valable jusqu'au 02 Octobre

Amazon fait une superbe promotion sur la carte mémoire SDXC UHS-I U3 SanDisk Extreme Plus d'une capacité de 128 Go qui passe à 25,99 € alors qu'on trouve la carte ailleurs à partir de 45 €. Cette carte mémoire offre des vitesses jusqu'à 170 Mo/s en lecture et 90 Mo/s en écriture et intègre des mécanismes afin de gérer l'usure des cellules de la carte et augmenter ainsi sa durée de vie. Une valeur sûre pour les plus exigeants. Elle résiste aux températures extrêmes, à l'eau, aux chocs et aux rayons X. La carte est fournie avec le logiciel de récupération de données RescuePRO Deluxe qui facilite la récupération des fichiers qui ont été effacés accidentellement. 


> Voir l'offre

Sujets relatifs
copier ligne si cellule vide
EXCEL : défiler l'écran de manière à garder la cellule active au centre ?
Incrémentation automatique d'une cellule à chaque nouvelle ligne
Supprimer le 0 pour rendre la cellule vide
colorer cellule active
Macro Rechercher une ligne à partir d'une cellule
formule pour supprimer les blanc en fin de cellule
supprimer espaces au début du texte d'une cellule
Renvoi à la dernière cellule non vide d'une ligne
hachage cellule / ligne
Plus de sujets relatifs à Supprimer la ligne de la cellule active sauf une cellule
 > Tous les forums > Forum Bureautique