Des améliorations pour un fichier !

[WDAndCo]

Bonsoir le Forum
Je voudrais copier les lignes 2 à 21 (Saisie VHR) (cela seras variable). Le Nb de lignes à copier est en N1. La copie seras une copie de données pas des formules. Cette copie seras faite a la suite sur la feuille (VHR Annuel).
Les lignes copiées seront effacées de (Saisie VHR) sauf une !

Voila pour ce soir !

Merci d'avance
Dominique

 

[suistrop]

Re : Des améliorations pour un fichier !

Bonsoir le Forum

J'ai cette macro qui mets des "X" en lieu et place de date. Mon souci et que le nombre de ligne est variable. J'ai le nombre de ligne a traiter en N1 ma question : comment faire varier la macro en fonction du nombre de ligne dans la ligne suivante : Selection.AutoFill Destination:=Range("Q2:W33") ou le 33 doit être égale a la valeur de N1 ?

hello,

j ai pas trop le tps jpe juste te dire ca :

Range("Q2:W33") ca donne Range("Q2:W" & N1)

 

[WDAndCo]

Re : Des améliorations pour un fichier !

Bonsoir le Forum et suistrop

Le probleme est que :

Sub MettreX()
'
' MettreX Macro
' Macro enregistrée le 08/07/2008 par 5513403E
'

'
Range("Q2").Select
ActiveCell.FormulaR1C1 = "=IF(RC3=R1C,""X"","""")"
Selection.AutoFill Destination:=Range("Q2:W2")
Range("Q2:W2").Select
Selection.AutoFill Destination:=Range("Q2:W" & N1)
Columns("O:AF").Select
ActiveWindow.Zoom = True
Range("O1").Select
End Sub

ne marche pas !

 

[suistrop]

Re : Des améliorations pour un fichier !

Bonsoir le Forum et suistrop

Le probleme est que :

Sub MettreX()
'
' MettreX Macro
' Macro enregistrée le 08/07/2008 par 5513403E
'

'
Range("Q2").Select
ActiveCell.FormulaR1C1 = "=IF(RC3=R1C,""X"","""")"
Selection.AutoFill Destination:=Range("Q2:W2")
Range("Q2:W2").Select
Selection.AutoFill Destination:=Range("Q2:W" & N1)
Columns("O:AF").Select
ActiveWindow.Zoom = True
Range("O1").Select
End Sub

ne marche pas !

ba normal N1 est pas définie ... donne un fichier que je puisse faire des tests !

 

[WDAndCo]

Re : Des améliorations pour un fichier !

Bonjour le Forum et suistrop

Une partie du classeur est joint avec toutes les explication dedans, d'avance merci.

Dominique

 

[suistrop]

Re : Des améliorations pour un fichier !

Hello,

Sub MettreX()
'
' MettreX Macro
' Macro enregistrée le 08/07/2008 par 5513403E
'

der_ligne = Cells(1, 14) + 1

    Range("Q2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC3=R1C,""X"","""")"
    Selection.AutoFill Destination:=Range("Q2:W2")
    Range("Q2:W2").Select
    Selection.AutoFill Destination:=Range("Q2:W" & der_ligne)
    Columns("O:AF").Select
    ActiveWindow.Zoom = True
    Range("O1").Select
End Sub

en esperant que ca te convienne !!!

 

[WDAndCo]

Re : Des améliorations pour un fichier !

Bonjour le Forum et suistrop

J'aimerais avoir la même chose donc une recopie automatique vers le bas mais la je ne connais pas la dernière ligne.

D'avance merci
Dominique

 

[suistrop]

Re : Des améliorations pour un fichier !

Bonjour le Forum et suistrop

J'aimerais avoir la même chose donc une recopie automatique vers le bas mais la je ne connais pas la dernière ligne.

D'avance merci
Dominique

hello,
je reviens d un WE prolongé ...
Mais tu peux m en dire plus sur pourquoi la coller ici ... un fichier en piece jointe avec un exemple !

cordialement

 

[WDAndCo]

Re : Des améliorations pour un fichier !

Bonsoir le Forum et Suistrop

Voici Le Fichier la question est dans le fichier !

D'avance merci
Dominique

PS: Toutes vos remarques seront bienvenues !

 

[suistrop]

Re : Des améliorations pour un fichier !

hello,

je ne comprend pas ce que tu veux dire par copier une formule jusqu en bas.... tu veux que cette meme formuler apparaisse sur toute les ligne de la colonne et cela grace a la macro "CopieSurVHRAnnuel"


si c est ca je pense que ce bout de code peut le faire :

For i = 3 To Range("O65536").End(xlUp).Row
    Cells(i, 15) = "=ROW()-2"
Next i

 

[ChTi160]

Re : Des améliorations pour un fichier !

Salut Dominique (l'occasion de te Saluer)
Bonjour le Fil
Bonjour le Forum
Voila ce que j'ai ajouté dans ta procédure

Call ClassementDATES
[COLOR=Blue]With Sheets("VHR Annuel")
           .Select
last_row = .Range("A65536").End(xlUp).Row - 1
 .Range("O3").Formula = "=Row() - 2"
 .Range("O3").AutoFill Destination:=.Range(.Cells(3, 15), .Cells(last_row, 15))
 End With[/COLOR]
Sheets("Saisie VHR").Select

Bonne fin de Journée

 

[WDAndCo]

Re : Des améliorations pour un fichier !

Bonsoir le Forum, Suistrop et Jean-Marie

Merci, cela marche très bien, mais j'ai mis le bout de code dans une autre macro, une qui classe la feuille VHR Annuel

Sub ClassementVHRAnnuel()
'
' ClassementVHRAnnuel Macro
' Macro enregistrée le 16/07/2008 par 5513403E
'

'
With Sheets("VHR Annuel")
.Select
last_row = .Range("A65536").End(xlUp).Row - 1
.Range("O3").Formula = "=Row() - 2"
.Range("O3").AutoFill Destination:=.Range(.Cells(3, 15), .Cells(last_row, 15))
End With

Derniere_Ligne = Range("BL65536").End(xlUp).Row
Rows("3:" & Derniere_Ligne).Select
Selection.Sort Key1:=Range("C3"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("A1").Select
End Sub

Encore merci.

Comment vas tu Jean-Marie ? Alors cette retraite plus on s'en approche plus elle recule, comme pour moi !

Amicalement
Dominique