Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

V

vincent32

XLDnaute Nouveau
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.
 
Solution
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...
Trier par date Trier par votes
V

vincent32

XLDnaute Nouveau
vgendron à dit:
oui effectivement, j'avais pas repéré que le set cel se faisait à chaque tour de boucle
Cliquez pour agrandir...
vgendron à dit:
pour la macro Reset_507
tu peux bien la lancer de n'importe quel bouton de n'importe quelle feuille, ca n'a pas d'importance
Cliquez pour agrandir...
sur mon fichier complet ca ne fonctionnais pas, je viens de trouver une solution qui le fait fonctioner au début de la macro de oneida j'ai rajouté ca :
Worksheets("507").Activate
 
Vote positif 0 Vote négatif
V

vincent32

XLDnaute Nouveau
vgendron à dit:
Bah NON justement !! le with sheets("507") EVITE d'avoir à activer la feuille

Reprend la macro post 24 (il manquait un point dans la macro de Oneida)
Cliquez pour agrandir...
Même avec le point qui manquais comme tu disais ca fonctionne pas .....
J'ai utilisé du coup sheets("507").select au début de la macro de oneida et a la fin sheets("3-Graph507"). select pour revenir sur mon graphique .....comme ca elle fonctionne la macro je vois pas d'autre solution .....

Je te remet la macro que oneida ma fournis dis moi si tu vois une erreur ...


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("B" & Lig40 & ":B" & 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
 
Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc
bon. ca me saoule..
tu ne prend pas en compte ce qu'on te dit, ni le dernier code
dans la macro que tu viens de poster il y a DEUX erreurs
derlig==> manque un point devant le rows.count
set PlageD ==> ca prend la colonne B et pas la colonne D
 
Vote positif 0 Vote négatif
V

vincent32

XLDnaute Nouveau
vgendron à dit:
bon. ca me saoule..
tu ne prend pas en compte ce qu'on te dit, ni le dernier code
dans la macro que tu viens de poster il y a DEUX erreurs
derlig==> manque un point devant le rows.count
set PlageD ==> ca prend la colonne B et pas la colonne D
Cliquez pour agrandir...
Sincèrement désolé ... ca fonctionne parfaitement avec le post 24 tu à raison, sincèrement désolé de t'avoir fait perdre ton temps
J'avais pas recopié le post 24 mais juste rajouté le .

En tout cas vraiment merci pour ta patiente ( et dieu sait qu'il t'en fallu ) et ta pédagogie et un grand merci à oneida aussi
 
Vote positif 0 Vote négatif
V

vincent32

XLDnaute Nouveau
une dernière question, c'est quoi l'intérêt de le faire sur un module comme tu le fait et pas sur les feuilles comme je fait ?
 
Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc
l'intérêt c'est que le module standard est fait pour ca. rassembler les macros qui sont appelées ici où la
(pas vérifié, mais ca permet aussi d'appeler la macro sans avoir à préciser le code feuille comme tu l'as fait sur tes "boutons" shapes

et dans la feuille, on place plutot les codes "évènements" qui se déclenchent uniquement sur la feuille concernée
 
Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc
un mot sur la table structurée que j'ai mise dans ta feuille 507

clique n'importe ou à partir de la ligne 6
tu as un nouveau menu "Conception de table" qui apparait
va dedans
à gauche; Nom du tableau = j'ai mis: T_BDD

une table permet
1) d'avoir une table de données "propre" et jolie
==> tu choisis le style
2) si tu ajoutes une donnée juste en dessous: la table s'adapte automatiquement ==> les formules et MFC sont propagées à la nouvelle ligne

3) dans le code VBA: (Table = ListObjects"), la manipulation des données est facilitée
plus besoin de lastLine=range(".....").row..;
on a accès directement par listrows.count

4) tu peux déplacer la table dans la feuille (vers le bas, ou la droite ou ...) le code n'a pas besoin d'etre modifié (s'il a été écrit correctement)

un peu de lecture ici

The VBA Guide To ListObject Excel Tables

For a data analyst, Excel Tables are a necessity! They are the most efficient way to organize your raw data and refer to data that contracts or expands on a regular basis. Likewise, Excel tables can be extremely useful in combination with VBA.
www.thespreadsheetguru.com

Tableaux structurés Excel

Tableaux structurés Excel
fauconnier.developpez.com
 
Vote positif 0 Vote négatif
V

vincent32

XLDnaute Nouveau
ok je regarder ca d'un peu plus près ca m'intéresse merci bcp bonne continuation
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Résolu(e)
XL 2021 Additionner résultats d'une boucle for en vba
Réponses
9
Affichages
383
Claudinedu13
C
  • Résolu(e)
XL 2010 Module de classe avec Dictionary
3 4 5
Réponses
66
Affichages
3 K
patricktoulon
  • Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
491
AtTheOne
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
307
eric72
E
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
545
escudo
E
U
  • Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
303
Phil69970
  • Résolu(e)
XL 2016 Erreur dans code VBA
4 5 6
Réponses
76
Affichages
2 K
patricktoulon
L
  • Question
VBA : erreur sur boucle
Réponses
2
Affichages
267
Latias
L
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
337
job75
S
  • Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
578
salma_hayek
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…