Discussion :

[skipeemed]

Bonjour,

Je veux modifier dans une plage d'un tableau toutes les cellules qui contiennent "#N/A" en "N/A" voilà le code que j'ai utilisé mais ça ne marches pas:

Code :

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

1
2
3
4
5
6
7
8
Range("a65536").Select
    dernière_ligne2 = Selection.End(xlUp).Row
    Range("A2:R" & dernière_ligne2).Select
    For Each Cell In Selection
    If UCase(Cell.Text) Like "#N/A" Then
    Cell.Text = "N/A"
    End If
    Next

cdt,
SKIP

[Michel_M]

Bonjour

Code :

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

1
2
3
If Application.ISNA(Range("C2")) Then
    cell = "N/A"
End If

[MarcelG]

Bonjour à tous,

Ou, plus généralement,

Code :

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

1
2
3
4
5
Sub Macro1()
    Dim mescellules As Range
    Set mescellules = Range("A2:R" & Range("R65000").End(xlUp).Row)
    mescellules.Replace What:="#", Replacement:=""
End Sub

Tout dépend si le #N/A est le résultat d'une formule ou d'un collage spécial de valeurs.

Cordialement

Marcel

[skipeemed]

Bonjour,
Voilà, j'ai utilisé ce code et ça a marché.

Code :

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

1
2
3
4
5
6
7
 
    Range("a65536").Select
    dernière_ligne = Selection.End(xlUp).Row
    Range("A2:R" & dernière_ligne).Select
    Selection.Replace What:="#", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Merçi comme même les amis vos codes m'ont beaucoup aidé.
cdt,
SKIP

[MarcelG]

Bonsoir,

Comme déjà dit, par d'autres et humblement par moi-même, VBA ne nécessite pas le process selection + action, que l'on obtient par l'enregistreur.

En effet, la méthode action suffit. On obtient un code plus léger donc plus lisible, et sans doute plus performant.

Ici, tu peux affecter celle de replace à tes cellules DIRECTEMENT.

Code :

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

Range(macellule).Replace.....

Cordailement.

Marcel