modifier une macro

[caline]

bonsoir à tous
JE ME LANCE mais je cale car souhaiterais la modifier mais je ne sais pas où?

Sub copie_ligne()
'
' copie_ligne Macro
' Macro enregistrée le 6/09/2006
'

'
Rows("8:9").Select
Selection.Copy
Rows("10:10").Select
ActiveSheet.Paste
Range("B10").Select
Application.CutCopyMode = False
Range("B10").Select
ActiveCell.FormulaR1C1 = "0"
Range("B11").Select
ActiveCell.FormulaR1C1 = " "
Range("c10").Select
ActiveCell.FormulaR1C1 = "°"
End Sub



en réalité je souhaiterais que si la cellule a? est vide il exécute la macro

voici mon fichier et merci de votre aide

 

[caline]

Re : modifier une macro

impeccable c'est cela que je cherchais
y a t-il moyen que lors de la copie des deux lignes, la macro respecte la hauteur des lignes car la première est plus grande que la deuxième ?
je sais que j'en demande un peu beaucoup mais c'est une question de clareté dans le fichier, et je sais aussi que sur ce forum il y a des experts super compétents

merci
Caline

 

[caline]

Re : modifier une macro

bien merci je crois que je prend cette option qui fonctionne et je garde celle de ziopizza en réserve

mais y a t-il un moyen que la copie des lignes respecte la hauteur demandée: la première ligne est d'une hauteur plus grande que la deuxième ( question de clareté dans le fichier . Je sais que sur ce forum il y a des experts alors peut-être une idée .
merci a tous
Caline

 

[ChTi160]

Re : modifier une macro

Salut caline
Bonjour le Forum
Bonjour le Fil

en utilisant l'enregistreur de macro de la barre Visual Basic j'ai obtenu ceci

  Sub testFormat()
     Rows("8:10").Select
     Selection.Copy
     Rows("26:28").Select
     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
     Application.CutCopyMode = False
  End Sub

il faut ,je pense ,pour que le format soit respecté faire un copiage Spécial (PasteSpecial ) qui comprend le format et cela pour les lignes entieres
(n'hésite pas à utiliser l'enregistreur de macro)
Bonne journée