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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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.
On 5 jan, 22:58, "pierre." <prt...@free.fr> 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.
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
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
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." <prtech@free.fr> a écrit dans le message de news:
OIDWJD4bJHA.1528@TK2MSFTNGP03.phx.gbl...
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
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
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 !!!!
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"
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"
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
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eaT%23mL9bJHA.1676@TK2MSFTNGP03.phx.gbl...
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." <prtech@free.fr> a écrit dans le message de news:
OIDWJD4bJHA.1528@TK2MSFTNGP03.phx.gbl...
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
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
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 !!!!
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
C0DF5F39-0FC4-4B58-8F7F-B63FE011DDD7@microsoft.com...
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"
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"