VBA remplacer 1 de A1 par le chiffre d'une autre cellule

[lolodepau]

Bonjours a tous,
Je voudrais remplacer le 25 de H25 par le nombre se trouvant dans la cellule J5.
Merci

Sub xxxxxxxx()
'
' xxxxxxxx Macro
'

'
Range("A1:H25").Select
Selection.Copy
Sheets("Données 1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[Pierrot93]

Re : VBA remplacer 1 de A1 par le chiffre d'une autre cellule

Bonjour,

essaye ceci :

Range("A1:H" & Range("J5").value).Select

supposant une valeur correcte dans la cellule en question...

bonne journée
@+

 

[lolodepau]

Re : VBA remplacer 1 de A1 par le chiffre d'une autre cellule

Merci bien, Bonne journée !

 

[lolodepau]

Re : VBA remplacer 1 de A1 par le chiffre d'une autre cellule

et comment faire si le nombre se trouve dans la celule J5 mais d'un autre onglet ??

 

[lolodepau]

Re : VBA remplacer 1 de A1 par le chiffre d'une autre cellule

Help Me

 

[Pierrot93]

Re : VBA remplacer 1 de A1 par le chiffre d'une autre cellule

Re,

modifie comme suit :

Range("A1:H" & Sheets("NomFeuille").Range("J5").value).Select

 

[lolodepau]

Re : VBA remplacer 1 de A1 par le chiffre d'une autre cellule

Et si je veux le A1 d'un autre onglet ???

tu pense cela correct ?

Sheets("Nomfeuille1").Range("A1:H" & Sheets("NomFeuille2").Range("J5").value).Select

 

[Pierrot93]

Re : VBA remplacer 1 de A1 par le chiffre d'une autre cellule

Re,

tu pense cela correct ?

bah oui... un petit test te le confirmera tout de suite... ou pas d'ailleurs.... lol

 

[lolodepau]

Re : VBA remplacer 1 de A1 par le chiffre d'une autre cellule

Ca ne marche pas Pierrot

 

[lolodepau]

Re : VBA remplacer 1 de A1 par le chiffre d'une autre cellule

Help me

 

[Pierrot93]

Re : VBA remplacer 1 de A1 par le chiffre d'une autre cellule

Re,

la synthaxe est bonne, mais ne fonctionnera que si la feuille "Nomfeuille1" est active, sinon il y a lieu de l'activer au préalable...