Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for

vincent32 · 28 Février 2023

Bonjour tout le monde,
Je me permet de demander votre car après plusieurs heures de recherches sur la toile je ne trouve pas de solutions ....
je souhaiterai ajouter à cette petite macro une fonction supplémentaire: faire une boucle sur les 40 dernières lignes , si la cellule en colonne D n'est pas une valeur numérique effacer les cellules de A à K de cette même ligne ( je ne souhaite pas effacer la ligne entière car des valeurs en colonne L, M, N, O et P me servent pour des graphiques. )

Sub reset_507()
Dim plage As Range
Dim Cel As Range
With Sheets("507")
Set plage = Range(.Cells(6, 6).End(xlDown)(-40), .Cells(6, 10).End(xlDown)(-2))
For Each Cel In plage
If IsNumeric(Cel) Then
Cel.Value = Cel.Value
Else:
Cel.ClearContents
End If
Next Cel
End With
End Sub

Merci d'avance pour votre aide.

vgendron · 1 Mars 2023

et donc tu ne réponds pas à la question !!!
les 40 dernières lignes sont: ???
43-83
83-123 ou ??????

la macro qui efface les colonnnes A à J si il n'y a pas de valeur numérique en D

VB:

Sub reset_507()
Dim PlageD As Range
Dim Cel As Range
Dim Derlig As Long
Dim Lig40 As Long
Dim Lig As Long
   
With Sheets("507")
    Derlig = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne NON vide de la colonne A
    Lig40 = Derlig - 40 'première ligne des 40 dernières
    Set PlageD = .Range("D" & Lig40 & ":D" & Derlig)       'Plage des 40 dernières lignes de la colonne D
    For Each Cel In PlageD
        If Not IsNumeric(Cel.Value) Or Cel.Value = "" Then      'pas numerique ou vide
            Lig = Cel.Row       'ligne pour RAZ...

Oneida · 28 Février 2023

Bonjour,
Une facon de faire:

VB:

Sub reset_507()
    Dim PlageD As Range
    Dim Cel As Range
    Dim Derlig As Long
    Dim Lig40 As Long
    Dim Lig As Long
   
    With Sheets("507")
        Derlig = .Range("A" & Rows.Count).End(xlUp).Row
        Lig40 = Derlig - 40
        Set PlageD = .Range("D" & Lig40 & ":D" & Derlig)       'Plage colonne D
        For Each Cel In PlageD
            If Not IsNumeric(Cel.Value) Or Cel.Value = "" Then      'pas numerique ou vide
                Lig = Cel.Row       'ligne pour RAZ
                .Range("A" & Lig & ":K" & Lig).ClearContents    'plage RAZ
            End If
        Next Cel
    End With
    Set PlageD = Nothing
End Sub

vgendron · 28 Février 2023

bonjour

avec un truc du genre
for each cel in plage.columns(4)
if cel="" then cel.offset(0,-3).resize(,11).clearcontents

mais;. vu qu'il n'y a pas de fichier...il n'y a pas de test

vincent32 · 28 Février 2023

vgendron à dit:
bonjour

avec un truc du genre
for each cel in plage.columns(4)
if cel="" then cel.offset(0,-3).resize(,11).clearcontents

mais;. vu qu'il n'y a pas de fichier...il n'y a pas de test

Dsl je ne peux pas fournir le fichier trop de donnée sensible venant de mon boulot mais merci je vais essayer demain je te ferai un retour

vincent32 · 28 Février 2023

Oneida à dit:

Bonjour,
Une facon de faire:

VB:

Sub reset_507()
    Dim PlageD As Range
    Dim Cel As Range
    Dim Derlig As Long
    Dim Lig40 As Long
    Dim Lig As Long
  
    With Sheets("507")
        Derlig = .Range("A" & Rows.Count).End(xlUp).Row
        Lig40 = Derlig - 40
        Set PlageD = .Range("D" & Lig40 & ":D" & Derlig)       'Plage colonne D
        For Each Cel In PlageD
            If Not IsNumeric(Cel.Value) Or Cel.Value = "" Then      'pas numerique ou vide
                Lig = Cel.Row       'ligne pour RAZ
                .Range("A" & Lig & ":K" & Lig).ClearContents    'plage RAZ
            End If
        Next Cel
    End With
    Set PlageD = Nothing
End Sub

Merci beaucoup j'essaye ca demain

vincent32 · 1 Mars 2023

Oneida à dit:

Bonjour,
Une facon de faire:

VB:

Sub reset_507()
    Dim PlageD As Range
    Dim Cel As Range
    Dim Derlig As Long
    Dim Lig40 As Long
    Dim Lig As Long
  
    With Sheets("507")
        Derlig = .Range("A" & Rows.Count).End(xlUp).Row
        Lig40 = Derlig - 40
        Set PlageD = .Range("D" & Lig40 & ":D" & Derlig)       'Plage colonne D
        For Each Cel In PlageD
            If Not IsNumeric(Cel.Value) Or Cel.Value = "" Then      'pas numerique ou vide
                Lig = Cel.Row       'ligne pour RAZ
                .Range("A" & Lig & ":K" & Lig).ClearContents    'plage RAZ
            End If
        Next Cel
    End With
    Set PlageD = Nothing
End Sub

