Modification macro simple

S

Softmama

XLDnaute Accro

• 28 Décembre 2010

• #2

Re : Modification macro simple

Bonjour kakemphaton,

Tu peux tester :

VB:

Sub voirie()
  Dim c as Range
  Set c= range("T1")
  If Range("T2")="" Then Set c=c.end(xlDown)
  c.Formula = "Toto"
  c.AutoFill Destination:=Range(c, Range("T65536").end(xlUp))
end Sub

 

Dernière édition: 29 Décembre 2010

Vote positif 0 Vote négatif

K

kakemphaton

Guest

• 28 Décembre 2010

• #3

Re : Modification macro simple

Bonjour,

merci bien, mais j'obtiens une erreur sur la ligne "c.AutoFill Destination:=Range(c, Range("T65536").End(xlUp))", voici le doc en PJ. Je ne vois pas très bien ce qu'il faut modifier

Merci

 

Pièces jointes

• Exemple.xlsm

  19.2 KB · Affichages: 49
• Exemple.xlsm

  19.2 KB · Affichages: 57
• Exemple.xlsm

  19.2 KB · Affichages: 50

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 29 Décembre 2010

• #4

Re : Modification macro simple

Bonjour kakemphaton,

J'ai testé la macro chez moi, cela fonctionne. Je ne peux regarder ton fichier, étant sous excel 2003. Essaie p-e de préciser le nom de la feuille comme ceci :

Code:

Sub voirie()
  Dim c as Range
  Set c= Feuil1.range("T1")
  If Feuil1.Range("T2")="" Then Set c=c.end(xlDown)
  c.Formula = "Toto"
  c.AutoFill Destination:=Range(c, Feuil1.Range("T65536").end(xlUp))
end Sub

 

Vote positif 0 Vote négatif

K

kakemphaton

Guest

• 29 Décembre 2010

• #5

Re : Modification macro simple

Bonjour Softmama,

Merci bien, mais, j'ai le même problème, voici un document Excel compatible version inférieure 2007.

Merci bien

 

Pièces jointes

• Exemple.xls

  38 KB · Affichages: 41
• Exemple.xls

  38 KB · Affichages: 41
• Exemple.xls

  38 KB · Affichages: 43

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 29 Décembre 2010

• #6

Re : Modification macro simple

Re,

Ta feuil1, s'appelait à sa création Feuil3 : c'est son codename. Remplace tous les Feuil1 du code par feuil3 et sa fonctionne. ou alors par Sheets("Feuil1").

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Décembre 2010

• #7

Re : Modification macro simple

Bonjour à tous

Une autre approche

Code:

Sub voierie_bis()
Dim plg As Range
'Set plg = Range(Cells(1, "T"), Cells(65536, "T"))
Set plg = Columns(20)
    With plg
        With .SpecialCells(xlCellTypeBlanks)
            .Value = "toto"
        End With
    End With
End Sub

 

Vote positif 0 Vote négatif

K

kakemphaton

Guest

• 29 Décembre 2010

• #8

Re : Modification macro simple

Merci bien, le petit hic, il m'ajoute bien Toto, mais, il commence de la dernière celulle et remonte pour modifier toutes les données du dessus de la colonne, au lieu de compléter les cellules vides du dessous sans modifier ce qu'il y a au dessus.

merci d'avance Softmama

 

Vote positif 0 Vote négatif

K

kakemphaton

Guest

• 29 Décembre 2010

• #9

Re : Modification macro simple

Bonjour Staple1600, ta formule fonctionne très bien

Merci

PS : j'étais en train de répondre, je n'avais pas vu la tienne, désolé

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 29 Décembre 2010

• #10

Re : Modification macro simple

Re, Bonjour Staple1600,

Je viens de me rendre compte en regardant la solution proposée par Staple1600, qu'effectivement, j'avais pas compris correctement ta demande : je croyais que tu souhaitais que toutes les cellules déjà remplies de la colonne T prenne la formule "Toto", et non pas les cellules vides sous tes données. Désolé héhé 🙂

Concernant ta demande, il me semble que Staple a du coup, à peu près répondu à ta demande, juste l'histoire de 'remplir colonne T jusqu'à la dernière ligne remplie de la feuille' qui est pas prise en compte : tu peux adapter son code comme ceci :

Code:

Sub voierie_bis()
Dim plg As Range
Set plg = Intersect(ActiveSheet.UsedRange, Columns(20))
    With plg
        With .SpecialCells(xlCellTypeBlanks)
            .Value = "toto"
        End With
    End With
End Sub

[EDIT] Ha ben, t'as déjà répondu à Staple ^^

 

Vote positif 0 Vote négatif

K

kakemphaton

Guest

• 29 Décembre 2010

• #11

Re : Modification macro simple

Merci bien à vous deux !

 

Vote positif 0 Vote négatif