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

[vincent32]

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.

 

[Oneida]

Bonjour,
Une facon de faire:

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]

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]

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]

Bonjour,
Une facon de faire:

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]

Bonjour,
Une facon de faire:

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]

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]

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]

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]

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

 

[vgendron]

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..

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]

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..

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]

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]

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]

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?