Suppression des nombres inutiles

Le
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
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
Fredo P.
Le #5100451
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."
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
Le #5100351
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





pierre.
Le #5096921
bonjour

Genial la macro, c'est trop fort .
merci à vous deux

cdt

"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




Publicité
Poster une réponse
Anonyme