× 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
25,35 €Carte mémoire microSDXC SanDisk 128 Go pour Nintendo Switch à 25,35 €
Valable jusqu'au 24 Novembre

Amazon propose actuellement la carte mémoire microSDXC 128 Go pour Nintendo Switch à 25,35 € alors qu'on la trouve ailleurs à partir de 35 €. Cette carte mémoire offre des vitesses jusqu'à 100 Mo/s et vous permet d'ajouter 128 Go de stockage pour vos jeux sur la console Nintendo Switch. 


> Voir l'offre
209 €Ecouteurs sans fil Apple AirPods Pro avec réduction active du bruit à 209 €
Valable jusqu'au 25 Novembre

Amazon propose actuellement les écouteurs sans fil Apple AirPods Pro avec boîtier de charge sans fil à 209 € livrés gratuitement. On les trouve ailleurs à 259 €. La livraison est gratuite. Les AirPods Pro signés Apple offrent une expérience audio supérieure en combinant Bluetooth 5.0, confort permanent, technologie de réduction de bruit active et une belle autonomie de 24 heures. Accompagnés d'un boîtier de charge sans fil, ils s'inviteront idéalement dans votre quotidien.


> Voir l'offre
56,23 €SSD Samsung 860 EVO 500 Go à 56,23 € livré
Valable jusqu'au 25 Novembre

Amazon Allemagne fait une promotion sur le SSD Samsung 860 EVO 500 Go qui passe à 51,62 €. Comptez 4,61 € pour la livraison en France soit un total de 56,23 € livré alors qu'on le trouve ailleurs à partir de 70 €. Ce SSD offre des vitesses de 560 Mo/s en lecture et 520 Mo/s en écriture. Il est garanti 5 ans. Une bonne affaire.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> 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