Effacement cellules selon ligne active

Résolu
touroul Messages postés 526 Date d'inscription   Statut Membre Dernière intervention   -  
touroul Messages postés 526 Date d'inscription   Statut Membre Dernière intervention   -
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

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    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
    1. touroul Messages postés 526 Date d'inscription   Statut Membre Dernière intervention   17
       
      Merci beaucoup Gyrus c'est parfait !

      Bonne journée

      Sympa le coup de main
      0
  2. touroul Messages postés 526 Date d'inscription   Statut Membre Dernière intervention   17
     
    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