Discussion :

[guillaume74960]

Bonjour à tous, me revoilà avec un nouveau projet et donc de nouveaux problèmes (sinon c'est pas drôle )

J'arrive par macro à créer un tableau dynamique en important un fichier text.

Le problème je voudrai en rafraîchir un autre (ça je pense savoir), pour cela je doit copier une sélection de cellules dans une autre feuille à la suite des autres. La déjà je coince et ensuite de cela, récupérer dans une variable le n° de la dernière ligne utilisée suite à ce "collage"

Voici mon code actuel pour la selection des cellules et le copiage qui bien sur ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
DerniereLigne = Sheets("Total Semaine").Range("A5").End(xlDown).Offset(1).Select
    Sheets(dat).Select
    Range(Cells(2, 1), Cells(Cells(Rows.Count, 5).End(xlUp).Row, 5)).Copy Sheets("Total Semaine").Range(DerniereLigne)

[Aposto]

Bonjour,

Moi je ferais comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
set DerniereLigne = Sheets("Total Semaine").Range("A5").End(xlDown).Offset(1)
    with Sheets("dat")
    .Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 5).End(xlUp).Row, 5)).Copy DerniereLigne
    end with

Tu ne peux pas faire un .select et ensuite le mettre dans une variable, ensuite la méthode offset renvoie un range qui est un objet, donc pour mettre en variable un objet il faut faire set avant le nom de la variable.

De cette manière tu pourras utiliser directement ta variable objet, qui par la même mémorise aussi la feuille "total semaine".

[guillaume74960]

Ah oui merci !! J'ai du mal avec ces variables !!

Mais du coup j'ai mis une MsgBox qui ressort la valeur de DernièreLigne, comment je peux faire pour avoir non pas la valeur mais le numéro de la cellule correspondante ?

[Aposto]

pour avoir l'adresse complète:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerniereLigne.adress

le numéro de ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerniereLigne.row

le numéro de colonne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerniereLigne.column

[guillaume74960]

Ah oui merci j'avais "contourné" le problème mais c'était moins propre !!


En fait maintenant dans mon onglet dans la colonne A j'ai des dates au format jour/mois/année, comment à la place je pourrai renommer ces cellules avec "Semaine *" où * est le numéro de la semaine ?

[Aposto]

à l'aide de la fonction "format()"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheets("feuilleAModifier").name= "semaine" & format(Date, "ww")

voir l'aide F1 sur format pour le fonctionnement complet de cette fonction bien utile.