Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

fonction remplacer valeur

5 réponses
Avatar
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

5 réponses

Avatar
philou36
On 5 jan, 22:58, "pierre." wrote:
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.
Avatar
Jacky
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." a écrit dans le message de news:

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



Avatar
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 !!!!
Avatar
Jacky
Voir ici:
http://www.cijoint.fr/cjlink.php?file=cj200901/cijaWqbfbv.xls

--
Salutations
JJ


"Jacky" a écrit dans le message de news:
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." a écrit dans le message de news:

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







Avatar
pierre.
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" a écrit dans le message de news:

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 !!!!