Effacement cellules selon ligne active

Résolu/Fermé
touroul Messages postés 475 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 11 novembre 2024 - 2 janv. 2015 à 13:19
touroul Messages postés 475 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 11 novembre 2024 - 4 janv. 2015 à 21:01
Bonjour le forum CCM,

Tout d'abord chaleureusement bonne année à tous !!!
J'espère que ce forum sera aussi vivant qu'en 2014, on est toujours bien reçu ici !

Voici ma problématique du jour :

Je souhaite modifier une macro pour effacer le contenu des cellules 3 et 4 de la ligne active.
J'en suis là :
ActiveSheet.Rows(ActiveCell.Row).ligne3,ligne4.Delete ""

Puis-je vous demander un peu d'aide ?

D'avance merci


2 réponses

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
2 janv. 2015 à 13:32
Bonjour,

Pour effacer le contenu des cellules, colonnes 3 et 4 de la ligne active :

ActiveSheet.Cells(ActiveCell.Row, 3).Resize(1, 2).Clear


A+
1
touroul Messages postés 475 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 11 novembre 2024 16
2 janv. 2015 à 14:35
Merci beaucoup Gyrus c'est parfait !

Bonne journée

Sympa le coup de main
0
touroul Messages postés 475 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 11 novembre 2024 16
4 janv. 2015 à 21:01
Bonsoir à tous.

Ce n'est pas le printemps mais une fois de plus Visual "Basilic" me donne du fil à retordre.
J'ai réussi, dans ma macro, à sélectionner une partie de colonne, dans laquelle je souhaiterais incrémenter des chiffres en partant de 1 avec un pas de 1.
Il y a la commande Autofill mais je ne sais pas l'appliquer à ma sélection.

Puis-je solliciter de l'aide ?

Merci par avance
0