fonction remplacer valeur

Le
pierre.
Bonjour et bonne Année

J'ai un tableau dans lequel je dois effacé des données.
Exemple je supprime tous les nombres entre 12 et 35
Actuellement j'utilise la fonction rechercher, puis chiffre par chiffre je
remplace par "rien"
Ensuite je trie ligne par ligne et non par colonne afin de remettre de
l'ordre à cause des cellules vides
Cela fonctionne mais c'est très laborieux.
Auriez vous une idée ?
merci pour votre aide

Pierre
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
philou36
Le #18312611
On 5 jan, 22:58, "pierre."
Bonjour et bonne Année

J'ai un tableau dans lequel je dois effacé des données.
Exemple je supprime tous les nombres entre 12 et 35
Actuellement j'utilise la fonction rechercher, puis chiffre par chiffre j e
remplace par "rien"
Ensuite je trie ligne par ligne et non par colonne  afin de remettre de
l'ordre à cause des cellules vides
Cela fonctionne mais c'est très laborieux.
Auriez vous une idée ?
merci pour votre aide

Pierre



Bonjour,

Tu pourrais peut être poser des filtres et personnaliser l'affichage
avec supérieur ou égale à 12 et inférieur ou égale à 35 et effa cer
tout ce qui s'affichera.

Restant à ta disposition.
Jacky
Le #18312761
Bonne année 2009

Ceci peut-être
Le tableau supposé en [a2:h20]
'------------------
Sub jj()
Application.ScreenUpdating = False
Set tableau = [a2:h20] ' *****a adapter
col = tableau.Columns.Count
For lig = 2 To tableau.Rows.Count
For Each c In Range(Cells(lig, 1), Cells(lig, col))
If c.Value > 12 And c.Value < 35 Then c.Value = ""
Next
Range(Cells(lig, 1), Cells(lig, col)).Sort Key1:Îlls(lig, 1),
Order1:=xlAscending, MatchCase:úlse, Orientation:=xlLeftToRight
Next
End Sub
'----------------

--
Salutations
JJ


"pierre."
Bonjour et bonne Année

J'ai un tableau dans lequel je dois effacé des données.
Exemple je supprime tous les nombres entre 12 et 35
Actuellement j'utilise la fonction rechercher, puis chiffre par chiffre je
remplace par "rien"
Ensuite je trie ligne par ligne et non par colonne afin de remettre de
l'ordre à cause des cellules vides
Cela fonctionne mais c'est très laborieux.
Auriez vous une idée ?
merci pour votre aide

Pierre



FFO
Le #18312981
Salut pierre et bonne année

Ce code devrait faire :

Donnée = InputBox("Veuillez saisir la donnée à effacer", "Donnée à effacer")
For Each c In Range("A1", "AY" & Range("A65535").End(xlUp).Row)
If "" & c & "" = Donnée Then
c.Value = ""
If Ligne = c.Row Then
Vide = Vide & "," & c.Address
Else
Vide = Vide & "/" & c.Address
End If
Ligne = c.Row
End If
Next
On Error Resume Next
For i = 0 To UBound(Split(Vide, "/"))
Range(Split(Vide, "/")(i)).Delete shift:=xlToLeft
Next

il efface et supprime les cellules qui possèdent la valeur saisie dans une
boîte de dialogue

La ligne :

For Each c In Range("A1", "AZ" & Range("A65535").End(xlUp).Row)

est à adapter en fonction des colonnes à prendre en compte ici jusqu'à "AZ"

Fais des essais et dis moi !!!!
Jacky
Le #18313121
Voir ici:
http://www.cijoint.fr/cjlink.php?file=cj200901/cijaWqbfbv.xls

--
Salutations
JJ


"Jacky" eaT%
Bonne année 2009

Ceci peut-être
Le tableau supposé en [a2:h20]
'------------------
Sub jj()
Application.ScreenUpdating = False
Set tableau = [a2:h20] ' *****a adapter
col = tableau.Columns.Count
For lig = 2 To tableau.Rows.Count
For Each c In Range(Cells(lig, 1), Cells(lig, col))
If c.Value > 12 And c.Value < 35 Then c.Value = ""
Next
Range(Cells(lig, 1), Cells(lig, col)).Sort Key1:Îlls(lig, 1),
Order1:=xlAscending, MatchCase:úlse, Orientation:=xlLeftToRight
Next
End Sub
'----------------

--
Salutations
JJ


"pierre."
Bonjour et bonne Année

J'ai un tableau dans lequel je dois effacé des données.
Exemple je supprime tous les nombres entre 12 et 35
Actuellement j'utilise la fonction rechercher, puis chiffre par chiffre
je remplace par "rien"
Ensuite je trie ligne par ligne et non par colonne afin de remettre de
l'ordre à cause des cellules vides
Cela fonctionne mais c'est très laborieux.
Auriez vous une idée ?
merci pour votre aide

Pierre







pierre.
Le #18320861
bonsoir

merci à vous tous.
Le fichier joint fonctionne parfaitement, tres pratique la fonction
annulation.
Idem pour le code avec la boite de dialogue, superbe

merci à vous trois pour votre aide

Pierre




"FFO"
Salut pierre et bonne année

Ce code devrait faire :

Donnée = InputBox("Veuillez saisir la donnée à effacer", "Donnée à
effacer")
For Each c In Range("A1", "AY" & Range("A65535").End(xlUp).Row)
If "" & c & "" = Donnée Then
c.Value = ""
If Ligne = c.Row Then
Vide = Vide & "," & c.Address
Else
Vide = Vide & "/" & c.Address
End If
Ligne = c.Row
End If
Next
On Error Resume Next
For i = 0 To UBound(Split(Vide, "/"))
Range(Split(Vide, "/")(i)).Delete shift:=xlToLeft
Next

il efface et supprime les cellules qui possèdent la valeur saisie dans une
boîte de dialogue

La ligne :

For Each c In Range("A1", "AZ" & Range("A65535").End(xlUp).Row)

est à adapter en fonction des colonnes à prendre en compte ici jusqu'à
"AZ"

Fais des essais et dis moi !!!!



Publicité
Poster une réponse
Anonyme