Modifier une Macro existante

Modeste

XLDnaute Barbatruc

• 5 Mai 2012

• #2

Re : Modifier une Macro existante

Bonjour megansport,

En son état actuel et dans le fichier que tu as déposé, la macro ne donne pas vraiment le résultat que tu indiques. Ce point n'est pas dramatique en soi: on comprend tout de même ce qu'elle est censée faire ... le lien avec le résultat attendu est, par contre, encore plus ténébreux. Un petit mot d'explication serait le bienvenu!
Tu veux recopier le nom de la feuille active à gauche de toutes les cellules non-vides en colonne B? Uniquement dans cette feuille-là? Pourquoi une macro?

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 5 Mai 2012

• #3

Re : Modifier une Macro existante

Bonjour

c'est possible mais pourquoi faire une macro?

sinon pour obtenir le resultat

Code:

Sub nom()
derl = ActiveSheet.Range("b65536").End(xlUp).Row
For i = 2 To derl
Cells(i, 1) = Sheets(1).Name
Next
End Sub

 

Dernière édition: 5 Mai 2012

Vote positif 0 Vote négatif

M

megansport

Guest

• 5 Mai 2012

• #4

Re : Modifier une Macro existante

Sault à tous
Merci c'est parfait comme d'habitude
J'ai besoin d'une macro c'est que j'ai plusieurs feuilles avec plusieurs dossier et c'est un gain de temps énorme
Merci de votre aide c'est génial

 

Vote positif 0 Vote négatif

M

megansport

Guest

• 14 Mai 2012

• #5

Re : Modifier une Macro existante

Bonjour à tous
J'essaye de modifier la macro de "Gilbert_RGI" afin qu'elle s'excecute sur plusieurs feuilles mais cela ne marche,j'ai essayer ce code
Sub nom()

Dim i As Byte, x As Byte

x = Sheets.Count 'Par Exemple, ou ce qu'on veut

For i = 1 To x
Sheets(i).Select

derl = ActiveSheet.Range("b65536").End(xlUp).Row
For i = 2 To derl
Cells(i, 1) = Sheets(1).Name

Next

End Sub

Je vous fournis un fichier si quelqu'un a une idée
Merci à tous

 

Pièces jointes

• essaie2.xlsm

  30.7 KB · Affichages: 70

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 14 Mai 2012

• #6

Re : Modifier une Macro existante

Bonjour,

Essaie avec ceci:

VB:

Sub nom()

Dim i As Byte
 
For i = 1 To Sheets.Count
    With Sheets(i)
        .Range("C2:C" & .Range("b65536").End(xlUp).Row) = .Name
    End With
Next
 
End Sub

Mieux vaut éviter les .Select et les boucles, 2 aspects qui risquent d'allonger le temps d'exécution.

 

Vote positif 0 Vote négatif