Autres macro pour effacer quelques lignes specifiques

hervoul

XLDnaute Occasionnel
Hello,
Je voudrais (si possible) créer une macro qui puisse effacer des lignes : je vous envoie le fichier ci dessous.
Merci bcp par avance...
Hervé
 

Pièces jointes

  • fiche évaluation.xls
    111 KB · Affichages: 9

GALOUGALOU

XLDnaute Accro
bonjour hervoul, bonjour le forum

le problème aurait pu être solutionné avec l'enregistreur de macro

Sub effacer()
Sheets("fiche 9 minutes").Select 'adapter au nom de l'onglet
Range("C2:p2,C9:p9,C16:p16").Select
Selection.ClearContents
End Sub
cordialement
galougalou
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

Pour info (=> GALOUGALOU)
Pour éviter les émoticônes, il y a les balises BBCODE ;)
VB:
Sub effacer()
Sheets("fiche 9 minutes").Select 'adapter au nom de l'onglet
Range("C2:p2,C9:p9,C16:p16").Select
Selection.ClearContents
End Sub
ou celle-ci
reprise de la ligne range
Range("C2:p2,C9:p9,C16:p16").Select
 

GALOUGALOU

XLDnaute Accro
bonjour hervoul bonjour le forum
peut-etre qu'à la place de o alphabetique vous avez saisi 0 numérique ?
cordialement galougalou

PS vu la répétition de la tache une boucle serait la bienvenue pour simplifier le code vba
pour l'instant je n'ai pas la solution, je regarde ça ce soir.
 

GALOUGALOU

XLDnaute Accro
bonjour hervoul
une solution avec boucle
en colonne x j'ai posé une formule, attention de ne pas la détruire. les cases concernées sont orangées. libre à vous de la masquer, en écriture blanche par exemple
si la valeur de cette cellule est supérieure ou égale a 1 les valeurs entre colonne d et colonne o sont supprimées.
(on peux certainement se passer de la formule mais à ce jour je ne sais pas faire !!)(je suis autodidacte)
cordialement
galougalou
 

Pièces jointes

  • Copie de fiche évaluationV2.xls
    178 KB · Affichages: 2

Discussions similaires

Réponses
2
Affichages
159