Macro Taille Ligne

Macro Taille Ligne - VB/VBA/VBS - Programmation

Marsh Posté le 08-12-2007 à 15:46:06    

Bonjour za tous!  :hello:  
 
Je bloque sur une macro  :cry:  
[I]

Citation :


Sub Macro10()
'
' Macro10 Macro
' Macro enregistrée le 08/12/2007 par CREMOUENETTE
'
 
'
    ActiveCell.Select
    Selection.RowHeight = 25
    ActiveCell.Offset(1, 0).Range("A1" ).Select
End Sub

[/I]
 
 
 
J'aimerai qu a la place de "25" il prenne la valeur se trouvant ds la 1er case de la ligne (A1, A2, A3.....)
 
Et j aimerai mettre un loop 0 a la fin de la macro (que celle ci se répète juska ce que je fasse escape!!!
 
 
merci! :D

Reply

Marsh Posté le 08-12-2007 à 15:46:06   

Reply

Marsh Posté le 08-12-2007 à 21:46:14    

Je ne comprend pas très bien la question.
S'il s'agit de prendre la valeur qui se trouve dans A1, alors faire

toto = ThisWorkbook.Sheets("Feuil1" ).Cells(1, 1).Value


Reply

Marsh Posté le 09-12-2007 à 18:53:19    

Bonsoir à tous
Bonsoir Noutnout
 
essaie ceci :  
 

Code :
  1. ActiveCell.Select
  2. Selection.RowHeight = Range("A" & ActiveCell.Row).Value


par contre pour ta 2ème question :
""""Et j aimerai mettre un loop 0 a la fin de la macro (que celle ci se répète juska ce que je fasse escape!!!"""
 
je ne sais pas
 
Eric
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed