Discussion :

[nubed]

Bonjour a tous,

J’essaye depuis quelques jours de faire une macro me permettant de supprimer x nombres de lignes (dans mon cas les 7 premières sans critères spécifiques). Une suppression pure et simple

J’aimerais également supprimer les 7 premiers caractères de la colonne A : à la place de 3403-001108725 je veux avoir 1108725 et le plus important est qu’il soit en format nombre.
J’ai déjà bricole une macro pour cette deuxième partie bien qu’elle ne me convienne pas tout à fait car elle me supprime aussi les caractères du titre de ma colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Suppression()
  Columns(1).Insert
  With Range("A1:A" & Range("B" & Rows.Count).End(xlUp).Row)
    .Formula = "=MID(RC2,6,100)"
    .Value = .Value
  End With
  Columns(2).Delete
End Sub

Ces fichiers Excel sont destinés à être importe sous Access d’où la suppression des premières inutiles, et la conversion en format nombre de la colonne A

Bien cordialement,

[bboy-eazy]

bonjour,

pour le format nombre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.NumberFormat = "0"

pour enlever les 7 premier chiffre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro1()
 
Dim Nc, Cell As Range
    For i = 1 To 10
        Worksheets("Test").Cells(i, 1).Value = Trim(Worksheets("Test").Cells(i, 1).Value) 'supprime espaces
        Nc = Len(Worksheets("Test").Cells(i, 1)) 'compte les caractères
        Worksheets("Test").Cells(i, 1).Value = Right(Worksheets("Test").Cells(i, 1).Value, Nc - 7)
    Next i
End Sub

bonne journée

[Marc-L]

Bonjour,

pour enlever la première partie délimitée par un caractère des données contigües d'une colonne,
il est bien plus rapide d'utiliser une variable tableau et la fonction Split :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Demo()
                         VA = [A1].CurrentRegion.Columns(1).Value
    For R& = 2 To UBound(VA)
        SP = Split(VA(R, 1), "-"):  If UBound(SP) > 0 Then VA(R, 1) = SP(1)
    Next
            [A1].Resize(UBound(VA)).Value = VA:  End
End Sub

Sans souci avec une colonne au format Standard …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[mercatog]

Pour la #1, tu étais presque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Suppression()
 
Application.ScreenUpdating = False
With Worksheets("Feuil2")
    .Columns(1).Insert
    .Range("B1").Copy .Range("A1")
    With .Range("A2:A" & .Range("B" & .Rows.Count).End(xlUp).Row)
        .FormulaR1C1 = "=MID(RC2,6,100)"
        .Value = .Value
    End With
    .Columns(2).Delete
End With
End Sub

PS: J'ai ajouté la feuille par précaution et habitude

[nubed]

Merci pour votre aide.

Je débute en VBA du coup j’ai récupéré un code que j’ai « modifie ».

Pourriez-vous me mettre sur la voie pour la suppression des premières lignes, j’ai aussi trouvé des codes se rapprochant mais n’ayant aucune base je ne trouve pas la bonne modification.

Dans les exemples que je trouve il y a tout un tas de critères alors que je souhaite faire une suppression pure et simple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Supppr()
    Dim i As Long
    Dim Plage As String
 
    For i = 1 To 7
            Rows(Plage).Delete Shift:=xlUp
            i = i - 1
    Next i
End Sub

Merci d’avance

[Marc-L]

Pour un besoin aussi simple, ne pas oublier l'Enregistreur de macros, le code est livré sur un plateau !

Suffit de sélectionner toutes les lignes puis les supprimer en une fois, pas besoin de boucle …