allonger ligne

[cg1980]

bonjour,
j essaie fe faire une macro qui a comme seule but d allonger les lignes a une date donnee.


dA = Sheets("FonteDati").Range("aO60") 'date exemple dA=30.07.11
Set rt = Sheets("Performance").Columns(2).Find(dA, , xlFormulas, xlWhole) 'selectionne la plage de donnees
If Not rt Is Nothing Then

Sheets("Performance").Range("Af:AH" & rt.Row - 1).Copy
cette dernire commande de marche pas

Sheets("Performance").Range("Af" & rt.Row - 1).Copy fonctionne mais je veux selectioner la plage af:ah d un coup

merci pour le coup de main

 

[Guest]

Re : allonger ligne

Bonjour,

Pour chercher des dates avec Find il faut que l'argument What:= ait strictement le même format que dans les cellules

dA = Format( Sheets("FonteDati").Range("aO60"),"dd.mm.yy")

Pour t'en dire plus il faudra un fichier

A+

 

[cg1980]

Re : allonger ligne

voici un fichier en piece jointe. j'ai adapté le code au nom de page

Message précèdant
bonjour,
j essaie fe faire une macro qui a comme seule but d allonger les lignes a une date donnee. je veux dire à la macro d'allonger les lignes en sheet2 jusqu à une date (dA)
La macro est dans le file.MErci

dA = Sheets("FonteDati").Range("aO60") 'date exemple dA=30.07.11
Set rt = Sheets("Performance").Columns(2).Find(dA, , xlFormulas, xlWhole) 'selectionne la plage de donnees
If Not rt Is Nothing Then

Sheets("Performance").Range("Af:AH" & rt.Row - 1).Copy
cette dernire commande de marche pas

Sheets("Performance").Range("Af" & rt.Row - 1).Copy fonctionne mais je veux selectioner la plage af:ah d un coup

merci pour le coup de main .

 

[Guest]

Re : allonger ligne

bonsoir,

Pas sûr d'avoir tout compris mais sans doute voudrais-tu quelquechose comme ceci:

Sheets("Sheet2").Range ("AF" & rt.Row - 1 & ":AH" & rt.Row - 1)

A+

 

[cg1980]

Re : allonger ligne

c'es texaement ca . merci