Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2682 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Effacé contenu ciblé dans des cellules

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Effacé contenu ciblé dans des cellules

n°2213529
micka671
Posté le 13-12-2013 à 11:12:29  profilanswer
 

Bonjour,
 
J'aimerais effacé toutes les ligne ou il y a marqué " -1 " dans la colonne B dans mon classeur, j'ai essaye plusieurs codage mais j'ai jamais réussie.
 
Si quelqu'un aurait une solution... :)  
 
Bonne journée et merci d'avance


Message édité par micka671 le 13-12-2013 à 11:26:12

---------------
Cordialement
mood
Publicité
Posté le 13-12-2013 à 11:12:29  profilanswer
 

n°2213535
MaybeEijOr​Not
but someone at least
Posté le 13-12-2013 à 11:42:09  profilanswer
 

Question préliminaire, as-tu réellement besoin d'effacer complètement ces lignes? Parce que l'utilisation d'un filtre permet de faire cela, mais les données ne sont pas perdues.

n°2213555
micka671
Posté le 13-12-2013 à 12:48:20  profilanswer
 

Oui oui les effacer complétement :)

n°2213563
MaybeEijOr​Not
but someone at least
Posté le 13-12-2013 à 13:25:44  profilanswer
 

Code :
  1. Sub supprLignes()
  2.     Dim i As Long
  3.     For i = 1 To Range("B1" ).End(xlUp).Row Step 1
  4.         If Cells(i, 2).Value = -1 Then
  5.             Rows(i).Delete
  6.             i = i - 1
  7.         End If
  8.     Next i
  9.    
  10. End Sub

n°2213573
micka671
Posté le 13-12-2013 à 14:06:28  profilanswer
 

Merci beaucoup, mais la pour l'instant ca ne m'efface que dans la cellule B1;

n°2213578
MaybeEijOr​Not
but someone at least
Posté le 13-12-2013 à 14:16:05  profilanswer
 

Oups, trompé de sens :
 

Code :
  1. Sub supprLignes()
  2.     Dim i As Long
  3.     For i = 1 To Range("B1" ).End(xlDown).Row Step 1
  4.         If Cells(i, 2).Value = -1 Then
  5.             Rows(i).Delete
  6.             i = i - 1
  7.         End If
  8.     Next i
  9.    
  10. End Sub


Message édité par MaybeEijOrNot le 13-12-2013 à 14:16:22
n°2213586
micka671
Posté le 13-12-2013 à 14:44:06  profilanswer
 

Niquel merci beaucoup :)  
 
Et si je veux effacé et pas supprimé les ligne y a quoi a changer  ? ( oui je suis chiant.. :) )

n°2213607
MaybeEijOr​Not
but someone at least
Posté le 13-12-2013 à 15:55:52  profilanswer
 

Tu remplaces :
 

Code :
  1. Rows(i).Delete


 
par :
 

Code :
  1. For j = 1 To Cells(i,1).End(xlRight).Column Step 1
  2.     Cells(i,j).value = ""
  3. Next j


 
Ne pas oublier de déclarer j :
 

Code :
  1. Dim j As Long

n°2213609
micka671
Posté le 13-12-2013 à 15:57:25  profilanswer
 

Niquel Merci beaucoup :)
 
Bonne soirée et bonne fête :)

n°2213612
MaybeEijOr​Not
but someone at least
Posté le 13-12-2013 à 16:06:07  profilanswer
 

Ce n'est pas ma fête aujourd'hui. :non:  
 
J'ai certes compris ce que tu voulais dire mais comme on est dans la partie programmation, il faut se rendre compte qu'une bête faute comme celle là ne pardonne pas. :D


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Effacé contenu ciblé dans des cellules

 

Sujets relatifs
Accèder au contenu d'une balise <svgJavascript contenu fenêtre contextuelle?
nommer le contenu d'un nombre de feuilles aléatoire [XL2013]Mon serveur Nas veut pas récupérer le contenu du dossier à distance ?
Sélection de plusieurs cellules : de x à la dernière cellule non vide[ASP.NET] Modifier contenu page web sans programmation
Inclure en php un texte contenu dans un fichier dropbox[Excel] Copier le contenu de plusieurs fichier Excel dans un seul
Verrouiller les cellules de tous les onglets d'un classeur.Recuperer le contenu d'une cellule avec jxl
Plus de sujets relatifs à : Effacé contenu ciblé dans des cellules


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR