Chiffres enlever auto

Bonjour le Forum,

Un sujet qui me complique la vie, je cherche à enlever les chiffres de la colonne A automatiquement, je vous envois un fichier test

Par avance, merci pour vos réponses

Bien cordialement

bonsoir,

une proposition via une macro

Sub aargh()
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Not Left(Cells(i, 1), 1) Like "#" Then
            j = j + 1
            Cells(j, "E") = Cells(i, 1)
        End If
    Next i
End Sub

Bonjour

ou

Sub Modifie()
Dim Cel As Range
For Each Cel In Range("A2", Range("A2").End(xlDown))
If IsNumeric(Cel) Then
Cel.ClearContents
End If
Next Cel
End Sub

Cordialement

Salut Ericp,

voici 2 macros pour ton problème.

SelectionChange : si tu cliques en [A1], toute la colonne A est traitée en 1 fois

Change : efface automatiquement toute valeur numérique dès validation de l'encodage.

Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
'
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    If IsNumeric(Target.Value) Then Target.Value = ""
End If
'
Application.EnableEvents = True
'
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Target.Address = [A1].Address Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    '
    For x = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If IsNumeric(Cells(x, 1)) Then Cells(x, 1) = ""
    Next
    '
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If
'
End Sub

A+

Bonjour Amadéus!

La place m'est heureuse à vous y rencontrer!

Re

Merci à tous les deux, je vais tester demain

Bien cordialement

ericp

Bonjour curulis57

Quand je veux mettre affecter tes macro, en click droit sur le bouton elles n'apparaissent pas

Bien cordialement

ericp

Je ne comprends pas "SelectionChange"

ou faut-il mettre cette phrase de code

Salut Ericp,

ne cherche pas dans un Module1, c'est le code de la Feuil1, directement.

• Worksheet_SelectionChange
• Worksheet_Change

sont des événements et interceptés comme tels par la macro qu'ils hébergent!

A+

Bonjour,

J'ai un soucis, quand je mets la macro, cela ne fonction qu'a moitié je m'explique, j'ai une macro pour enlever les lignes blanches, une autre pour centrer et mettre la bonne typo, est ce qu'il ne serait pas judicieux de mettre toute ces macros en une seule parce que individuellement elle fonctionne, je suis un peu perdu

Bien cordialement

ericp

Salut Ericp,

je n'avais pas compris que tu voulais supprimer les lignes!

Envoie tes macros, un fichier plus complet, histoire d'en percevoir la réalité et des explications claires de ce que tu veux!

A+

bonsoir,

une nouvelle proposition de macro qui supprime les lignes

Sub aargh()
    For i = Cells(Rows.Count, 1).End(xlUp).Row to 1 step -1
        If  IsNumeric(Cells(i, 1)) Then rows(i).delete shift:=xlup
    Next i
End Sub

Re

Je mets en pièce jointe avec un commentaire

Merci à tous

Bien cordialement

ericp

Bonjour h2so4

Ton code ne fonctionne pas, je ne sais pas d'ou cela vient

Bien cordialement

ericp

Bonjour,

j'ai corrigé le code, voir plus haut.

Re,

ça m'enlève toutes les autres données, j'ai laissé un message sur la feuille test

Bien cordialement

ericp

bonjour,

Sub aargh()
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Not IsNumeric(Cells(i, 1)) Then
            Cells(i + 1, 1) = Cells(i, 1)
            Rows(i).Delete shift:=xlUp
        End If
    Next i
End Sub