bonjour,
la macro fonctionne bien quand je lance via VBA par contre quand je l'affecte à un bouton ca me met erreur 400 ...
Vous avez une idée ?
Sub reset_507()
Dim plage As Range
Dim Cel10 As Range
With Sheets("507")
Set plage = Range(.Cells(6, 6).End(xlDown)(-40), .Cells(6, 10).End(xlDown))
For Each Cel10 In plage
If IsNumeric(Cel10) Then
Cel10.Value = Cel10.Value
Else:
Cel10.ClearContents
End If
Next Cel10
End With

Dim PlageD As Range
Dim Cel As Range
Dim Derlig As Long
Dim Lig40 As Long
Dim Lig As Long

With Sheets("507")
Derlig = .Range("A" & Rows.Count).End(xlUp).Row
Lig40 = Derlig - 40
Set PlageD = .Range("D" & Lig40 & "" & Derlig) 'Plage colonne D
For Each Cel In PlageD
If Not IsNumeric(Cel.Value) Or Cel.Value = "" Then 'pas numerique ou vide
Lig = Cel.Row 'ligne pour RAZ
.Range("A" & Lig & ":J" & Lig).ClearContents 'plage RAZ
End If
Next Cel
End With
Set PlageD = Nothing
End Sub

vincent32 · 1 Mars 2023

Je viens de comprendre :
Mon bouton se trouve sur une feuille différente de la feuille de données je m'explique :
J'ai une première feuille sur laquelle j'ai mes données
Et une seconde feuille graphique ou je traite les données sur un graphique.
Si je met mon bouton sur la feuille de données tout fonctionne bien par contre si mon bouton se trouve sur la feuille graphique (ce dont j'ai besoin) ca me met erreur 400 ...
Y'a t-il une solution pour résoudre ce problème ?

Merci par avance

Oneida · 1 Mars 2023

Re,

Y'a t-il une solution pour résoudre ce problème ?
Vous avez colle le code que j'ai mis dans votre code d'origine??

vincent32 · 1 Mars 2023

Oneida à dit:
Re,

Y'a t-il une solution pour résoudre ce problème ?
Vous avez colle le code que j'ai mis dans votre code d'origine??

oui j'ai juste modifier une lettre :

Lig = Cel.Row 'ligne pour RAZ
.Range("A" & Lig & :J"" & Lig).ClearContents 'plage RAZ

J'ai remplacé la lettre K par la lettre J

Oneida · 1 Mars 2023

Re,
oui j'ai juste modifier une lettre :
Ben, faut juste utiliser le code que j'ai ecrit a la place du votre!

vgendron · 1 Mars 2023

Hello
Sans fichier exemple.. on tourne en rond..
maintenant..
dans ton code initial il y a un problème
quand on utilise with sheets("nomfeuille")

il faut mettre les points "." devant les plages ou cellules..

VB:

Sub reset_507()
Dim plage As Range
Dim Cel As Range
With Sheets("507")
Set plage = .Range(.Cells(6, 6).End(xlDown)(-40), .Cells(6, 10).End(xlDown)(-2))
For Each Cel In plage
If IsNumeric(Cel) Then
Cel.Value = Cel.Value
Else:
Cel.ClearContents
End If
Next Cel
End With
End Sub

vincent32 · 1 Mars 2023

vgendron à dit:
Hello
Sans fichier exemple.. on tourne en rond..
maintenant..
dans ton code initial il y a un problème
quand on utilise with sheets("nomfeuille")

il faut mettre les points "." devant les plages ou cellules..

VB:

Sub reset_507() Dim plage As Range Dim Cel As Range With Sheets("507") Set plage = .Range(.Cells(6, 6).End(xlDown)(-40), .Cells(6, 10).End(xlDown)(-2)) For Each Cel In plage If IsNumeric(Cel) Then Cel.Value = Cel.Value Else: Cel.ClearContents End If Next Cel End With End Sub

est-ce que je peux te l'envoyer en message privé le fichier ? ?

vgendron · 1 Mars 2023

vincent32 à dit:
est-ce que je peux te l'envoyer en message privé le fichier ? ?

Je ne crois pas que ce soit possible
tu peux par contre prendre ton fichier et supprimer ou remplacer les données perso
ou alors en créer un nouveau en y mettant le strict minimum utile pour le pb traité

PS: sur l'image que tu as pris la peine de créer et poster, je ne vois qu'un tableau sans données confidentielles..
poste juste cette feuille

vgendron · 1 Mars 2023

de plus. le code de @Oneida que je salue, fonctionne très bien
quelque soit la page sur laquelle se trouve ton bouton, le code s'execute sur la feuille 507 (gràce à l'utiisation du with)

et comme indiqué par Oneida. tu dois prendre son code à LA PLACE du tien.. et pas en supplément comme tu sembles l'avoir fait dans ton post 6

Oneida · 1 Mars 2023

vgendron à dit:
de plus. le code de @Oneida que je salue, fonctionne très bien
quelque soit la page sur laquelle se trouve ton bouton, le code s'execute sur la feuille 507 (gràce à l'utiisation du with)

et comme indiqué par Oneida. tu dois prendre son code à LA PLACE du tien.. et pas en supplément comme tu sembles l'avoir fait dans ton post 6

Salut, ca roule?

Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for

vincent32

XLDnaute Nouveau

vgendron

Oneida

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

vincent32

XLDnaute Nouveau

vincent32

XLDnaute Nouveau

vincent32

XLDnaute Nouveau

vincent32

XLDnaute Nouveau

Oneida

XLDnaute Impliqué

vincent32

XLDnaute Nouveau

Oneida

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

vincent32

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Oneida

XLDnaute Impliqué

Discussions similaires