Dans mon tableau qui evolu tous les jours de 10 lignes , je dois supprimer
les cellules comprenant les nombres de 11 jusqu'a 60 avec reajustement des
cellules
Exemple ligne 1= 2, 8 , 9, 11, 25, 28 , 48 , 47, 60,61,68,72,80 ligne 2=
7 ,8, 12,45,46,62,90,100,105,105,109,110,114
pour avoir en ligne 1 = 2,8,9,61,68,72,80, ou ligne 2 = 7,8
,62,90,100,105,105,109,110,114
Je les supprime un par un , il y a 25 numéros au depart par ligne auriez
vous une idée
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
Fredo P.
Bonsoir Pierre Sub eclaircir() Dim j%, Cg As Object, Cco As Range, i% Set Cco = Range("A10:x13") ' à adapter For i = 1 To Cco.Rows.Count Set Cg = Range(Cco.Rows(i).Address) For j = Cg.Columns.Count To 0 Step -1 If Cg(1, j + 1) > 10 And Cg(1, j + 1) < 61 Then Cg(1, j + 1).Delete Shift:=xlToLeft End If Next j Next i End Sub "pierre." a écrit dans le message de news:
Bonjour à tous
Dans mon tableau qui evolu tous les jours de 10 lignes , je dois supprimer les cellules comprenant les nombres de 11 jusqu'a 60 avec reajustement des cellules Exemple ligne 1= 2, 8 , 9, 11, 25, 28 , 48 , 47, 60,61,68,72,80 ligne 2= 7 ,8, 12,45,46,62,90,100,105,105,109,110,114 pour avoir en ligne 1 = 2,8,9,61,68,72,80, ou ligne 2 = 7,8 ,62,90,100,105,105,109,110,114 Je les supprime un par un , il y a 25 numéros au depart par ligne auriez vous une idée
un grand merci d'avance
Pierre
Bonsoir Pierre
Sub eclaircir()
Dim j%, Cg As Object, Cco As Range, i%
Set Cco = Range("A10:x13") ' à adapter
For i = 1 To Cco.Rows.Count
Set Cg = Range(Cco.Rows(i).Address)
For j = Cg.Columns.Count To 0 Step -1
If Cg(1, j + 1) > 10 And Cg(1, j + 1) < 61 Then
Cg(1, j + 1).Delete Shift:=xlToLeft
End If
Next j
Next i
End Sub
"pierre." <prtech@free.fr> a écrit dans le message de news:
uIozbrRPIHA.4752@TK2MSFTNGP05.phx.gbl...
Bonjour à tous
Dans mon tableau qui evolu tous les jours de 10 lignes , je dois
supprimer les cellules comprenant les nombres de 11 jusqu'a 60 avec
reajustement des cellules
Exemple ligne 1= 2, 8 , 9, 11, 25, 28 , 48 , 47, 60,61,68,72,80 ligne
2= 7 ,8, 12,45,46,62,90,100,105,105,109,110,114
pour avoir en ligne 1 = 2,8,9,61,68,72,80, ou ligne 2 = 7,8
,62,90,100,105,105,109,110,114
Je les supprime un par un , il y a 25 numéros au depart par ligne auriez
vous une idée
Bonsoir Pierre Sub eclaircir() Dim j%, Cg As Object, Cco As Range, i% Set Cco = Range("A10:x13") ' à adapter For i = 1 To Cco.Rows.Count Set Cg = Range(Cco.Rows(i).Address) For j = Cg.Columns.Count To 0 Step -1 If Cg(1, j + 1) > 10 And Cg(1, j + 1) < 61 Then Cg(1, j + 1).Delete Shift:=xlToLeft End If Next j Next i End Sub "pierre." a écrit dans le message de news:
Bonjour à tous
Dans mon tableau qui evolu tous les jours de 10 lignes , je dois supprimer les cellules comprenant les nombres de 11 jusqu'a 60 avec reajustement des cellules Exemple ligne 1= 2, 8 , 9, 11, 25, 28 , 48 , 47, 60,61,68,72,80 ligne 2= 7 ,8, 12,45,46,62,90,100,105,105,109,110,114 pour avoir en ligne 1 = 2,8,9,61,68,72,80, ou ligne 2 = 7,8 ,62,90,100,105,105,109,110,114 Je les supprime un par un , il y a 25 numéros au depart par ligne auriez vous une idée
un grand merci d'avance
Pierre
Ellimac
Bonjour,
Sans macro : Edition Rechercher 11 Puis Dans Excel Ctrl - Décaler les cellules vers la gauche à répéter pour toutes les occurences
Avec macro : Sub Macro1() For cpt = 11 To 13 n = Application.CountIf(Range("a1").CurrentRegion, cpt) For cpt2 = 1 To n If n <> 0 Then Range("a1").CurrentRegion.Find(What:=cpt, After:¬tiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse _ , SearchFormat:úlse).Select Selection.Delete Shift:=xlToLeft End If Next Next End Sub
Camille
Bonjour à tous
Dans mon tableau qui evolu tous les jours de 10 lignes , je dois supprimer les cellules comprenant les nombres de 11 jusqu'a 60 avec reajustement des cellules Exemple ligne 1= 2, 8 , 9, 11, 25, 28 , 48 , 47, 60,61,68,72,80 ligne 2= 7 ,8, 12,45,46,62,90,100,105,105,109,110,114 pour avoir en ligne 1 = 2,8,9,61,68,72,80, ou ligne 2 = 7,8 ,62,90,100,105,105,109,110,114 Je les supprime un par un , il y a 25 numéros au depart par ligne auriez vous une idée
un grand merci d'avance
Pierre
Bonjour,
Sans macro :
Edition Rechercher 11 Puis Dans Excel Ctrl - Décaler les cellules vers la
gauche
à répéter pour toutes les occurences
Avec macro :
Sub Macro1()
For cpt = 11 To 13
n = Application.CountIf(Range("a1").CurrentRegion, cpt)
For cpt2 = 1 To n
If n <> 0 Then
Range("a1").CurrentRegion.Find(What:=cpt, After:¬tiveCell,
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse _
, SearchFormat:úlse).Select
Selection.Delete Shift:=xlToLeft
End If
Next
Next
End Sub
Camille
Bonjour à tous
Dans mon tableau qui evolu tous les jours de 10 lignes , je dois supprimer
les cellules comprenant les nombres de 11 jusqu'a 60 avec reajustement des
cellules
Exemple ligne 1= 2, 8 , 9, 11, 25, 28 , 48 , 47, 60,61,68,72,80 ligne 2=
7 ,8, 12,45,46,62,90,100,105,105,109,110,114
pour avoir en ligne 1 = 2,8,9,61,68,72,80, ou ligne 2 = 7,8
,62,90,100,105,105,109,110,114
Je les supprime un par un , il y a 25 numéros au depart par ligne auriez
vous une idée
Sans macro : Edition Rechercher 11 Puis Dans Excel Ctrl - Décaler les cellules vers la gauche à répéter pour toutes les occurences
Avec macro : Sub Macro1() For cpt = 11 To 13 n = Application.CountIf(Range("a1").CurrentRegion, cpt) For cpt2 = 1 To n If n <> 0 Then Range("a1").CurrentRegion.Find(What:=cpt, After:¬tiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse _ , SearchFormat:úlse).Select Selection.Delete Shift:=xlToLeft End If Next Next End Sub
Camille
Bonjour à tous
Dans mon tableau qui evolu tous les jours de 10 lignes , je dois supprimer les cellules comprenant les nombres de 11 jusqu'a 60 avec reajustement des cellules Exemple ligne 1= 2, 8 , 9, 11, 25, 28 , 48 , 47, 60,61,68,72,80 ligne 2= 7 ,8, 12,45,46,62,90,100,105,105,109,110,114 pour avoir en ligne 1 = 2,8,9,61,68,72,80, ou ligne 2 = 7,8 ,62,90,100,105,105,109,110,114 Je les supprime un par un , il y a 25 numéros au depart par ligne auriez vous une idée
un grand merci d'avance
Pierre
pierre.
bonjour
Genial la macro, c'est trop fort . merci à vous deux
cdt
"pierre." a écrit dans le message de news:
Bonjour à tous
Dans mon tableau qui evolu tous les jours de 10 lignes , je dois supprimer les cellules comprenant les nombres de 11 jusqu'a 60 avec reajustement des cellules Exemple ligne 1= 2, 8 , 9, 11, 25, 28 , 48 , 47, 60,61,68,72,80 ligne 2= 7 ,8, 12,45,46,62,90,100,105,105,109,110,114 pour avoir en ligne 1 = 2,8,9,61,68,72,80, ou ligne 2 = 7,8 ,62,90,100,105,105,109,110,114 Je les supprime un par un , il y a 25 numéros au depart par ligne auriez vous une idée
un grand merci d'avance
Pierre
bonjour
Genial la macro, c'est trop fort .
merci à vous deux
cdt
"pierre." <prtech@free.fr> a écrit dans le message de news:
uIozbrRPIHA.4752@TK2MSFTNGP05.phx.gbl...
Bonjour à tous
Dans mon tableau qui evolu tous les jours de 10 lignes , je dois
supprimer les cellules comprenant les nombres de 11 jusqu'a 60 avec
reajustement des cellules
Exemple ligne 1= 2, 8 , 9, 11, 25, 28 , 48 , 47, 60,61,68,72,80 ligne
2= 7 ,8, 12,45,46,62,90,100,105,105,109,110,114
pour avoir en ligne 1 = 2,8,9,61,68,72,80, ou ligne 2 = 7,8
,62,90,100,105,105,109,110,114
Je les supprime un par un , il y a 25 numéros au depart par ligne auriez
vous une idée
Genial la macro, c'est trop fort . merci à vous deux
cdt
"pierre." a écrit dans le message de news:
Bonjour à tous
Dans mon tableau qui evolu tous les jours de 10 lignes , je dois supprimer les cellules comprenant les nombres de 11 jusqu'a 60 avec reajustement des cellules Exemple ligne 1= 2, 8 , 9, 11, 25, 28 , 48 , 47, 60,61,68,72,80 ligne 2= 7 ,8, 12,45,46,62,90,100,105,105,109,110,114 pour avoir en ligne 1 = 2,8,9,61,68,72,80, ou ligne 2 = 7,8 ,62,90,100,105,105,109,110,114 Je les supprime un par un , il y a 25 numéros au depart par ligne auriez vous une idée