Plage variable + ajout d'une nouvelle ligne

Sybille8484 -  
f894009 Messages postés 17272 Date d'inscription   Statut Membre Dernière intervention   -

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

A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17272 Date d'inscription   Statut Membre Dernière intervention   1 713
 

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
1
Sybille8484
 

Merci pour votre aide ^^ :) 

Je test, et je reviens vers vous pour vous dire.

Merci encore

0
Sybille8484
 

Merci pour le code. 

J'ai testé, mais il ne prends pas toute la plage. il s'arrête à AH40

Une idée ?

0
f894009 Messages postés 17272 Date d'inscription   Statut Membre Dernière intervention   1 713 > Sybille8484
 

Bonjour,

DAns votre code je prends la derniere cellule colonne D, mais quelle colonne peut etre la plus longue?

0
Sybille8484 > f894009 Messages postés 17272 Date d'inscription   Statut Membre Dernière intervention  
 

Merci pour votre aide. Le code fonctionne parfaitement..

Je devais juste remplir ma première cellule de la dernière ligne de la colonne D

Merci beaucoup ????

0
Sybille8484
 

Bonsoir, 

Pouvez vous m'expliquer comment adapter le code clearcontents à l'ensemble des feuilles de mon classeur Sheets(Array("JANV", "FEV", "MARS", "AVRIL",  "MAI", "JUIN", "JUIL", "AOUT", "SEPT",  "OCT",  "NOV", "DEC"))

Car je n'arrive pas à l'appliquer à l'ensemble de mes feuilles.

Pris séparément le code fonctionne en adoptant la dernier colonne pour les mois de 30 jours ("D4: AG") et le mois de février ("D4:AE). 

Mais je ne parviens pas à créer qu'une seule macro pour l'ensemble du classeur. 

En vous remerciant par avance 

0
Réponse 2 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 583
 

bonjour,

Cette suggestion ne te convient pas?
0
Sybille8484
 

Bonjour yg_be

En faites, votre première solution était parfaite tant que je ne rajoutais pas de nouvelle ligne. 

Comme expliqué, quand j'insère une nouvelle ligne le code ne prends pas en compte la nouvelle ligne... 

Merci pour votre aide et vos conseils.

La découverte du VBA est passionnante, j'ai hâte d'apprendre :)

0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583 > Sybille8484
 

Ma suggestion, c'est de ne traiter que les lignes blanches.  Cela ne convient pas?

1

Discussions similaires

Qui sont les personnes dans mon ajout rapide de Snapchat ?
lobino68 -
m_manolo25 -

21 réponses
Comment savoir comment on nous a ajouté sur Snap
Laura -
Lob6 -

15 réponses
Darkino se métamorphose en DarkiWorld avec un nouveau design et plus de contenus
LaRedaction -
Pierr10 -

12 réponses
Retrouver l'image originale après avoir fait des modifications ?
Raven -
Asta972155 -

10 réponses