Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Suppression des nombres inutiles

Suppression des nombres inutiles

3 réponses
Avatar
pierre.
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
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




Avatar
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





Avatar
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