Plage variable + ajout d'une nouvelle ligne

Question

Bonjour,

Etant novice en vba, je fais appelle à vous, car je suis confrontée à une véritable casse-tête.

J'aimerais corriger le code ci-dessous pour qu'il prenne en compte si de nouvelles lignes sont ajoutées.

Sub testselectionvariable()
Dim Rng As Range
Set Rng = Range("D4:AH59")
Rng.Select
For Each Rng In Selection
If Rng = "" Then Rng = "0"
Next
End Sub

Idem pour celui-ci

Sub Selecclear_test()
Dim Rng As Range
Set Rng = Range("D4:AH59")
Rng.Select
For Each Rng In Selection
If Rng = "0" Then Rng.ClearContents
Next
End Sub

Quelqu'un peux-t-il m'aider, s'il vous plait ?

Merci
Windows / Edge 108.0.1462.76

yg_be · Answer

bonjour,

Cette suggestion ne te convient pas?

f894009 · Answer

Bonjour

Elle vous le dira ou pas.

Sybille8484:

Sub testselectionvariable()
    Dim Rng As Range, Cel As Range, Derlig As Long
    
    On Error GoTo Fin
    Application.ScreenUpdating = False      'fige rafraichissement ecran pour plus de rapidite
    Derlig = Range("D" & Rows.Count).End(xlUp).Row  'derniere cellule non vide colonne D
    Set Rng = Range("D4:AH" & Derlig)
    For Each Cel In Rng
        If Cel = "" Then Cel = "0"
    Next
Fin:
    Application.ScreenUpdating = True       'rafraichissement ecran Ok
End Sub

Sub Selecclear_test()
    Dim Rng As Range, Cel As Range, Derlig As Long
    
    On Error GoTo Fin
    Application.ScreenUpdating = False      'fige rafraichissement ecran pour plus de rapidite
    Derlig = Range("D" & Rows.Count).End(xlUp).Row  'derniere cellule non vide colonne D
    Set Rng = Range("D4:AH" & Derlig)
    For Each Cel In Rng
        If Cel = "0" Then Cel.ClearContents
    Next
Fin: 'retablir le rafraichissement en cas d'erreur
    Application.ScreenUpdating = True   'rafraichissement ecran Ok
End Sub

Plage variable + ajout d'une nouvelle ligne

2 réponses

Discussions similaires

Newsletters